ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Slava Rahmatov                       2:5085/60      18 May 2002  18:30:05
 To : All
 Subject : кодировка
 -------------------------------------------------------------------------------- 
 

 
 А тексте (1251) имеется следущие строки:
 
 Department:  ЦРБ
 Department:  (пусто)
 
 Разбивая ее splitом и отсекая "\x0D\x0A" столкнулся с такой проблемой -
 в любом случае выдает "error"
 
       $cr="\x0D\x0A";
       @records = split(/:/,$_,2);
       $records[1] =~ s /$cr//;
 
       if( $records[0] =~ "^Department")
       {
       $dep=substr($records[1],2);
           if($dep !~ /\w+/)
        {
          $dep="error";
          print "$dep\n"
        }
     else
     {
          print "$dep\n"
     }
 
 Hадо проверить что $records[1] ничего содержит...
 Что можно сделать и как проверить что $records[1] не содержит ничего кроме
 пробелов и $dep пуст ?!
 
 Wish You Luck.
 
 ... Timeo Danaos et dona ferentes
 --- GoldED+/W32 1.1.3.1
  * Origin:  ----> Default GoldED Origin <----  (2:5085/60)
 
 

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

Тема:    Автор:    Дата:    кодировка   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