Perl Parser

Simple parser for Perl (e.g. IRC-Bot)

#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;
sub gm($)
    my $date = shift;
    my $out;
    my $url = "$date";
    my @values = split('\n', get($url));
    foreach my $val (@values)
        if($val =~ /^.+\|.+\|(.+)\|(.+)\|.+\|.+\|.+\|.+\|.+$/)
            $out .= $1."\t".$2."\n";
    return $out;
my $date = 0;
print gm($date)
Cookies make it easier for us to provide you with our services. With the usage of our services you permit us to use cookies.
More information Ok