|
|
|
(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:06 |
|
||
|
(Perl) Вопрос про открытие файлов в цикле...
|
|||
|---|---|---|---|
|
#18+
Сообразил... Пробельный символ нужен... А не пробел ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.01.2006, 17:11 |
|
||
|
(Perl) Вопрос про открытие файлов в цикле...
|
|||
|---|---|---|---|
|
#18+
Как + и - убрать? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.01.2006, 17:24 |
|
||
|
(Perl) Вопрос про открытие файлов в цикле...
|
|||
|---|---|---|---|
|
#18+
modКак + и - убрать? так и убирай: s#[-+]+##g; а вчем проблемма ??? P.S. спили мушку, разкоментируй use strict, узнай много нового о своей программе, в частности что $filename2 у тебя всегда `.txt`, потому как переменная `$i_` не определена... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.01.2006, 17:41 |
|
||
|
|
start [/forum/topic.php?fid=23&msg=33503190&tid=1476887]: |
0ms |
get settings: |
5ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
166ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 217ms |
| total: | 445ms |
| 0 / 0 |
