All pastes #734279 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-10-12 15:41 UTC
rendered paste body
perl: sub {
    use URI;
    my $post = shift;

    my $uri = URI->new($post->{url});
    print $uri->path, "\n";
}

perl: sub {
    use URI;
    my $post = shift;
    print $post->{title}, "\n";
}