Developing.ru

есть такая функция:

sub readfile ($) {
my($fn) = @_;
my $path = `pwd`;
die "[error] no such page $fn" . $path unless -e $fn;
local(*IN);
my($file);
if (open(IN,$fn)) {
read(IN, $file, -s IN);
close(IN);
}
$file;
}

Переменая fn передаётся методом get.
Вопрос: можно ли сделать так(т.е. передать в $fn), чтобы в $file печатался
результат выполненной команды, скажем /bin/ls -a?!
Если можно, то как?, а если нет............а если нет.........
то смысла жить дальше нету!!!!!!!!!!!!!!!!

444ert666 писал(а):чтобы в $file печатался
результат выполненной команды, скажем /bin/ls -a

а заодно и чтобы мог печататься ? :twisted: :lol:

5. Безусловно удаляются вопросы и ответы на темы, касающиеся поиска кряков, генераторов ключей, серийных номеров, способов взлома и т.п. тематики.

(c) Правила поведения на Форуме

во-первых cat не к чему......Функция и так открывает любой файл(даже бинарник).......
Это вопрос по чистому перлу!!!!!
Просто хотелось бы, чтобы функция вела себя адекватно,---- бинарники запускала, а все остальное ----читала................
Неужели, тяжело ответить....Возможно это вообще, или нет?!(я да же уже не спрашиваю как).

444ert666, ок, не cat, так halt ;-)

суть вопроса непонятна.

нужно изменить ф-цию, или написать передать такую переменную, чтобы выполнялось?

второе - взлом,
первое - exec("ls");

Хм, открой файл, прочитай первую строку, проанализируй, если выполнимый файл - запускай, если нет - выводи.