- Работа со строками в perl....,
 madskull, 14:37 , 29-Авг-05 (1)>Подскажите как средсвами perl-а можно осуществить поиск строки в файле и если
>такая строка найдена, то удалить ее. А если нет такой строки,
>то добавить??
>Помогите новичку. одно из решений:
$str="..."; open F, "<test.txt" or die $!;
$t = join "", <F>;
close F; $t =~ s/$str\n//gs or $t .= $str."\n"; open F, ">test.txt" or die $!;
print F $t;
close F;
- Работа со строками в perl...., virk, 13:05 , 30-Авг-05 (2)
Пояните что делает эта строчка ?
>$t = join "", <F>;>close F;
>
И вот эта......
>$t =~ s/$str\n//gs or $t .= $str."\n";
- Работа со строками в perl...., madskull, 13:44 , 30-Авг-05 (3)
Если честно, лучше почитать книжки.
>Пояните что делает эта строчка ?
>>$t = join "", <F>;
Считывает из файла все строки в массив и объединяет их в строку.
>
>>close F;
>>
>И вот эта......
>>$t =~ s/$str\n//gs or $t .= $str."\n";
Заменяет нужную строку на пустоту (то есть удаляет ее). если замены не произошло, то есть такой строки нет, то добавить эту строку к тексту
|
Версия для распечатки
Работа со строками в perl...., 
