Re: ギークなお姉さんは好きですか 不正なメールアドレスを見抜く正規表現 - ヒルズで働く@robarioの技ログ
ギークなお姉さんに初めてのトラックバック。 DTIブログ サービス終了のお知らせ の最後にあるfubaさんのnegative wordsを見て猛烈に最適化してみたくなった。 use utf8; use Regexp::Assemble; binmode STDOUT=>'utf8'; @words = split /\|/, 'ヘルプ|へるぷ|help|諦め|苦しい|つらい|希望がない|だめ|ダメ|死|しぬ|しにたい|自殺|たすけて|助けて|働きたくない|やだ|むり|やめたい'; print Regexp::Assemble->new->add(@words)->re; (?-xism:(?:(?:(?:働きたく|希望が)な|つら|苦し)い|(?:たす|助)けて|し(?:にたい|ぬ)|や(?:めたい|だ)|[だ諦]め|help|へるぷ|ヘルプ|むり|ダメ|自殺|死)) Regexp::As
いまさら聞けないPerlのお役立ちワザ（2）
リスト1●簡単な英文を表示するプログラム。このプログラム中の配列変数@fruits を置換するにはどうしたらいいだろうか 前置きが長くなりました。さっそくサンプル・プログラムを紹介しましょう。 Perlの得意分野と言えばなんといっても文字列処理です。ここではスクリプトのソースコードを例にとって，変数名を一括置換するプログラムを紹介します。リスト1[拡大表示]が置換対象のプログラムです。このプログラムで使っている配列変数＊5「@fruits」を「@citrus」に変更してみましょう。単純に「fruits」という文字列を「citrus」に置換すると，print文の冒頭文字列部分まで変わってしまいます。かといって，「@fruits」を「@citrus」に置換してしまうと，今度は配列変数の要素である「$fruits[0]」がそのままになってしまいます。 このような条件に対応するには，正規表現を使い
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
