Просмотр сообщений
16
Perl / Template Toolkit
« : 10 Апреля 2006, 07:50:42 »
Как поставить под AS Perl 5.8.6.811?
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
18
Perl / Первая строчка
« : 26 Февраля 2006, 13:53:41 »
Народ подскажите пожалуйста!
Имеется тествовый файл с большим количеством строчек, нужно прочитать первую строку размером 10 символов, не читая весь файл в массив(типа файл большой). Чтобы система вообщем не грузилась.
Плиз конкретный рецепт, а не ссылку на литературу. Просто срочно надо!
Имеется тествовый файл с большим количеством строчек, нужно прочитать первую строку размером 10 символов, не читая весь файл в массив(типа файл большой). Чтобы система вообщем не грузилась.
Плиз конкретный рецепт, а не ссылку на литературу. Просто срочно надо!
19
Perl / Чертова закачка
« : 29 Сентября 2005, 14:43:42 »
Скрипт:
#!/usr/bin/perl
$SIG{ALRM} = sub { die "$0 timed out" }; # эти 2 строки не работают под
alarm 900; # Windows, но они необязательны
use Fcntl;
use CGI qw(param);
use CGI qw (:standard); # читайте "perldoc CGI"
use CGI::Carp qw (fatalsToBrowser); # вывод ошибок к browser-у
$CGI::POST_MAX = 1024*3; #3Кб
my $login = param (\'login\');
my $pass = param (\'pass\');
my $banner = param (\'banner\');
my $dir = \'u:/home/www/banners\';
if($banner !~ /([\\w-]+ \\. (?: gif | jpe?g ))$/ix){
if (not sysopen FILE, "$dir/$1", O_EXCL | O_CREAT | O_WRONLY, 0444)
{
print "Location: oshibka.shtml\\n\\n";
}
else{
binmode FILE; # включить binmode для Windows
print FILE while (<$banner>); # и скопировать данные в файл
close FILE;
print "Location: go.cgi?login=$login&&pass=$pass\\n\\n";
}
}else{
print "Location: oshibka.shtml\\n\\n";
}
1. Я так понимаю в 3 Кб входит и логин с паролем. Как сделать чтобы они не учитывались.
2. Если файл больше 3 Кб скрипт вообще ошибку сразу дает и никакого oshibka.shtml.
Чего делать?
#!/usr/bin/perl
$SIG{ALRM} = sub { die "$0 timed out" }; # эти 2 строки не работают под
alarm 900; # Windows, но они необязательны
use Fcntl;
use CGI qw(param);
use CGI qw (:standard); # читайте "perldoc CGI"
use CGI::Carp qw (fatalsToBrowser); # вывод ошибок к browser-у
$CGI::POST_MAX = 1024*3; #3Кб
my $login = param (\'login\');
my $pass = param (\'pass\');
my $banner = param (\'banner\');
my $dir = \'u:/home/www/banners\';
if($banner !~ /([\\w-]+ \\. (?: gif | jpe?g ))$/ix){
if (not sysopen FILE, "$dir/$1", O_EXCL | O_CREAT | O_WRONLY, 0444)
{
print "Location: oshibka.shtml\\n\\n";
}
else{
binmode FILE; # включить binmode для Windows
print FILE while (<$banner>); # и скопировать данные в файл
close FILE;
print "Location: go.cgi?login=$login&&pass=$pass\\n\\n";
}
}else{
print "Location: oshibka.shtml\\n\\n";
}
1. Я так понимаю в 3 Кб входит и логин с паролем. Как сделать чтобы они не учитывались.
2. Если файл больше 3 Кб скрипт вообще ошибку сразу дает и никакого oshibka.shtml.
Чего делать?
20
use LWP::Simple;
@doc = get \'http://script.ru/export.shtml\';
Текст в charset=windows-1251, а принимается почему то koi8-r, не понимаю почему(как объяснить) и как раскодировать. Только пожалуйста пример.
@doc = get \'http://script.ru/export.shtml\';
Текст в charset=windows-1251, а принимается почему то koi8-r, не понимаю почему(как объяснить) и как раскодировать. Только пожалуйста пример.
21
#!/usr/bin/perl
$bannerspath1="u:/www/show/";
###############################################################################
$content_type = $ENV{\'CONTENT_TYPE\'};
binmode STDIN;
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
if ((!$content_type) || ($content_type =~ m#^multipart/form-data#)){
($boundary = $content_type) =~ s/^.*boundary=(.*)$/\\1/;
@pairs = split(/--$boundary/, $buffer);
@pairs = splice(@pairs,1,$#pairs-1);
for $part (@pairs)
{
($dump,$fline,$value) = split(/\\r\\n/,$part,3);
next if $fline =~ /filename=\\"\\"/;
$fline =~ s/^Content-Disposition: form-data; //;
(@columns) = split(/;\\s+/, $fline);
($name = $columns[0]) =~ s/^name="([^"]+)"$/\\1/g;
if ($#columns > 0)
{
if ($value =~ /^Content-Type:/)
{
($dump,$dump,$value) = split(/\\r\\n/,$value,3);
}
else {($dump,$value) = split(/\\r\\n/,$value,2);}}
else {($dump,$value) = split(/\\r\\n/,$value,2);
if (grep(/^$name$/, keys(%CGI))) {
if (@{$FORM{$name}} > 0) {
push(@{$FORM{$name}}, $value);}
else {
$arrvalue = $FORM{$name};
undef $FORM{$name};
$FORM{$name}[0] = $arrvalue;
push(@{$FORM{$name}}, $value);}}
else {
next if $value =~ /^\\s*$/;
$FORM{$name} = $value;}
next;}
$FORM{$name} = $value;}}
else{
@pairs2 = split(/&/, $buffer);
foreach $pair2 (@pairs2)
{
($name2, $value2) = split(/=/, $pair2);
$value2 =~ tr/+/ /;
$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value2 =~ s///g;
$input{$name2} = $value2;
}}
###############################################################################
if($FORM{\'pic\'} ne ""){
######################
$id=time();
$upfile = $FORM{\'pic\'};
$post=".jpg";
$upname = "$id$post";
$filename = $upname;
$FORM{what}=~ s/^\\s+//;$FORM{what}=~ s/\\s+$//;
$namepic=$FORM{pic};
$namepic=~ s/^\\s+//;$namepic=~ s/\\s+$//;
$base=$bannerspath1;$path="banners";
open (NEWINFO, ">>$path/pics.pl");print NEWINFO "$filename $namepic\\n";close (NEWINFO);
chdir($base);
open(FILE1, ">$filename");
binmode FILE1;
print FILE1 $upfile;
close FILE1;
print "Location: script.cgi?action=banners\\n\\n";
}else{
print "Location: script.cgi?action=addbanner\\n\\n";
}
Объясните где в скрипте имя файла, которое я закачиваю. Потому как form{pic} дайет саму картинку, а мне нужно строчку закачки или хотя бы имя.
$bannerspath1="u:/www/show/";
###############################################################################
$content_type = $ENV{\'CONTENT_TYPE\'};
binmode STDIN;
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
if ((!$content_type) || ($content_type =~ m#^multipart/form-data#)){
($boundary = $content_type) =~ s/^.*boundary=(.*)$/\\1/;
@pairs = split(/--$boundary/, $buffer);
@pairs = splice(@pairs,1,$#pairs-1);
for $part (@pairs)
{
($dump,$fline,$value) = split(/\\r\\n/,$part,3);
next if $fline =~ /filename=\\"\\"/;
$fline =~ s/^Content-Disposition: form-data; //;
(@columns) = split(/;\\s+/, $fline);
($name = $columns[0]) =~ s/^name="([^"]+)"$/\\1/g;
if ($#columns > 0)
{
if ($value =~ /^Content-Type:/)
{
($dump,$dump,$value) = split(/\\r\\n/,$value,3);
}
else {($dump,$value) = split(/\\r\\n/,$value,2);}}
else {($dump,$value) = split(/\\r\\n/,$value,2);
if (grep(/^$name$/, keys(%CGI))) {
if (@{$FORM{$name}} > 0) {
push(@{$FORM{$name}}, $value);}
else {
$arrvalue = $FORM{$name};
undef $FORM{$name};
$FORM{$name}[0] = $arrvalue;
push(@{$FORM{$name}}, $value);}}
else {
next if $value =~ /^\\s*$/;
$FORM{$name} = $value;}
next;}
$FORM{$name} = $value;}}
else{
@pairs2 = split(/&/, $buffer);
foreach $pair2 (@pairs2)
{
($name2, $value2) = split(/=/, $pair2);
$value2 =~ tr/+/ /;
$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value2 =~ s///g;
$input{$name2} = $value2;
}}
###############################################################################
if($FORM{\'pic\'} ne ""){
######################
$id=time();
$upfile = $FORM{\'pic\'};
$post=".jpg";
$upname = "$id$post";
$filename = $upname;
$FORM{what}=~ s/^\\s+//;$FORM{what}=~ s/\\s+$//;
$namepic=$FORM{pic};
$namepic=~ s/^\\s+//;$namepic=~ s/\\s+$//;
$base=$bannerspath1;$path="banners";
open (NEWINFO, ">>$path/pics.pl");print NEWINFO "$filename $namepic\\n";close (NEWINFO);
chdir($base);
open(FILE1, ">$filename");
binmode FILE1;
print FILE1 $upfile;
close FILE1;
print "Location: script.cgi?action=banners\\n\\n";
}else{
print "Location: script.cgi?action=addbanner\\n\\n";
}
Объясните где в скрипте имя файла, которое я закачиваю. Потому как form{pic} дайет саму картинку, а мне нужно строчку закачки или хотя бы имя.
22
Пишу:
#!/usr/bin/perl
use CGI;
$cgi=new CGI;
$search=$cgi->param(\'go\');
$gde="http://www.nwcinema.ru/cgi-bin/search/searchstring.cgi";
my $search = $cgi->escape($cgi->param(\'go\'));
print "Location: http://site/cgi-bin/search/searchstring.cgi?go&searchstring=$search\\n\\n";
На выходе получаю:
http://site/cgi-bin/search/searchstring.cgi?go&searchstring=CGI%3DHASH%280x80fbb4c%29
Чего за фигня, может кто знает. Только без почитай perldoc.
#!/usr/bin/perl
use CGI;
$cgi=new CGI;
$search=$cgi->param(\'go\');
$gde="http://www.nwcinema.ru/cgi-bin/search/searchstring.cgi";
my $search = $cgi->escape($cgi->param(\'go\'));
print "Location: http://site/cgi-bin/search/searchstring.cgi?go&searchstring=$search\\n\\n";
На выходе получаю:
http://site/cgi-bin/search/searchstring.cgi?go&searchstring=CGI%3DHASH%280x80fbb4c%29
Чего за фигня, может кто знает. Только без почитай perldoc.
24
Perl / Работа с картинками
« : 13 Февраля 2005, 18:07:46 »
Появилось несколько вопросов:
1) Как узнать размер картинки(в пикселях);
2) Как узнать размер картинки в байтах;
3) Как узнать gif или jpeg картинка;
4) Как изменить ее размер например: из 100X100 в 60X50. Т.е. сжать до 60X60, а потом обрезать нижние 10 пискелей.
5) Как совместить две картинки. Например, первая квадрат, а вторая окружность с прозрачным внутри треугольником.
Как это все это узнать на лету. Не закачивая картинку на сервер. Хочется увидеть подробный пример: а не ссылки perldoc. Может кто занимался, знает...
1) Как узнать размер картинки(в пикселях);
2) Как узнать размер картинки в байтах;
3) Как узнать gif или jpeg картинка;
4) Как изменить ее размер например: из 100X100 в 60X50. Т.е. сжать до 60X60, а потом обрезать нижние 10 пискелей.
5) Как совместить две картинки. Например, первая квадрат, а вторая окружность с прозрачным внутри треугольником.
Как это все это узнать на лету. Не закачивая картинку на сервер. Хочется увидеть подробный пример: а не ссылки perldoc. Может кто занимался, знает...
25
Perl / по cookies
« : 25 Сентября 2004, 07:38:34 »
Записываю cookies
print header(-cookie=>[$namecookie, $passcookie]);
а затем у меня идет пересылка
print "Location: gb.cgi\\n\\n";
Так он мне её отображает на странице, т.е. в html вписывает. Что делать?
print header(-cookie=>[$namecookie, $passcookie]);
а затем у меня идет пересылка
print "Location: gb.cgi\\n\\n";
Так он мне её отображает на странице, т.е. в html вписывает. Что делать?
26
Веб Сервера / Проблема с Apache
« : 28 Июня 2004, 06:30:07 »
У меня стоял Apache на Win98 все домены работали нормально(те что в файле hosts), поставил XP и изменил диск с f:/ на u:/ и все кроме localhost ничего не работает... У меня Apache 1.3
27
Perl / Недопустимые символы
« : 17 Декабря 2003, 16:28:39 »
Чищу форму от ковычек пишу:
$ppr=""";
$form{sitename}=~s/"/$ppr/g;
Пытаюсь это:
$ppr="|";
$form{sitename}=~s/$ppr//g;
Знак "|" не исчезает.
Что делать?
$ppr=""";
$form{sitename}=~s/"/$ppr/g;
Пытаюсь это:
$ppr="|";
$form{sitename}=~s/$ppr//g;
Знак "|" не исчезает.
Что делать?
28
Perl / Русские буквы и регистр.
« : 13 Ноября 2003, 03:09:01 »
Возникла такая проблема:
"На сайте hotcats.ru есть поиск http://www.hotcats.ru/cgi-bin/search/search.cgi при вводе "Бритни" скрипт находит строки, а при вводе "бритни" ничего не находит, хотя при вводе что "Britney", что "britney" все находится. С чем это может быть связано?"
Хостер ответил:
"Для того, чтобы скрипты (что Perl, что РНР) работали с русскими буквами полностью корректно нужно в них в явном виде указывать LOCALE - копать нужно в этом направлении
."
Подскажите что это за LOCALE. Заранее благодарен!
"На сайте hotcats.ru есть поиск http://www.hotcats.ru/cgi-bin/search/search.cgi при вводе "Бритни" скрипт находит строки, а при вводе "бритни" ничего не находит, хотя при вводе что "Britney", что "britney" все находится. С чем это может быть связано?"
Хостер ответил:
"Для того, чтобы скрипты (что Perl, что РНР) работали с русскими буквами полностью корректно нужно в них в явном виде указывать LOCALE - копать нужно в этом направлении
."Подскажите что это за LOCALE. Заранее благодарен!
29
Perl / ГЕО таргетинг
« : 15 Августа 2003, 10:26:51 »
У меня есть некоторое кол-во ip как мне их разбить по странам, городам и т.д. с помощью скрипта?
30
Perl / Обработка запроса через метод GET
« : 27 Июля 2003, 08:59:15 »
Даю запрос через форму методом GET в строке пишет:
search.cgi?search=Asbestos+%FD%EA%F1%EF%EE%F0%F2&B3=%E8%F1%EA%E0%F2%FC&place=1
Обрабатываю параметры: $search=$cgi->param(\'search\');
Далее мне нужно перекинуть на один из 4-х скриптов в зависимости от того что выбрано. Делаю:
Location: search1.cgi?go&searchstring=Asbestos экспорт&sortby=date&type=exact&badstring=
Но " экспорт" получилось уже русскими символами. А не +%FD%EA%F1%EF%EE%F0%F2. Как сделать чтобы они не становились русскими до дальнейшей обработки?
search.cgi?search=Asbestos+%FD%EA%F1%EF%EE%F0%F2&B3=%E8%F1%EA%E0%F2%FC&place=1
Обрабатываю параметры: $search=$cgi->param(\'search\');
Далее мне нужно перекинуть на один из 4-х скриптов в зависимости от того что выбрано. Делаю:
Location: search1.cgi?go&searchstring=Asbestos экспорт&sortby=date&type=exact&badstring=
Но " экспорт" получилось уже русскими символами. А не +%FD%EA%F1%EF%EE%F0%F2. Как сделать чтобы они не становились русскими до дальнейшей обработки?