perl script

#31

17.12.2006, 01:51

genom--

Постоянный

Регистрация: 09.07.2006

Сообщений: 937

С нами: 10441826

Репутация: 1686

вот писал cgi скрипт для редактирования файлов на серваке -- получилось прикольно решил выложить --- вообщем в форме указываем имя файла и засылаем его с помощью get -- пример формы (вставлять в любой html файл =) )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>
Редактировать файл:
<form method="get" action="edit.cgi" ><input type="text" name="file" value="index.html" size="50"><br>
<input type="submit" value="Редактировать"> </form>
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~<br>

вот код самого скрипта -- получилось приколно -- что если вы указали имя файла которого нет -- то выдает пустой контент -- и если ввести данные и нажать сохранить то создастся новый файл -- таким образом решается и проблема загрузки текстовых файлов на сервер -- мона новый создать и туда вставить =)

вот код самого скрипта

#!/usr/bin/perl

use CGI;

print "Content-type: text/html\n\n<b><body text=\"darkgreen\" bgcolor=\"#000000\" link=\"green\"alink=\"green\" vlink=\"green\"><br><br>";

read(STDIN, $data, $ENV{'CONTENT_LENGTH'});
$buf=$ENV{'QUERY_STRING'};

if (length($data)==0){
$buf=~s/file=//eg;
print"<center>Редактирование файла-->$buf<br><br></center>";open fyll,"$buf";
@sors=<fyll>;close(fyll);
print"<center><form method=\"post\" action=\"\"><textarea class=\"input\" id=text cols=70 rows=12 name=\"newsors\" >@sors</textarea><br><br><input type=\"submit\" value=\"....Сохранить....\" ></form><center><br><br><br><br><br><br>если в окне содержания нет текста то либо этот файл пустой либо его не существует -- нажатие кнопки сохранить приведет к созданию нового файла";}
else{$data=~tr/+/ /;
$data=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$data=~s/newsors=//eg;
$buf=~s/file=//eg;
open fyll,">$buf";
print fyll "$data";
close(fyll);
print'<br><br>Изменения сохранены успешно<br><br><a href="index.html">Назад</a>';
}