Leser: 1
![]() |
![]() |
4 Einträge, 1 Seite |
1
2
3
4
5
6
foreach my $datei (@dateien) {
if ($ARGV[0] eq '-s'){
if ($datei =~ m/.*$ARGV[1]/){
print $pfadtotal;
}
} else {
1 2 3 4 5 6
for my $datei( @dateien ){ my ($func,$param) = @ARGV; if( $func eq '-s' and index($datei,$param) != -1 ){ print $datei; } }
![]() |
![]() |
4 Einträge, 1 Seite |