perl 文字列検索後に指定フィールドの値を変数へ

質問

菊池と申します。
perlスクリプトで下記のような文字列を検索し、検索されたら指定したフィールドの値を変数に入れたいのですが、grepやawkを使うと、ファイル中のすべてが検索対象になってしまい困っております。
文字列検索の表現方法をご教授頂けると大変助かります。
下記へperlスクリプトの一部を記載させて頂きました、データはcsv形式です。
変数に入れる事が出来なかったので、抽出した値をファイルへ出力させています。

検索文字列＝2013/11/19,09:00:00,13:00:00
データの中味
<94>N/<8c><8e>/<93>ú,<89>ð<90>Í<8a>J<8e>n<8e><9e><8d><8f>,<89>ð<90>Í<8f>I<97>¹<8e><9e><8d><8f>,<8c>ö<8b>¤<8d>À<95>WX(m),<8c>ö<8b>¤<8d>À<95>WY(m),<95>W<8d><82>H(m),<88>Ú<93>®<95>½<8b>Ï<92>lX(m),<88>Ú<93>®<95>½<8b>Ï<92>lY(m),<88>Ú<93>®<95>½<8b>Ï<92>lH(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊX(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊY(m),<8f><89><8a>ú<92>l<82>©<82>ç<82>Ì<95>Ï<93>®<97>ÊH(m),2D<8b><97><97>￡(m),3D<8b><97><97>￡(m),<88>Ú<93>®<95>½<8b>Ï2D<8b><97><97>￡(m),<88>Ú<93>®<95>½<8b>Ï3D<8b><97><97>￡(m),<91>ª<88>Ê<83>t<83><89><83>O,<91>ª<88>Ê<90>¸<93>x,<88>Ù<8f>í<92>l<83>t<83><89><83>O<81>i<8f><89><8a>ú<92>l<81>j,<88>Ù<8f>í<92>l<81>i<8c>x<89>ú<83><89><83><93><83>N<81>j,<94>ò<82>Ñ<92>l<83>t<83><89><83>O,
2013/11/18,01:00:00,05:00:00,-68213.2327,17746.2653,2093.7982,-9999.0000,-9999.0000,-9999.0000,5.0099,-0.5989,-4.8100,16215.1100,16255.8006,-9999.0000,-9999.0000,4,0.0019,0,0,0,
2013/11/18,05:00:00,09:00:00,-68213.2273,17746.2666,2093.7872,-9999.0000,-9999.0000,-9999.0000,5.0153,-0.5976,-4.8210,16215.1061,16255.7959,-9999.0000,-9999.0000,4,0.0014,0,0,0,
2013/11/18,09:00:00,13:00:00,-68213.2256,17746.2692,2093.7792,-9999.0000,-9999.0000,-9999.0000,5.0170,-0.5950,-4.8290,16215.1030,16255.7923,-9999.0000,-9999.0000,4,0.0016,0,0,0,
2013/11/18,13:00:00,17:00:00,-68213.2236,17746.2737,2093.7682,-9999.0000,-9999.0000,-9999.0000,5.0190,-0.5905,-4.8400,16215.0981,16255.7866,-9999.0000,-9999.0000,4,0.0014,0,0,0,
2013/11/18,17:00:00,21:00:00,-68213.2306,17746.2741,2093.7672,-9999.0000,-9999.0000,-9999.0000,5.0120,-0.5901,-4.8410,16215.1015,16255.7899,-9999.0000,-9999.0000,4,0.0016,0,0,0,
2013/11/18,21:00:00,01:00:00,-68213.2308,17746.2739,2093.7882,-9999.0000,-9999.0000,-9999.0000,5.0118,-0.5903,-4.8200,16215.1017,16255.7916,-9999.0000,-9999.0000,4,0.0016,0,0,0,
2013/11/19,01:00:00,05:00:00,-68213.2221,17746.2743,2093.8062,-9999.0000,-9999.0000,-9999.0000,5.0205,-0.5899,-4.8020,16215.0968,16255.7880,-9999.0000,-9999.0000,4,0.0017,0,0,0,
2013/11/19,05:00:00,09:00:00,-68213.2140,17746.2808,2093.7982,-9999.0000,-9999.0000,-9999.0000,5.0286,-0.5834,-4.8100,16215.0870,16255.7777,-9999.0000,-9999.0000,4,0.0013,0,0,0,
2013/11/19,09:00:00,13:00:00,-68218.2472,17746.8587,2098.6543,-9999.0000,-9999.0000,-9999.0000,-0.0046,-0.0055,0.0461,16217.2238,16258.2532,-9999.0000,-9999.0000,4,0.0017,0,0,1,
2013/11/19,13:00:00,17:00:00,-68218.2538,17746.8600,2098.6633,-9999.0000,-9999.0000,-9999.0000,-0.0112,-0.0042,0.0551,16217.2263,16258.2563,-9999.0000,-9999.0000,4,0.0014,0,0,1,
2013/11/19,17:00:00,21:00:00,-68218.2603,17746.8538,2098.6473,-9999.0000,-9999.0000,-9999.0000,-0.0177,-0.0104,0.0391,16217.2349,16258.2638,-9999.0000,-9999.0000,4,0.0016,0,0,1,

＜＜スクリプトの一部＞＞
#`grep "'2013/11/19,09:00:00,13:00:00'" $SS | awk -F"," '{print \$13}' $SS > $SS-2D`;
#`grep "'2013/11/19,09:00:00,13:00:00'" $SS | awk -F"," '{print \$14}' $SS > $SS-3D`;

`awk -F"," '\$1 ~ \/2013\/11\/19\/ && \$2 == \/09\:00\:00\/ {print \$13}' $SS > $SS-2D`;
`awk -F"," '\$1 ~ \/2013\/11\/19\/ && \$2 == \/09\:00\:00\/ {print \$14}' $SS > $SS-3D`;
以上　よろしくお願いいたします。

回答No.6

ybnormal · ベストアンサー

こういうことですか？

while(<>){
chomp;
@temp = split(/,/ $_);
if(/2013\/11\/19,09:00:00,13:00:0/){
print "$temp[13]\n";
print "$temp[14]\n";
}

}

お礼

ご教示頂いた通りで出来ました。
皆様に暖かいご教示を頂けた事、大変感謝しております。本当に助かりました、有難うございました。

回答No.5

ybnormal

まだしたいことがよくわかりません。
追加のコメントのとおりのことをするのであれば、あなたのgrepやawkを使ったやり方で問題ないように思えますが（最初のGrep+Awkはパイプの使い方がちょっと間違っていると思いますが）、それでは不都合があるということなので、具体的にAwkやGrepでは何が都合が悪いのか書いてもらえればもっと回答がつくと思います。

補足

端末上で、
grep '2013/11/19,09:00:00,13:00:00'　入力ファイ名　|　awk -F"," '{print $13}'を実行すると
16217.2238が得られるます。
grep '2013/11/19,09:00:00,13:00:00'　入力ファイ名　|　awk -F"," '{print $14}'を実行すると、
16258.2532が得られるます。
16217.2238と16258.2532の値が欲しいのです。
perlの中で、grepとawkの使い方が出来てないのです。　grepやawkの使い方と上記値を抽出出来るperlの表現方法がお解りでしたら、ご教示してくださるとと大変助かりますが。
たどたどしい、文章でもうしわけありません。
よろしくお願いいたします。

回答No.4

ORUKA1951

Perlは、多次元のデータを扱えますが、それが配列とハッシュ(連想配列)です。配列のハッシュとか、ハッシュの配列とか、ハッシュのハッシュとか・・
　あなたの場合、先に示したように、配列のハッシュにデータをすべて入れて、その要素にアクセスする方法が最も楽です。
　Perlを極めようとすると、"プログラミングPerl"は必携ですので、中古本でも良いので入手されたらいかがかと思います。
　プログラミングPerl(第3版)Volue1 の
9章データ構造
9.1 配列の配列
9.2 配列のハッシュ
9.3 ハッシュの配列
9.4 ハッシュのハッシュ
9.5 関数のハッシュ
9.6 より複雑なレコード
9.7 データ構造を保存する
　ですね。
　No.2さんが言われているようにsplitで、データをひとつのデータテーブルに入れて、あとは自在にキーなり、何番目かを取り出して比較なり処理すれば良いです。

回答No.3

ORUKA1951

検索→変数
と言う意味がわかりません。
一行ごとに、配列のハッシュに代入して３次元のテーブルを作成した時点で、すでにひとつひとつのデータは変数として扱うことで出来ます。
@head = (<94>N/<8c><8e>/<93>ú,<89>ð<90>・・・【中略】・・・<9e>,・・)
@keys = (2013/11/18-01:00:00-05:00:00,2013/11/18-05:00:00^09:00:00,・・・)
$DATA{2013/11/18-01:00:00-05:00:00} = (-68213.2327,17746.2653,2093.7982,-9999.0000,-9999.0000,-9999.0000,5.0099,-0.5989,-4.8100,16215.1100,16255.8006,-9999.0000,-9999.0000,4,0.0019,0,0,0,
20)
あとは、それぞれのデータにアクセスすればよい。

補足

支離滅裂な文面で申し訳有りません
したい事は、2013/11/19,09:00:00,13:00:00<--左記の
文字列がデータファイル(csv形式)の中に記述されていたら、13列目と14列目の値を変数にセットしたいと言う事です。
上記文字列が記述されているのはデータファイルの中に１行しか有りません。
上記条件で得た、13列目と14列目の値と同じ列の値を比較して変動量を求めたいのです。
perlの超初心者です、perlはとても便利ですが、使いこなすまでに至っていません。
ご教授をよろしくお願いいたします。

回答No.2

ybnormal

特定のフィールドだけをパターンマッチの対象にしたいということですか？
ならSplitで各フィールドをアレイに入れておいて、必要なアレイだけ比較対象にすればいいのでは。

回答No.1

Tacosan

ん～.... 必要な要件が十分に書かれていない....

「grepやawkを使うと、ファイル中のすべてが検索対象になってしまい困っております」ってあるけど
・なにがどう「困る」のか, さっぱりわからない.
・ファイル中の「検索対象の部分」と「検索対象でない部分」を区別する方法がどこにも書かれていない.

ということで, とりあえずこれらを明確にしてください.

あと, 「変数に入れる」ってどういうことでしょうか? 該当するものが複数あったら, どうしたらいいんでしょうか?