質問: perlで別ファイルから文字列の抽出 当方、サーバ管理でインフラ系の経験しかなく、今回はperlでスクリプトの作成に挑戦しておりますがなかなか理解できていません。お知恵をお貸しください。 やりたいこと: ある入力を受けたら、別ファイルに照会して特定列の文字列を抽出する。以下に例を示します。 入力が gad の場合(小文字です)、file1を参照する。例では一行目にgad****があるのでこれに該当することとする。最終的にoffice が出力されるようにしたい。 file1の内容: gad93911 office hoa14845 desk abc52311 chair kfi33823 home よろしくお願いいたします。
回答: サーバ管理のインフラ系って、イーサネット引いたり、hddつけたりなのかな。知識の度合いもわからないので、とりあえず、簡単な例です。設計条件がはっきりしていないので、的外れだと申し訳ないのですが、勝手に解釈してサンプルを示してみます。とっかかりになれば、いいのですが。 参照ファイルが 1行1レコード 3つのフィールドで構成されている フィールドセパレータは、空白文字 行頭に空白文字は無い と仮定します。 inter10 さんは書きました: > ある入力を受けたら、別ファイルに照会して ある入力は、$searchkeyに当たるかな。 別ファイルは、$searchfileに当たるのかな。 ----- ここから ----- 01: #!/usr/bin/perl 02: 03:$searchfile = "file1"; 04:$searchkey = "gad"; 05: 06:open fh, $searchfile; 07: 08:while( $l= ) { 09: @f = split /\s+/, $l; 10: if( $f[0] =~ /$searchkey/i ) { 11: print $f[2], "\n"; 12: } 13:} 14: 15:close fh 16: ----- ここまで ----- プログラムの主要な行の説明は、 08: ファイルハンドラから1行取り出し、変数$lに格納。 eofであれば、ループから抜け出す。 09: 1行を分割して、それぞれリスト変数@fに保存する。 セパレータは、正規表現で「空白文字1文字以上」とする。 10:第1フィールド$f[0]から検索文字を正規表現でパターンマッチ評価する。 「$searchkeyを含む、大小文字区別なし」としている。 11:パターンがマッチした場合、第3フィールド$f[2]を出力する。 サンプルコードはインデントのため、全角スペースを使っています。こぴぺは気をつけてください。参考になれば、うれしいです。