|
use Importer 'NewsExtractor::TextUtil' => qw(reformat_dateline) ; sub dateline {
my ( $self ) = @_ ;
my $el = $self ->dom->at( '#share0' ) or return ;
$el = $el -> next () or return ;
my ( $x ) = $el ->all_text =~ m/ηΌδ½ζ₯ζ:\s+(\S+?)\s+θ§η欑ζΈ/sm;
$x or return ;
return reformat_dateline( $x , '+08:00' );
}
1;
|