1
Perl / Про кодировку
« : 05 Сентября 2008, 03:27:26 »
на консоли windows koi не будет, указывать заголовок нужно для вывода в обозревателе
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
print $query->header({ -type => \'text/html\', -charset => \'koi8-r\' });
use Encode;
my $string = "Привет мир!";
Encode::from_to($string, \'windows-1251\', \'utf8\');
print $string;
my @mdays = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my ($month, $year) = ((localtime)[4]+1, (localtime)[5]+1900);
my $mdays = ($year-2000)/4 == int(($year-2000)/4) && $month == 2 ? 29 : $mdays[$month-1];
print $month, \'/\', $year, \' -> \', $mdays, \' days\';
use strict;
use vars qw/@ISA @EXPORT $DBH/;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/
$DBH
&func_1
...
&func_n
/;
use DBI;
my $database = \'database\';
my $username = \'root\';
my $password = \'passw0rd\';
$DBH = DBI->connect("dbi:mysql:$database:localhost:3306", $username, $password, { RaiseError => 1, PrintError => 1 });
END { $DBH->disconnect() if $DBH }
sub func_1 {
...
}
...
sub func_n {
...
}
1;
#!/usr/bin/perl
BEGIN { unshift @INC, \'/path/to/modules\' }
use strict;
use lib::dbmodule;
$firm="aaa";
@models=(\'a\',\'b\',\'c\',\'d\');
$clean_links{$firm}=[@models];
$firm="aa1";
@models=(\'a\',\'b\',\'c\');
$clean_links{$firm}=[@models];