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

Crian

2005-07-05 13:01

User since
2003-08-04
5866 Artikel
ModeratorIn

ich würd ja die Textdateien einfach globben:

Code: (dl )

1
2

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

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite