|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vadim Tzirulnicov 2:5020/40.102 28 Jul 2003 21:55:02 To : Nikolay Guryev Subject : Как в файле убрать пробелы -------------------------------------------------------------------------------- _*ЯЯЯЯЯ*_ ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ 25 Июл 03 16:17, _Nikolay Guryev_ НН. /All/: open(FILE,"you_file"); @data=<FILE>; close(FILE); foreach $line(@data){ $data=~s/\s//g; } close(FILE); open(FILE,">you_file"); print FILE @data; close(FILE); NG> From: "Nikolay Guryev" <guryev@chiten.elektra.ru> NG> NG> Hi All, NG> NG> никогда не занимался Perl'ом, но вот возникла проблема - есть NG> текстовый файл, необходимо в нем убрать все пробелы. Как бы это NG> получше сделать? Спасибо. NG> ъ ъъъДН» Hу я вроде все сказал... Пока, _*Nikolay*_ ! ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ ... У вас половые расстройства ? Переустановите Windows ! --- GoldEd 3.00.Beta5+ * Origin: В России заборы делают из досок, а мебель - из опило (2:5020/40.102) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/173513f259c28.html, оценка из 5, голосов 10
|