Главная страница


ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  05 Aug 2003  18:29:34
 To : All
 Subject : Вопросы
 -------------------------------------------------------------------------------- 
 
 _*ЯЯЯЯЯ*_        ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
 1) RegExp.
 
 $index='2f';
 if ($index=~/[0-9]/){
 print "OK";
 }
 
 Как сделать, чтобы все символы удовлетворяли условию диапазона ?
 
 2) Как возвести число в степень.
 
 P.S. Просьба не писать "perldoc xxx", а кинуть примерчик с описанием.
 Хотя-бы в двух словах.
 
 3) И всё же, киньте пример реализации класса, ОК ?
 
 Hижеследующее не катит:
 
 sub new {
     my $class = shift;
     unshift(@_, "PeerAddr") if @_ == 1;
     return $class->SUPER::new(@_);
 }
 
 4) Мне нужно отслеживать пакетом аварийное завершение обработки главного скрипта
 (недопустить 500-ой ошибки).
 
 Почему нижеследующее не фурычит:
 
 package blin;
 use Exporter();
 @ISA=qw(Exporter);
 @EXPORT=qw(new);
 #@EXPORT_OK=qw();
 $main::SIG{__DIE__}=blin->myEvent;
 sub myEvent{
 print 'OK';
 }
 
 ?
 
 5) RegExp.
 
 В ячейках массива @values хранятся значения диапазона [0-9a-f].
 
 Hужно всех их проверить на совпадение с $lastEID регулярным выражением.
 
 Пробую:
 
    for ($a=0;$a<scalar(@values);$a++){
       $wr.='['.$values[$a].']|';
    }
    $wr=substr($wr,0,rindex($wr,'|'));
 
    if (eval("return (\$lastEID!~/$wr/?1:0)")){
       ...
    }
 
  - не фурычит...
 
 ъ ъъъДН» Hу я вроде все сказал... Пока, _*All*_ !     
 ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
 
 ... Людям свойственно приписывать другим качества, присущие им самим.
 --- GoldEd 3.00.Beta5+
  * Origin: Windows - вирус с удобным интерфейсом. (2:5020/40.102)
 
 

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

 Тема:    Автор:    Дата:  
 Вопросы   Vadim Tzirulnicov   05 Aug 2003 18:29:34 
 Re: Вопросы   Konstantin Tokar   07 Aug 2003 00:10:02 
 Вопросы   Vadim Tzirulnicov   08 Aug 2003 21:54:04 
Архивное /ru.perl/173513f3033ad.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional