[mdk-re] Помогите с рег выражением....

[Sergey Degtyaryov]

Доброго времени суток, Sergei.
Thu, 17 Jan 2002 20:55:40 +0300 Вы сказали буквально следующее:

S> #!/usr/bin/perl
S> 
S> open (LIST,"ls -1A|");
S> 
S> while ($file=<LIST>)
S> {
S> 	chomp $file;
S> 	next if ($file=~/^\.\.?$/);
S> 	$file1="\L\u$file";
S> 	print "$file -> $file1\n";# можно выкинуть
S> 	rename $file,$file1;
S> }
S> close (LIST);

Ну, "это же неаккуратненько" (с)  =)

#!/usr/bin/perl

for (qx/ls -a/) {
chomp; rename $_, ucfirst;
}
---
Ciao, maga, maga на anykey.spb.ru
--