мозги сломал

От Gennadij Pastuhov (2:5036/26) к Stas Mishchenkov

Рад всех приветствовать! А особенно - Stas!

 Суббота октября 17 20 11:15 Stas Mishchenkov писал к All:

 SM>         use locale;

 SM> #       [...]

 SM>         undef $fromchrs;

 SM>         if ( $Text =~ /\001CHRS\:[ ]*([^ ]+)[ ]+\d+/ ) {

Может, тут лучше так:                 \s*        \s+

 SM>                 $fromchrs = lc($1);

 SM>                 writelog("Charset found: \'$fromchrs\'.");

 SM>         } else {

 SM>                 $fromchrs = 'cp866';

 SM>                 writelog('Warning: No @CHRS kludge. Using default

 SM>         }

 SM> Текст письма содержит кладж "@CHRS: UTF-8 4", но $1 и $fromchrs

 SM> устанавливается CP866. Другие кладжи рспознает, правда, я не проверял,

 SM> все ли. При чем, в данном конкретном случае текст вообще не содержит

 SM> строки CP866. В чем прикол, откуда оно может браться?

Что говорит regex101 ? ИМХО, дело в символе \001

... Jonny wanna live

--- GoldED+/W32 1.1.5-041013     xenofont.chat.ru         skype pastuhovgena

 * Origin: Чёрнaя дырa - труднодоступнaя aфрикaнскaя провинция (2:5036/26)

Ответы на это письмо:

From: Username
Заголовок следующего сообщения в треде может быть длинным и его придется перенести на новую строку

From: Username
Или коротким