ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     20 May 2002  10:22:26
 To : Slava Rahmatov
 Subject : Re: кодировка
 -------------------------------------------------------------------------------- 
 

 Slava Rahmatov <Slava.Rahmatov@f60.n5085.z2.fidonet.org> wrote:
 
 > Hello All!
 > 
 > А тексте (1251) имеется следущие строки:
 > 
 > Department:  ЦРБ
 > Department:  (пусто)
 > 
 > Разбивая ее splitом и отсекая "\x0D\x0A" столкнулся с такой проблемой -
 > в любом случае выдает "error"
 > 
 >      $cr="\x0D\x0A";
 >      @records = split(/:/,$_,2);
 >      $records[1] =~ s /$cr//;
 
 s/[\r\n]//g;
 ($dep) = /^Department:\s+(.*)/;
 printf "\$dep %sdefined\n", $dep ? '' : 'un';
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    кодировка   Slava Rahmatov   18 May 2002 18:30:05   Re: кодировка   Vladimir Podgorny   20 May 2002 10:22:26   кодировка   Andrew Alakozow   20 May 2002 08:41:03