Datei mit unbekannter Extension suchen...: ...und mit MIME:Lite verschicken - #2768 (Perl/CGI)

coax

2004-06-07 04:58

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

[quote=cbxk1xg,06.06.2004, 21:07]

Code (perl): (dl )

# Datei in @files suchen
        foreach $_ (@files)
        {
        $AttachentFile = (split /\./, $_)[0];
        grep /$AttachentFile/i, @files;
        }

[/quote]
das grep tut hier so gut wie garnichts, weil du nicht mit den Rueckgabewerten weiterarbeitest.

Vielleicht suchst du ja das..

Code (perl): (dl )

my $SessionID = 2297;
my %hash;

my @files = qw(9524.pdf 8905.zip 5548.txt 146.txt 2297.doc
               814.htm 2069.zip 5358.zip 7800.rar);

foreach my $filename (@files) {
       my($base) = $filename =~ /(.+?)\..+?$/;
       $hash{$base} = $filename;
}

# printf("%s => %s\n", $_, $hash{$_}) for keys %hash;

print "$hash{$SessionID}\n";

# Ausgabe:
#2297.doc

Grusz Christian.

,,Das perlt aber heute wieder...'' -- Dittsche