正規表現は以下のようにかける。
[0-9a-zA-Z_]{1,15}
タイムラインから抽出する場合は@を頭につけておく。
#!/usr/bin/perl
my $text = "twitter timeline #hoge";
my $tw_account_regex = q{@[0-9a-zA-Z_]{1,15}};
while ($text =~ /($tw_account_regex)/g) {
print $1, "\n";
}
exit;
__END__
twitterのタイムラインから、アカウント名を抽出したくなった。正規表現は「[0-9a-zA-Z_]{1,15}」とかける。
正規表現は以下のようにかける。
[0-9a-zA-Z_]{1,15}
タイムラインから抽出する場合は@を頭につけておく。
#!/usr/bin/perl
my $text = "twitter timeline #hoge";
my $tw_account_regex = q{@[0-9a-zA-Z_]{1,15}};
while ($text =~ /($tw_account_regex)/g) {
print $1, "\n";
}
exit;
__END__