Код: Выделить всё
use strict;
# Used for to determinate encoding and convert
use Lingua::DetectCharset;
use Convert::Cyrillic;
# Used for parse mail
use Mail::Header;
use Mail::Internet;
# Used for insert into database
use DBI;
# Used for date
$ENV{TZ}="BT";
use Date::Manip;
open OUT, ">/usr/local/pgsql/scripts/my";
# Read mail
my $mail = Mail::Internet->new([ <STDIN> ]);
# if mail is right?
if( mail_right ($mail) ) {
print OUT "Not right from mail-addres!!!\n";
}
#print OUT "Main: $body, @$body";
# mail encoding
if(!mail_encoding()) { print OUT "Not right encoding koi8!!! \n" };
# mail_convert
($clients,$sotrud,$istor,$url)=mail_convert(); - ВОТ НА ЭТУ СТРОКУ УЖЕ РУГАЕТСЯ
print OUT %$clients;
print OUT %$sotrud;
print OUT %$url;
#print $prs_a;
# insert in DB
if(!insert_DB($clients,$sotrud,$istor,$url)) { print OUT "Not proper insert in DB!!!! \n"; }
close OUT;Код: Выделить всё
Global symbol "$clients" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57.
Global symbol "$sotrud" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57.
Global symbol "$istor" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57.
Global symbol "$url" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57.
