perlである文の各単語の先頭の文字だけ取得して文字列を取得するプログラムを書きたいです。できれば正規表現で



原文
After Democrat John Kerry conceded Wednesday morning, President Bush has won a second term
取得したい文字列
ADJKcWmPBhwast

よろしくお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2004/11/05 14:30:36
  • 終了:--

回答(2件)

id:GEN111 No.1

GEN111回答回数472ベストアンサー獲得回数582004/11/05 14:38:49

ポイント10pt

http://www.perl.org/

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 ;

こんな感じかなあ

id:Kiichigo No.2

Kiichigo回答回数84ベストアンサー獲得回数02004/11/05 14:37:01

ポイント40pt

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

(全部半角)

id:akikosato

できました。ありがとうございます。

2004/11/05 14:48:58

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません