Opened by shaihulud at 2006-10-17 14:55
User since
2006-01-27
3875 Artikel
HausmeisterIn
2006-01-27
3875 Artikel
HausmeisterIn
Hi,
geht es Dir darum, die Dateien zu ignorieren, die mit '---' beginnen, oder möchtest Du den String '---' am Anfang des Dateinamens entfernt haben?
Für die erste Variante schrieb Dir vayu schon eine Lösung. Hier mal mein Vorschlag:
Für die zweite Variante hier meine Lösung:
Wenn Du eh schon eine for-Schleife einsetzt, dann kannst Du da die Anpassung vornehmen:
[edit] vayus Nachbearbeitung wurde mir nicht mehr angezeigt ;o)) [/edit]\n\n
<!--EDIT|Linuxer|1161083680-->
geht es Dir darum, die Dateien zu ignorieren, die mit '---' beginnen, oder möchtest Du den String '---' am Anfang des Dateinamens entfernt haben?
Für die erste Variante schrieb Dir vayu schon eine Lösung. Hier mal mein Vorschlag:
Code: (dl
)
my @dateien = grep { ! index($_,'---') == 0 } glob(...):Für die zweite Variante hier meine Lösung:
Wenn Du eh schon eine for-Schleife einsetzt, dann kannst Du da die Anpassung vornehmen:
Code: (dl
)
1
2
3
4
5
6
7
8
for my $datei ( @dateien ) {
# *entweder* als regex
$datei =~ s/^---//;
# *ODER* ohne regex
$datei = substr($datei,3) if ( index($datei, '---') == 0 );
...
} [edit] vayus Nachbearbeitung wurde mir nicht mehr angezeigt ;o)) [/edit]\n\n
<!--EDIT|Linuxer|1161083680-->
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!