Dateien aus Verzeichnissen ...: finden, die bestimmte Eigenschaften habe - #56002 (Allgemeines zu Perl)

Dubu

2005-07-05 20:15

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=Crian,05.07.2005, 11:01]ich würd ja die Textdateien einfach globben:
[/quote]
Ja, das wuerde ich auch.

Quote

Code: (dl )

1
2

my @txt = glob(*.txt);
my @sql = map {$a=$_;$a=~s~\.txt$~.sql~;$a} @txt;

Das map{} erscheint mir hier etwas holprig. Ich wuerde eine for-Schleife der Uebersichtlichkeit halber bevorzugen, auch wenn's wahrscheinlich etwas laenger dauert (erst kopieren, dann ersetzen):

Code: (dl )

1
2
3

my @txt = glob('*.txt');
my @sql = @txt; 
s~\.txt$~.sql~ for @txt;