Хорошо...
Вот что я написал:
Код:
#!/usr/bin/perl
use strict;
use CGI;
print "Content-type: text/html\n\n";
open (file,"1.txt");
my $text = <file>;
close file;
print <<END;
<form action="check.pl" method="get">
<textarea name="number">$text
</textarea>
<input type="submit">
</form>
END
;
my $q = new CGI;
my $NNumber = $q -> param('number');
open(FHANDLE, ">1.txt");
print FHANDLE $NNumber;
close(FHANDLE);
Но как заставить скрипт сканировать папку на текстовые файлы не знаю... Знаю, что используюся комнады opendir и readdir, но не работает это дело со мной.…
Код:
#!/usr/bin/perl
$url = "../folder";
opendir (dir, "$url");
readdir dir;
$files = <dir>;
closedir dir;
print "$files";
Пытался таким образом хотябы вывести список всех *.txt файлов, но сервер сообщает об ошибке.…
Новости дизайна |
Галереи |
О проекте |
RSS
Правила |
FAQ |
Поиск |
Наша команда |
Регистрация |
Вход
