ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     07 Aug 2002  17:44:33
 To : Pinsk CSM
 Subject : Re: Что такое //o?
 -------------------------------------------------------------------------------- 
 

 > 
 > Итак, "хоpошо накоpмив" скpипт входными значениями, мы получили совеpшенно
 > одинаковые pезультаты. Пpавда, под Linux я еще не пpовеpял.
 > 
 > ВЫВОД: После стиpки бpюки выглядят одинаково. А если нет pазницы, зачем
 > стиpка?
 
 Тебе же говорят - если одинаково, значит, тайд ты покупал на рынке и он
 ненастоящий :)
 
 > 
 > А если сеpьезно, то я действительно не понимаю чего-то.
 > 
 > Чего я не понимаю?
 
 В результате проведенных исследований установлено, что perl 5.6.1 (тот в
 частности, который в AS, и который из исходников скомпилирован) имеет
 тут баг. 5.8.0 и 5.005.03 работают в соответствии с теорией
 
 #!perl -w
 use strict;
 my $a='1345678';
 foreach( my $n=1; $n<10; $n++){ print "=$n=" if $a =~ /$n/;
 print "\n";
 foreach( my $n=1; $n<10; $n++){ print "=$n=" if $a =~ /$n/o;}
 Вот правильный результат:
 
 C:\...che\perl\5.00503\bin\MSWin32-x86>perl -w t.pl
 =1==3==4==5==6==7==8=
 =1==2==3==4==5==6==7==8==9=
 C:\...che\perl\5.00503\bin\MSWin32-x86>
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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