Thread Fragen zu Net::FTP (7 answers)
Opened by MechaTikal at 2007-10-17 18:34

renee
 2007-10-17 19:41
#100988 #100988
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Nein, rein theoretisch könnte es passieren, dass eine zweite "Nicht-Flag"-Datei das $edifile überschreibt, ohne dass Du was im Hash gespeichert hast...

Ich würde es eher so machen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9

my %hash;
my $flag = ".flag";

foreach my $file(@files) {
    if ($file !~ /\Q$flag$/) {           
        print "$file\n";          
        $hash{$file} = $file . $flag;
    }
}


Damit würdest Du auch Dateien bekommen, für die (noch) keine .flag-Datei existiert. Wenn Du das nicht haben möchtest, kannst Du es auch so machen:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

my %hash;
my $flag = ".flag";

foreach my $file(@files) {
    if ($file !~ /\Q$flag$/) {           
        print "$file\n";          
        $hash{$file} = 0;
    }
    else{
        my ($short = $file) =~ s!$flag$!!;
        $hash{$short}++;
    }
}

%hash = map{ $_ => $_ . $flag }grep{ $hash{$_} }keys %hash;
(ungetestet)
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Fragen zu Net::FTP