|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : dimka kuvshinov 2:5020/400 14 Sep 2000 20:18:09
To : All
Subject : чего это за символ???
--------------------------------------------------------------------------------
^@ читаю его vi видит, но не редактирует, только под joe редактировать можно,
изнажимал всю клаву как только мог, всевозможные комбинации, не нашел этого
файла, ^A и ^M нашел, ^@ не нашел, а по нему в файле информация разбита...
может кто знает?
ищу этот символ в файле таким кодом:
#!/usr/bin/perl -wT
use CGI 'param';
$slovo=param('word');
$ok=param('ok');
$nomer=param('nomer');
$zapros="http://genphys.phys.msu.su/cgi-bin/dk/1.pl?word=";
$put="/usr/home/dmitriy/public_html/adres.dat";
$content = "content-type: text/html\n\n";
&pp(@ret);
@massive=pp(@ret);
&sortirovka(@results);
@res=sortirovka(@results);
print $content;
foreach($i=0; $i<=$#res; $i++){
push(@pervij,"$i") if($i<=$nomer && $i % 20 == 0);
print $res[$i], "\n" if($i>=$nomer && $i<$nomer+20);
push(@vtoroj,"$i") if($i>=$nomer+20 && $i % 20 == 0);
}
print "najdeno ", $#res+1," dokumentov\n<br>";
sub pp ($$) {
my @ret = ();
open(F,"<$put") or return undef;
while (<F>) {
if (m/###(.*) - ###(.*)###(.*)###/ig) {
my $ppp=$1." ".$3;
my $str = "$1: <a href=\"$2\">$3<\/a><br> \n";
push (@ret, lc $str) if ($ppp =~ m/$slovo/ig);
}
}
return @ret;
}
sub sortirovka {
my @results = ();
if($ok eq "alfavit"){
foreach $alfavit(sort @massive){
push (@results, $alfavit);
}
}
else{
@results=@massive;
}
return @results;
}
возвращает полную билеберду....
собсно это поисковик по файлу, этому самому бинарному,чего всетки это за
символ ^@, который можно joe только редактировать??? ... еще такой вопрос,
скажите, почему поиск по одному файлу так жутко тормозит??? всего 2500 строк,
~3
секунды считает.
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
