2013年05月25日の日記、正規表現
正規表現を勉強中。
もちのろん Perl で。
すげー難しいっ;

プログラム

# 単語の出現数を確認するプログラム
use strict;
use warnings;

# 検証する文
my $line = "Humpty Dumpty sat on a wall,
Humpty Dumpty had a great fall;";

# 正規表現で単語単位に分割、配列へ格納
my @words = ($line =~ /[\w]+/g);

# 単語と単語の出現数を格納するハッシュ
my %count = ();

# 単語単位に分割された数ループ
foreach my $word (@words) {
$count{$word}++;
}

# 単語の出現数を出力
foreach my $key (sort keys %count) {
print "$key: $count{$key}\n";
}


出力結果

Dumpty: 2
Humpty: 2
a: 2
fall: 1
great: 1
had: 1
on: 1
sat: 1
wall: 1


初めの方は、単語単位に分割するのにかなり苦心した正規表現を組みました。
そ・れ・が!

/[\w]+/

これで済んでしまうなんて。。。
僕が苦心して組んだ(しかも完成しなかった)正規表現モドキはとても見せられません;
[PR]
by redchant | 2013-05-25 21:42 | 日記
<< 2013年06月02日の日記、... 2013年05月20日の日記、... >>