ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Tzirulnicov                    2:5020/40.102  08 Aug 2003  21:54:04
 To : Konstantin Tokar
 Subject : Вопросы
 -------------------------------------------------------------------------------- 
 

 _*ЯЯЯЯЯ*_        ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
 
  >> Как сделать, чтобы все символы удовлетворяли условию диапазона ?
  KT>
  KT>   if ($index=~/[\d\w]/){
  KT>   print "OK";
  KT>   }
 
 Ты меня не понял. Допустим, я хочу, чтобы совпадение давалось только, если ВСЕ
 символы переменной соответствуют какому-либо условию.
 Требование, чтобы все символы были числовыми, не катит:
 
 $index='f2';
 if ($index=~/[0-9]/){
 print "OK";
 }
 
 Компилятор находит находит число "2" и успокаивается на этом
 
 Хочется более изящное решение, нежели
 
 $index='f2';
 $len=length($index);
 if ($index=~/[0-9]{$len}/){
 print "OK";
 }
 
 Возможно ли оно (без доп. узнавания длины переменной).
 
  >>
  >> 2) Как возвести число в степень.
  >>
  >> P.S. Просьба не писать "perldoc xxx", а кинуть примерчик с
  >> описанием. Хотя-бы в двух словах.
  KT>
  KT> Hе знаю. Кроме ** только Math::BigFloat приходит в голову.
 
 Как этим пакетом возводить в степень. Однако ж, такой способ слишком громоздок.
 
  KT>
  >>
  >> 3) И всё же, киньте пример реализации класса, ОК ?
  >>
  >> Hижеследующее не катит:
  >>
  >> sub new {
  >>    my $class = shift;
  >>    unshift(@_, "PeerAddr") if @_ == 1;
  >>    return $class->SUPER::new(@_);
  >> }
  >>
  KT>
  KT> Это вообще чёрт знает что. Хакер какой-то расстарался.
 
 Ты имеешь в виду создателя IO::Socket::INET ? :)
 
  KT> package main;
  KT> my $x = new63456345634563456 myclass;
  $x->> print;
  KT>
  KT> Классов в перле нет :(
 
 А вышеприведённое - разве не класс ?
 
 В моём классе последняя строка возвращает "Класс blin=HASH(0x15550ec)".
 данное число - начальная ячейка в памяти ПК, где данный класс располагается, что
 ли ?
 
                ъ ъъъДН» Hу я вроде все сказал... Пока, _*Konstantin*_ !
                       ИНННННННННННННННДДДДДДДДДДДДДДДДДъъъъъ ъ ъ ъ
 ... Windows - вирус с удобным интерфейсом.
 --- GoldEd 3.00.Beta5+
  * Origin: Моя совесть настолько чиста и прозрачна, что её почт (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