例
原文
After Democrat John Kerry conceded Wednesday morning, President Bush has won a second term
取得したい文字列
ADJKcWmPBhwast
よろしくお願いします。
The Perl Directory - perl.org
$str = ’After Democrat John Kerry conceded Wednesday morning, President Bush has won a second term’ ;
$str =~ s/(?:(¥w)¥w*)¥W*/$1/g ;
print $str ;
こんな感じかなあ
http://www.hatena.ne.jp/1099632636
人力検索はてな - perlである文の各単語の先頭の文字だけ取得して文字列を取得するプログラムを書きたいです。できれば正規表現で 例 原文 After Democrat John Kerry conceded Wednesday mo..
cat tmp.txt | perl -pe ’s/(¥S)¥S*¥s+/$1/g’
ADJKcWmPBhwast
(全部半角)
できました。ありがとうございます。