|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
25.01.2006, 17:06
|
|||
|---|---|---|---|
(Perl) Вопрос про открытие файлов в цикле... |
|||
|
#18+
Написал маленький скриптик, который не работает.... Идея была в папке лежат файлы с названиями 16.txt, 17.txt... и т.д. из них надо убрать все пробелы и _. Что не так? #!c:\perl\bin\perl.exe #use warnings; #use strict; my $filename1; my $filename2; for(my $i=16;$i<100;$i++) { $filename1 ="$i.txt"; $filename2 ="$i_.txt"; print "$filename1->$filename2\n"; open(fu,"<$filename1"); open(su,">$filename2"); my @exit=<fu>; foreach(@exit) { $_=~s/_//; $_=~s/ //; print su "$_"; } #<second>=@exit; close fu; close su; } ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.01.2006, 17:11
|
|||
|---|---|---|---|
(Perl) Вопрос про открытие файлов в цикле... |
|||
|
#18+
Сообразил... Пробельный символ нужен... А не пробел ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.01.2006, 17:24
|
|||
|---|---|---|---|
(Perl) Вопрос про открытие файлов в цикле... |
|||
|
#18+
Как + и - убрать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
25.01.2006, 17:41
|
|||
|---|---|---|---|
(Perl) Вопрос про открытие файлов в цикле... |
|||
|
#18+
modКак + и - убрать? так и убирай: s#[-+]+##g; а вчем проблемма ??? P.S. спили мушку, разкоментируй use strict, узнай много нового о своей программе, в частности что $filename2 у тебя всегда `.txt`, потому как переменная `$i_` не определена... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=23&mobile=1&tid=1476887]: |
0ms |
get settings: |
8ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
167ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 246ms |
| total: | 491ms |
| 0 / 0 |
