[mrcnn]

мне кажется, что в $data[1] в конце символ перехода на новую строку. Отрежь его либо с помощью chop($data[1]) либо chomp($data[1]);

?

[koresaram]

чувак, ты гений спасибо!
open (NEW,">>$newpath/$f");
chomp($data[1]);
print NEW "\'ext_1\',\"$data[1]\"\n";
print "выполнено добавление имени $data[1] в файл $f";
close (NEW);
тепер пишет как надо
'ext_1',"Ольга"

[koresaram]

народ, а вот еще вопрос созрел - теперь мне надо заменить в этом файле строку 'language',"English" на 'language',"Russian"
я пишу
$newpath="../testcatalog1";
opendir(MD,"$newpath/");
@files = readdir(MD);
foreach $f (@files)
open (OLD,"$newpath/$f");
@data=<OLD>;
s/English/Russian/;
close (OLD);
}
closedir(MD);
но чет он ничего у меня не меняет.