WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:マッチ

0:[投稿] 見習い未満 [2002/08/27 22:49 ][環境:WIN+IE UNIX系+Perl]

お世話になります
またお知恵を拝借したくお邪魔しました。

keyは1つ。マッチさせたい言葉が複数。
この時、効率よくマッチさせるにはどのようにしたら良いでしょうか?

具体的には、$kajitu=apple,りんご,ぶどう,みかん,orange,アップル,リンゴ,ブドウ,ミカン,蜜柑,葡萄,林檎…。
$Keyがapple,りんご,アップル,リンゴ,林檎の何れかの時、$kajituにあるapple,りんご,アップル,リンゴ,林檎 を全て抽出のようなサブルーチンを目標としています。


1:[回答] andi [2002/08/28 13:54 ]

簡単な所ではこんな感じでしょうか。

my @data;
my $key = "りんご";

my @group = (
     "orange,みかん,オレンジ,ミカン,蜜柑"
    ,"apple,りんご,アップル,リンゴ,林檎"
);

foreach my $group (@group){
    if(grep($key eq $_,split(/,/,$group))){
        @data = split(/,/,$group);
        last;
    }
}

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World