Темы

1

Perl / [Решено] Помогите, плз! Сортировка хеша. Разные результаты в консоли и в web...

« : 08 Декабря 2005, 18:58:04 »

Помогите, плз! Сортировка хеша. Разные результаты в консоли и в web...

Куски и скрипта:

use strict;
use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, \'ru_RU.KOI8-R\');

sub view_tree {
   my ($root) = @_;
   foreach my $attr (sort keys %$root) {
      if (ref($root->{$attr}) ne \'HASH\') {
          print "$attr: $root->{$attr}\\n";
      } else {
          view_tree($root->{$attr});
      }
   }
}

# Создаем дерево
....

# Выводим дерево
&view_tree($my_root);

Локаль KOI8-R.
В консоли все супер.
Но в выводе в web хаотичный вывод. Как бы дерево, но без сортировки.
Почему выводы отличаются? Где копать?

Спасибо огромное заранее!

2

Perl / модуль Mail::Sender. Помогите плз

« : 23 Марта 2005, 13:55:47 »

Пытаюсь сделать рассылку письма с вложением с линукс машины.
Все как-бы нормально, Виндовс-клиенты корректно видят письмо, тему. Но вложение приходит с именем крякозябриками.
Это нормально? Мне для рассылки для Видовс-машин надо перекодировать название вложения? Как-то это через... получается.

if ($mail) {
if ($email) {
print "$xls_file на $email... ";
my $sender = new Mail::Sender {
smtp => \'smtp.mail.server\',
from => \'sender@mail.server\',
replyto => \'sender@mail.server\',
on_errors => \'code\',
charset => \'KOI8-U\',
};

die "Mail::Sender: $Mail::Sender::Error" unless ref $sender;

ref $sender->OpenMultipart({
to => $email,
subject => "Вложение",
charset => \'KOI8-U\',
encoding => \'quoted-printable\',
})
or die "$sender->{\'error_msg\'}";

$sender->Body(\'KOI8-U\', \'quoted-printable\', \'text/plain\');

$sender->SendEnc(<Текст письма
EOS
$sender->SendFile({
description => "Microsoft Excel file $xls_file",
ctype => \'application/vnd.ms-excel\',
encoding => \'Base64\',
disposition => \'attachment; filename="\'.$xls_file.\'"\',
file => $xls_file
});

$sender->Close
or die "$sender->{\'error_msg\'}";

print "OK\\n";
}

3

Perl / Помогите с Spreadsheet::Writeexcel плиз

« : 29 Октября 2004, 02:36:14 »

Использую весию модуля 2.11, пробовал также 0.43
Perl 5.8.4, Linux, KOI8-R

Создаю файл, пишу по-ангийски - все ок.
По-русски - козябрики.

Где рыть? Очень надо однако...