Архив форумов ЦИТФорума

[andropov]

Кто нибудь встречался с такой ошибкой в PERL?
Global symbol "$link" requires explicit package name at pad_extractor.cgi line 6

Начало скрипта:
#!/usr/bin/perl -w

use strict;
use POSIX qw(locale_h);
use locale;
setlocale(LC_CTYPE, "ru_RU.CP1251");
use LWP::UserAgent;
use DBI;

#my $pad_links;
#my $link;

my $dbh = DBI->connect('DBI:xxx','xxx','xxx',{PrintError => 0, RaiseError => 1});

my $sth = $dbh->prepare('UPDATE pads SET deleted=1');
$sth->execute();
$sth->finish();