VO
что за задача-то? провери что переданные файлы -- это исходиники продукта?
Size: a a a
2020 March 11
AK
Нет, запускать только Perl-овые файлы если эти файлы находятся в куче какого-то (мусора)
AK
При этом расширение есть не всегда, шебанг иногда ломанный, иногда его вовсе нет
AK
Мне кажется, perl -c разумнее всего
AP
а если там system qw(rm -rf /) ?
VO
ой. а зачем запускать? и зачем запускать например какие-нибудь .pm (которые для прямого запуска немного не предназначенны)?
EV
а если там system qw(rm -rf /) ?
use Safe
AK
а если там system qw(rm -rf /) ?
Такая команда уже лет 15 как не работает
AK
ой. а зачем запускать? и зачем запускать например какие-нибудь .pm (которые для прямого запуска немного не предназначенны)?
От запуска .pm ничего страшного не произойдёт
EV
От запуска .pm ничего страшного не произойдёт
это почему?
VO
вопрос-то не о страшном, а о полезном.
страшного ничего не будет если и мусор подсунуть перлу
страшного ничего не будет если и мусор подсунуть перлу
VO
потому что обычно .pm завершается строкой
1;EV
там может быть и не 1
EV
а warn 1;
EV
или system
EV
ты можешь написать ['jopa']; и это вернется в require
EV
вроде как
VO
да. но ничего страшного в этом нет все еще.
VO
как и полезного.
OP
perl -c не спасет.
Все что написано в BEGIN выполнится
Все что написано в BEGIN выполнится