ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  08 Dec 2003  21:01:25
 To : All
 Subject : Баг ?
 -------------------------------------------------------------------------------- 
 

 Hаписал на эхотаге тоссер. Hаписал постилку для своих эх.
 Hо вот трабла: если загоняю в eval(); текст большого объёма в DOS-кодировке,
 то после обработки данной функцией он обрезается (?).
    return eval('return "\x02\x00'.
      '\x'.substr($nodeFrom,2,2).'\x'.substr($nodeFrom,0,2).
      '\x'.substr($nodeTo,2,2).'\x'.substr($nodeTo,0,2).
      @_[8].'";');
 Где @_[8] - входные данные в DOS-кодировке.
 Затем данные загоняются в архив:   $zip = Archive::Zip->new();
    return 0 unless $zip->read( @_[1].'/'.$fileName ) == AZ_OK;
    $member = $zip->addString( @_[2], sprintf("%X",time).".PKT" );
    $zip->writeToFileNamed( @_[1].'/'.$fileName );
 При использовании скрипта создаются файлы, названиями которых служат отрывки из 
 содержимого в DOS-кодировки (?).
 Когда исправил eval (см. выше) на
    return eval('return "\x02\x00'.
      '\x'.substr($nodeFrom,2,2).'\x'.substr($nodeFrom,0,2).
      '\x'.substr($nodeTo,2,2).'\x'.substr($nodeTo,0,2).'";').
      @_[8];
 , все проблемы исчезли...
 
 ... Женщина ради любви готова пойти на секс. Мужчина ради секса - на любовь
 --- Team: [Ru.Znakomstva] [Mo.Apartments] [Mo.Apartments.Talk]
 
 

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