PDA

Просмотр полной версии : Perl High Perfomance parser?


gg.Groove
18.10.2011, 20:57
Будет ли работаь?

print "Starting script";
use File::Slurp;
my $subject = read_file( 'index.html' ) ;
print "File to parse loaden";
print "Phase one: Filter UIDs";
print "Phase one: Start";
$subject2
while ($subject =~ m/u=\d{6}/g) {
$subject2 = $subject2 + $&
}
print "Phase one: End";
print "";
print "Phase two: Filter Numbers";
print "Phase two: Start";
@result = $subject2 =~ m/\d{6}/g;
print "Phase two: End";
print "";
print "Printing to success.txt";
[Ссылки могут видеть только зарегистрированные и активированные пользователи]