|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
