|
Действия ...
|
06.11.2005, 21:07
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
|
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
03.11.2005, 00:03
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
#!/usr/bin/perl -w use strict; my $dir; print "Введите имя каталога: "; chomp ($dir=<STDIN>); opendir(DH,$dir)||die "Ошибка при открытии католога $dir: $!"; my @Files=readdir DH; close(DH); Почему-то при работе в переменную $dir ничего не попадает..... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.11.2005, 09:33
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
...действительно странно... а как и на чем ты запускаеш этот скрипт ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
04.11.2005, 01:13
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
Запускаю в Комодо.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.11.2005, 03:30
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
Пробуй. #!/usr/bin/perl -w use strict; my $dir; print "Enter Directory name: \n"; chomp ($dir=<STDIN>); opendir(DH,$dir)||die "Error reading $dir: $! \n"; foreach (readdir(DH)) { our $file=$dir.$_; print "$file \n"; } close(DH); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.11.2005, 16:43
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
ivikПробуй. ...our внутри цикла это сильно.... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.11.2005, 16:47
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
МашуняЗапускаю в Комодо.... а если без комода, как в старые добрые времена, через шел ( ака командной строке в винде... ) ? Вот, что то меня сомнения терзают на счет того, что не заворачивает ли тот Комодо STDIN куда нибудь, потому как в $dir по всякому должно что то быть... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.11.2005, 19:50
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
...our внутри цикла это сильно....[/quot] Я 2 дня назад первую свою программу на Perl написал =) Измени на my, если тебя так смущает. Факт что работает =) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
06.11.2005, 21:07
|
|||
|---|---|---|---|
Помогите разобраться с прогой на Perl |
|||
|
#18+
ivik...our внутри цикла это сильно.... Я 2 дня назад первую свою программу на Perl написал =) Измени на my, если тебя так смущает. Факт что работает =)[/quot] ...у меня вот, если честно, и первый вариант работает... :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.11.2005, 02:50
|
|||
|---|---|---|---|
|
|||
Помогите разобраться с прогой на Perl |
|||
|
#18+
Я 2 дня назад первую свою программу на Perl написал =) Измени на my, если тебя так смущает. Факт что работает =)[/quot] ...у меня вот, если честно, и первый вариант работает... :)[/quot] В смысле, 1-й? Тот который с our внутри цикла - ну ессесно =) А тот который Машунин - у меня не пошёл. Вернее переменная $dir определяется корректно, но видно какая-то лажа в получении списка файлов.. ЗЫ. Тв каким редактором пользуешся? У меня EnginSite Perl Editor LE от LuckaSoft. Довольно удобная штука =) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
07.11.2005, 10:11
|
|||
|---|---|---|---|
Помогите разобраться с прогой на Perl |
|||
|
#18+
ivik В смысле, 1-й? Тот который с our внутри цикла - ну ессесно =) А тот который Машунин - у меня не пошёл. Вернее переменная $dir определяется корректно, но видно какая-то лажа в получении списка файлов.. ЗЫ. Тв каким редактором пользуешся? У меня EnginSite Perl Editor LE от LuckaSoft. Довольно удобная штука =) у меня linux, bash-2, perl 5.8.5, vim - на удобства тоже не жалуюсь. Я именно про вариант от Машуни. :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=23&mobile=1&tid=1477310]: |
0ms |
get settings: |
11ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
292ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
49ms |
get tp. blocked users: |
2ms |
| others: | 223ms |
| total: | 612ms |
| 0 / 0 |
