Есть текстовый файл типа:
имя1 200 # bla bla bla
имя2 100 # bla bla bla
имя3 5 # bla bla bla
имя4 20000 # bla bla bla

Как из CGI-перл скрипта открыть его и изменить значение для имя2 с 100 на 200 например? Пробовал open f1, "+<$file"; так дописывается в конец файла а нада в середину. Неужели можно это сделать только копированием файла в другой?
Зарание спасибо.

• Как при помощи перл-скрипта в файле изменить одно значение?,konst, 17:27 , 05-Дек-03

>Есть текстовый файл типа:
>имя1 200 # bla bla bla
>имя2 100 # bla bla bla
>имя3 5 # bla bla bla
>имя4 20000 # bla bla bla
>
>Как из CGI-перл скрипта открыть его и изменить значение для имя2 с
>100 на 200 например? Пробовал open f1, "+<$file"; так дописывается в
>конец файла а нада в середину. Неужели можно это сделать только
>копированием файла в другой?
>Зарание спасибо.

#!/usr/bin/perl
$filename = ...;
`perl -i -pne ' s/(имя2) 100/\1 200/g' $filename`
# или system("perl -i -pne ' s/(имя2) 100/\1 200/g' $filename");