The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more
|
sub journalist {
my ( $self ) = @_ ;
my $content_text = $self ->content_text;
my ( $txt ) = $content_text =~ m{(記者/?(\p{Letter}+))\z};
unless ( $txt ) {
( $txt ) = $content_text =~ m{\n((中國時報/.+))\z};
}
return $txt ;
}
1;
|