Темы

1

Perl / Socket\'ы

« : 26 Июля 2005, 21:35:16 »

Начал изучать сокеты, решил написать простенький сканер одного порта... Но что не получается, прога выполняется без вылета ошибок, но в файл ничего не пишет! Помогите пожалста, заранее благодарен!
#!/usr/bin/perl

use IO::Socket;
$ip = 127.0.0.1;
$port = 80;
$timeout = 0;
$log = \'rezult.txt\';
$|=1;

sub connectIP {
my($socket);
$socket=IO::Socket::INET->new( PeerAddr => $ip,
PeerPort => $port,
Proto => tcp,
Timeout => $timeout,
);
unless ($socket) { return -1 }
close ($socket);
return 1;
}

sub logg {
open(LOGG,">rezult.txt");
print LOGG "$ip\\:$port\\n";
close(LOGG)
}

$rez = &connectIP;
if ($rez == 1) { &logg("$ip") }

2

Perl / Smiles

« : 21 Июля 2005, 08:34:54 »

Пишу гостевуху на perl, но есть проблемка! Вот кусок скрипта прикручивающего смайлики:

@images=("smile.gif","frown.gif","redface.gif","biggrin.gif","wink.gif",
"tongue.gif","cool.gif","rolleyes.gif",
"mad.gif","eek.gif","confused.gif");

$img0=$images[0];
$src0="$path$img0";
$img1=$images[1];
$src1="$path$img1";
$img2=$images[2];
$src2="$path$img2";
$img3=$images[3];
$src3="$path$img3";
$img4=$images[4];
$src4="$path$img4";
$img5=$images[5];
$src5="$path$img5";
$img6=$images[6];
$src6="$path$img6";
$img7=$images[7];
$src7="$path$img7";
$img8=$images[8];
$src8="$path$img8";
$img9=$images[9];
$src9="$path$img9";
$img10=$images[10];
$src10="$path$img10";

@pairs = split(/&/, $query);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value=~s/:)//g;
$value=~s/:(//g;
$value=~s/:o//g;
$value=~s/:D//g;
$value=~s/;)//g;
$value=~s/:p//g;
$value=~s/:cool://g;
$value=~s/:rolleyes://g;
$value=~s/:mad://g;
$value=~s/:eek://g;
$value=~s/:confused://g;
$input{$name} = $value;
}

Но когда я проверяю его из консоли, на наличие ошибок выдает:

root@home:/usr/local/apache2/cgi-bin:# ./gbook.cgi
Unmatched ) in regex; marked by <-- HERE in m/":) <-- HERE "/ at ./gbook.cgi line 44.

А в браузере ошибку 500, подскажите где ошибка???