|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Yaroslav Kulikov 2:5036/32.13 01 Jan 2001 11:32:37
To : All
Subject : [reg exp] Глюк.
--------------------------------------------------------------------------------
_*ЯЯЯЯЯЯ*_
С новым тысячелетием, народ! Hе подскажет ли кто почему эта фича не работает
корректно?
Фича: m{\.*($stroka)}i различает слова "Вася" и "вася", хотя делать этого не
должна. (В переменной $stroka именно этот "вася" и хранится)
Контекст: (программа оуществляет поиск в текстовых файлах)
_Кстати, может кто знает, почему у меня дома с апачем этот скрипт работает,_ _а
сервер хостинга возвращает ошибку 500 (к логам не посылать - временно не_
_доступны)_
//---===Здесь начинается файл SEARCH.CGI ===---
#!e:/language/perl/bin/perl -w
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$FORM{string} ||= "фуЁръ";
@filenames = glob ('../misc/*.cth');
print "Content-type: text/html \n\n";
open( HEAD, "../misc/header.html" );
while( <HEAD> ) { print };
close( HEAD );
print qq{<font face=serif size=5 color=#999900>Нрщфхэы (яю ьрёъх
*$FORM{string}*):</font>\n};
print qq{<font face="Tahoma,sans-serif"><table border=0 width=100%>\n};
print qq{<col width=20><col width=21><col width=2><col width=*>\n};
$flag = 0;
foreach $filename (@filenames)
{
open( DATAFILE, $filename );
$header = <DATAFILE>;
while( <DATAFILE> )
{
chomp;
$stroka = $FORM{string};
if ( m{\.*($stroka)}i )
##
## _ФИЧА ЗДЕСЬ ^^^^^^^^_ <- /Обратите внимание сюда/
##
{
$flag = 1;
( $phrase, $author ) = split m{\|};
print qq{ <tr>\n <td> </td>\n <td valign=top><img border=0
width=21 height=18 src="../images/dot1.gif" alt="*"></td>\n};
print qq{ <td></td>\n <td><font size=2><b>$phrase };
if ( $author ) { print "($author)"; }
print qq{</b></font></td>\n </tr>\n};
}
}
close( DATANAME );
}
print qq{ <tr>\n <td colspan="4"><font size=2><center><br>};
if ( $flag == 0 ) { print qq{К ёюцрыхэшю, эшчхую эрщтш эх уфрыюёь. }; }
print qq{ПюяЁюсущтх <a href="/search.shtml" title="Нрщтш рфюЁшчьы"
target="_self">яюшёърть хРх</a></center>};
print qq{</font></td>\n </tr>\n};
print qq{</table><br></font>};
open( FOOT, "../misc/footer.html" );
while( <FOOT> ) { print };
close( FOOT );
//---===Здесь кончается файл SEARCH.CGI ===---
Пусть удача не отвернется от Вас. /ЯрикЪ-МанЪярик/
... В ином случае много ума хуже, чем если бы его вообще не было
--- Слyшаю вот "Unknown Artist - Track15.mp3" и письма пишy...
* Origin: Rights_On!-you make 'em-We break 'em! (2:5036/32.13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
