#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
$/="\n\n";
while( my $html=)
{ my $author= get_author( $html);
print "Author: $author\n";
}
exit;
sub get_author
{ my $html= shift;
my $stream= HTML::TokeParser->new( \$html);
while( my $token= $stream->get_token)
{ my $token_type= shift @$token;
next unless $token_type eq 'S';
my( $tag, $attribute_hashref, $attribute_order_arrayref, $source)= @$token;
next unless $tag eq 'meta';
if( grep { m{\.author$} } values %$attribute_hashref)
{ return $attribute_hashref->{content}; }
}
return 'unknown';
}
__DATA__
dummy
dummy
dummy
dummy