Разбор лога поисковых запросов на Perl-е
Выплыла старая задача – разобрать текстовый лог на предмет фраз введенных в поисковых системах.
После недолгих раздумий получился маленький скрипт на Perl-е.
Использование. На вход ему подается файл isa_log.txt, на выходе имеем файл isa_log_decode.txt.
#!/usr/bin/perl
open FILE, "<isa_log.txt";
open WFILE, ">isa_log_decode.txt" or die $!;
my @lines = <FILE>;
foreach $lines (@lines) {
print "$lines";
$str = urldecode ($lines);
print WFILE $str;
}
close FILE;
close WFILE;
sub urldecode {
my($string) = $_[0];
$string =~ s/\+/ /g;
$string =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
#$string =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/ge;
return($string);
}
Похожие статьи
PDF Приглашаю присоединиться ко мне в следующих сервисах:
Если Вам понравилась статья, то вы можете подписаться на RSS. А также бесплатно подписаться по E-mail и получать актуальную информацию в числе первых.
Вы можете оставить комментарий.
