Помогите с Перлом!
Я довольно долго программирую но с Перлом раньше не сталкивался. А тут вот ко мне привалило... :( Вопросы:
1) Есть ссылка somescript.cgi?param1=value1¶m2=value2
(CGI написан на Перле.)
Как внутри somescript.cgi получить значения передаваемых переменных. Т.е. как присвоить эти значения каким-то локальным переменным?
2) Чтение и запись в файл.
Нужно построчно прочитать файл (~7.5 Mb) и сохранить всю инфу из него в файл с другим именем. После этого не закрывая новый файл нужно дописать в него строку.
Как это можно сделать?
ЗЫ. Понимаю что вопросы ламерские, но просьба ногами не пинать :)
1) Есть ссылка somescript.cgi?param1=value1¶m2=value2
(CGI написан на Перле.)
Как внутри somescript.cgi получить значения передаваемых переменных. Т.е. как присвоить эти значения каким-то локальным переменным?
2) Чтение и запись в файл.
Нужно построчно прочитать файл (~7.5 Mb) и сохранить всю инфу из него в файл с другим именем. После этого не закрывая новый файл нужно дописать в него строку.
Как это можно сделать?
ЗЫ. Понимаю что вопросы ламерские, но просьба ногами не пинать :)
1. можно использовать модуль CGI (use CGI) и получать значения при помощи его методов:
либо парсить внутри скрипта переменную $ENV{REQUEST_URI}.
2.
Код:
my $param1 = CGI::param("param1");
либо парсить внутри скрипта переменную $ENV{REQUEST_URI}.
2.
Код:
#!perl
my $string = "Hello world\n";
open FILE_OLD, "+<test.txt";
open FILE_NEW, ">test2.txt";
my @buf = <FILE_OLD>;
print FILE_NEW @buf;
print FILE_OLD $string;
close (FILE_OLD);
close(FILE_NEW);
my $string = "Hello world\n";
open FILE_OLD, "+<test.txt";
open FILE_NEW, ">test2.txt";
my @buf = <FILE_OLD>;
print FILE_NEW @buf;
print FILE_OLD $string;
close (FILE_OLD);
close(FILE_NEW);
File::Slurp - для работы с файлами посмотри
