Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Wyclef

Страницы: [1] 2 3 ... 22
1
Perl / Про кодировку
« : 05 Сентября 2008, 03:27:26 »
на консоли windows koi не будет, указывать заголовок нужно для вывода в обозревателе

2
Perl / Про кодировку
« : 04 Сентября 2008, 13:05:55 »
перед выводом на экран (перед первым print)
если в скрипте используется модуль CGI, то должно быть что-то вроде:
Код: [Выделить]
print $query->header({ -type => \'text/html\', -charset => \'koi8-r\' });

3
Perl / Про кодировку
« : 04 Сентября 2008, 07:12:06 »
явно задать charset:
Код: [Выделить]
print "Content-type:text/html; charset=koi8-r\\n\\n";

4
Perl / Про кодировку
« : 01 Сентября 2008, 13:08:58 »
использовать редактор с поддержкой koi8-r

5
Флейм / Жопа
« : 01 Апреля 2008, 16:25:18 »
Тест...

Hello world!

6
Perl / Репозитории для ppm
« : 24 Марта 2008, 18:41:52 »
Вариант, поставить perl 5.8.8 (ppm такой же, модулей больше под него), список репозиториев: http://theoryx5.uwinnipeg.ca/ppms/

7
Perl / UTF8
« : 30 Июля 2006, 09:31:11 »
Biggelow
arto хотел сказать, что "use" отработает до начала всех проверок (разница require и use), а в "perldoc Encoding" - тоже есть вся нужная вам информация.

А вообще:
Код: [Выделить]
use Encode;

my $string = "Привет мир!";

Encode::from_to($string, \'windows-1251\', \'utf8\');

print $string;

8
Perl / Дней в месяце
« : 30 Ноября 2005, 13:38:37 »
Код: [Выделить]
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\';

9
Perl / $dbh->disconnect();
« : 09 Октября 2005, 13:37:35 »
dbmodule.pm
Код: [Выделить]
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;

script.pl
Код: [Выделить]
#!/usr/bin/perl

BEGIN { unshift @INC, \'/path/to/modules\' }

use strict;

use lib::dbmodule;

10
Флейм / Помогите настроить siemens CX65
« : 21 Февраля 2005, 20:13:54 »
Timych84
Зачем com - usb..?
Качаешь с того же сименсклаба Mobile Phone Manager, подключаешь свой шнурок и enjoy. Работает на ура.

11
Perl / Задачка на тему хэшей массивов
« : 26 Января 2005, 10:50:19 »
Код: [Выделить]
$firm="aaa";
@models=(\'a\',\'b\',\'c\',\'d\');
$clean_links{$firm}=[@models];
$firm="aa1";
@models=(\'a\',\'b\',\'c\');
$clean_links{$firm}=[@models];

12
Perl / поиск
« : 27 Декабря 2004, 13:55:17 »
Yaroslav
$text =~ /^(pr|to)/ ? &$1() : &false();

13
Perl / Perl и MSSQL - проблема с русскими буковками
« : 26 Ноября 2004, 15:07:35 »
Насколько я помню такая проблема у меня была с FreeTDS v0.60 (у них на сайте вроде даже написано было). Обновил тогда до v0.61 - проблема исчезла... сделал и забыл.

Работает связка FreeBSD + DBD::Sybase + FreeTDS v0.61.

PS: Да, у меня еще выход перекодируется из win в koi.

14
Юмор / Что напишешь - то споют :)
« : 12 Ноября 2004, 09:31:22 »
http://www.sr.se/cgi-bin/p1/src/sing/default.asp

:super:

15
Perl / Значения скобок в регулярных выражениях
« : 04 Ноября 2004, 03:37:08 »
metton
Принципиально в одну строчку и одним регекспом?

Страницы: [1] 2 3 ... 22