02.04.2008, 16:02
|
|
Познающий
Регистрация: 27.04.2006
Сообщений: 46
Провел на форуме:
177234
Репутация:
11
|
|
вопрос
Такой вопрос. Есть скрипт для веб)) :
Код:
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
<br /><br />
my $file = $cgi->param('file');
<br /><br />
# grab date base
$file =~ m/(.*).txt/;
my $date = $1;
<br /><br />
my @images = <Images/$date/*.jpg>;
my @audio = <Audio/$date/*.mp3>;
<br /><br />
<br /><br />
print "Content-type: text/html\n\n";
<br /><br />
print "<html><body>";
<br /><br />
print "<!-- generatede -->";
<br /><br />
open(INPUT, "<$file");
while (<INPUT>) {
# add breaks...
if (/^$/) {
print "<br /><br />";
}
print;
}
close(INPUT);
<br /><br />
print "<br />";
<br /><br />
foreach (@images) {
print "<img src='$_'><br /><br />";
}
<br /><br />
print "<br />";
<br /><br />
print "<h3>Sound Bites</h3> (xxxxxxxx)<br /><br />";
<br /><br />
foreach (@audio) {
print "<a href='$_'>$_</a><br /><br />";
Хотелось бы понять, кроме чтения произвольных файлов есть возможность исполнения команд или чего либо еще? |
|
|