|
|
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/173513f3033ad.html, оценка из 5, голосов 10
|