Perl---open()----HELP!!!!!!!!!!!!!!!!!

[444ert666]

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

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?!
Если можно, то как?, а если нет............а если нет.........
то смысла жить дальше нету!!!!!!!!!!!!!!!!

[Oscar]

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

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

Код: Выделить всё

cat /etc/passwd

? :twisted: :lol:

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

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

[444ert666]

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

[Oscar]

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

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

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

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

[UUU]

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