Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
858:nobodyさん 08/02/01 00:10:05 >845 長い方を先にした場合、 ThisとThis isとis a penがあって、 結論は<font>This is a pen</font>に色を付けたいのだ。 848の方法かなぁ。 ただ、入力テキストが100M位、マッチする検索リストが1万個とかなので、 動かせるか・・・。 Perlよりwordマクロとかの方がいいのかなぁ。 wordなら何度重なって色付けても問題ないし・・・。 859:nobodyさん 08/02/01 00:32:08 >>856 ヒント：リファレンス 860:1/2 08/02/01 03:03:29 >>858 途中まで書いてまじめにやると面倒だという事は分かった。 あとは頑張ってくれ。 #!/usr/bin/perl -w use strict; my $str = 'This... This is, This is a pen.'; my @target = ('This', 'This is', 'is a pen'); my $tag_o = '<font color="#ffff00">'; my $tag_c = '</font>'; my $tag_r = qr|</?font[^>]*>|; my $tag_e = qr/(?:(?!$tag_r).)*/s; for (@target) { my $re = join qr/(?:$tag_r)*/o, split /(\s+)/; $str =~ s/($re)/add_tag($1)/eg; } print $str;

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4918日前に更新/271 KB
担当:undef