мини консультация

[vavilas]

Есть готовый скрипт на perl:
#!/usr/bin/perl

open(FF,'file_list.txt');@dir=<FF>; chomp(@dir);close(FF);

$cc=3;

foreach $vv (@dir){
open(FF,"$vv");@text=<FF>;close(FF) ;
open(FF,">$vv.php");
foreach $line (@text){
$line=~s/nn/"kkk".sprintf("%02d",++$cc)/eg;

print FF $line;
}
close(FF);
}

Он берет из папки файлы, ищет в них символы "kkk" и изменяет их на цифры по порядку, начиная с 3,4,5,6,7 и т.д.
НО в указанном скрипте есть ошибка и кроется она где-то здесь: nn/"kkk"
помогите, пожалуйста, разобраться!

[vavilas]

все, сам разобрался..

#!/usr/bin/perl

open(FF,'file_list.txt');@dir=<FF>; chomp(@dir);close(FF);

$cc=2;


foreach $vv (@dir){
open(FF,"$vv");@text=<FF>;close(FF) ;
open(FF,">$vv.php");
foreach $line (@text){
$line=~s/kkk/sprintf("%02d",++$cc)/eg;

print FF $line;
}
close(FF);
}