Perl コーディング初心者質問コーナー Part36

**nobodyさん** · 04/07/14 13:23

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 04/07/26 19:24

>>133
どうでもいいけど無駄多いな

@words = /([^　| ]+)/g;
foreach (@line) {
　　s/\s+$//;
　　@data = split(/\t/);

　　$hit = 0;
　　foreach $sword (@words) {
　　　　$hit++ if index("$data[1]$data[2]$data[6]", $sword) > -1;
　　}

　　next if !$hit;

　　push(@new,$_) if $search ne 'and' or $hit == $#words + 1;

}

じゃだめか？

**nobodyさん** · 04/07/26 19:26

@words = ($word =~ /([^　| ]+)/g);

こうか