Recent Content by demonoid

учите русский .

вроде или точно ? %) поскольку тип форм по умолчанию application/x-www-form-urlencoded , это стоит делать

#!/usr/bin/perl -w use LWP::UserAgent; my $ua = new LWP::UserAgent; my $q = $ua->post( 'http://connect.ua/spotlight?id=317891', [...

my $url : shared; $url = 'http://vip-file.com/download/ae25b2336179/asdwqerfawdq3d.htm.html'; .... my $cp : shared; $cp = 0; Выглядит не...

use URI::Escape; my $url = uri_escape( 'http://search.cpan.org/~gaas/URI/URI/Escape.pm' );

Тренировался в написании модулей ( классов ) package BOCR; use strict; use GD; use constant { RED => 44,...

2 ZET36 вопрос весьма серьёзный xD $ perl -e '@a = ('a'..'z');print @a,"\n"' abcdefghijklmnopqrstuvwxyz $ 2 Велемир use IO::Socket;

my $f; open FILE ,'file.txt' or die $!; { local $/ = undef; $f = <FILE>; } close FILE; $f - скаляр в котором содержание файла...

"чтобы правильно задать вопрос, надо знать половину ответа" .... правильно выражать свои мысли тоже целая наука , перефразируй - с расстановкой...

$date замени на : ${ \join '-' => 1900+(localtime)[5] => (('01'..'12')[(localtime)[4]]) }; xD

(print "Accont $mail is deleted\n" and next) unless $idd;

$act=='del' это что такое ? строчное равно ? =] $act eq 'del' $host='vkontakte.ru'; ...... chomp($host); Зачем? =] разве в скаляре...

GetOptions( "fields=s" => \$options{fields}, "maps=s" => \$options{maps}, "logs=s" => \$options{logs}, "help" => \$options{help} );...

Естественно объявление массива не должно было быть в цикле пропустил многоточие xD genom-- сердечно благодарю тебя за минусы xD perldoc -f...

my $socket = IO::Socket::INET->new( PeerAddr => $host, PeerPort => $port, Proto => 'tcp', Type => SOCK_STREAM)... проще так: my...