Xpoint
   [напомнить пароль]

Perl или не perl

Метки: [без меток]
[арх]
2009-07-09 18:28:39 [обр] Kirill[досье]

Добрый день!

как узнать является ли файл перловым скриптом с помощью перла?

Ничего умнее

if (system("perl -c $file") == 0)

в голову не приходит, но проблема в том, что если файл очень большой, то долго ждать пока он синтаксис каждой строки проверит.
Вот если бы был способ прирывать после первой же найденой ошибки ...
Не подскажете решение?

спустя 56 минут [обр] AB...(10/233)[досье]
Если речь идет только о скриптах и откидываются модули, то может стоит смлтреть только на shebang?
спустя 46 минут [обр] Alexander O(122/460)[досье]

Либо быстро: смотреть на расширение файла (*.pl например) и shebang
Либо надежно: perl -с

А зачем такое понадобилось?

спустя 14 часов [обр] Kirill[досье]
На сервере надо разобрать что к чему, копилось много лет.
Про shebang тоже мысли были, но хочется также фильтровать скрипты, которые запускают как perl file.
Всем спасибо, на ночь попробую запустить по принципу perl -c
спустя 14 часов [обр] AB...(10/233)[досье]
Вообщем и perl -c может не выявить всех скриптов. Даже shebang в принципе не обязателен если из одного серипта будет подгружаться другой используя метод require.
спустя 2 дня 15 часов [обр] Kirill[досье]
Это понятно. Но если кто знает способ предполагающий минимальную дальнейшую ручную обработку, то просьба дать знать.
спустя 12 дней [обр] Alexander O(122/460)[досье]
Kirill[досье]
ack --perl -f >all_perl_files
Powered by POEM™ Engine Copyright © 2002-2005