集計データ

質問

いつもお世話になってます。

アンケートスクリプトで、フォームからPOSTされたデータをCGIで受けて、サブルーチン(CSVファイル操作)
で回して該当のデータをフォームに返してます。

設問ファイル(html)→メインルーチン(cgi)→サブルーチン(pl)

そこで、数十通りある設問のカテゴリ別に集計データを取りたいと思ってます。

<内容>
1列目…カテゴリ
2列目…別全データ件数
3列目…該当データ件数

<データ>
1,2000,258
2,2000,320
3,2000,115
・
・
・

&ReadParseで、$in{'name1_1'},$in{'name1_2'},$in{'name1_3'},$in{'name2_1'},…のように
受けていますが、このkeyごと(name1_～)にCSVファイルへ書き出したいです。

それから別件で、CSVファイルの値の取り出しについてお聞きしたいのですが、

<内容>
1行目…初期区分
2行目…月日の範囲(1年を4分割)
3行目…結果区分

<データ>
1,1,1,1,2,2,2,2,3,3,3,3
"0405,0612","0613,0920","0921,1215","1216,0404",
"0409,0718","0719,1020","1021,0107","0108,0408",
"0321,0620","0621,0828","0829,0115","0116,0320"
1,2,3,4,1,2,3,4,1,2,3,4

※2列目のデータは長くなってしまう為、3行に分けています。規則性はありません。

やりたいことは、まず1行目の区分を割り当てて、localtimeで当日の日付から2行目の範囲を絞って
3行目の結果区分を得たいのですが、どうやればよいのか教えて下さい。

現在は、CSVの形式がきちんと決まっていないので、","のように範囲を指定していますが、
CSVの形はこれ以外でも構わないので、どうか知恵を貸して下さい。

宜しくお願い致します。

回答No.3

hrm_mmm · ベストアンサー

あ、失礼しました、実行チェックせずに投稿したら、微妙にいろいろ不具合が。。
不具合１
＞@data2 = split( ',', $line2 );
""の中にもカンマがあるので、カンマのみで分割すると、開始日と終了日も泣き別れになってしまう
→先頭と最後の"を除いておいて、　「","」　で分割
$line2 = substr($line2, 1,-1); ###引数３つめ負数で末尾から削除
@data2 = split( '","', $line2 );

不具合２　perlでは、ループから抜け出す時は、lastを使うのでした。
breakは、java,javascript,Cなどでの用語
→forループ内の　break;を　last;に置き換えて下さい

回答１
＞>my $hantei=-1;
＞は、なぜマイナス1を入れているのでしょう？？

配列の添え字を$hanteiに入れるようにしていますが、
配列の添え字は０開始で最大値はいろいろ変動があるけど、どこかで判定に引っかかれば-1が入ることはあり得ないためです。
ループ終了後に-1であれば、最初の開始日よりも前である＝最後の期間に入れる、としています。

回答２
＞>for( $i=scalar(@data2)-1; $i>=0; $i-- )
＞これは、要素数をforループの意味合いでいいですか？
scalar(@data2)-1配列添え字の最大値から0へまでの減少ループです。
そういえば、　scalar(@data2)-1 → $#data2 っていう表現があったんでした。

### forループ内のみ再掲
for( $i=$#data2; $i>=0; $i-- ){
$start = substr($data2[$i], 0,4);
if( ($start cmp $dt) <=0 ){
# 開始日と同じかそれよりも後の日付の時
$hantei=$i;
last;
}
}
if( $hantei== -1){ $hantei= $#data2; }

補足

hrm_mmm様、
ご回答及びご丁寧な解説、とても助かります。
また、ご質問させてください。

戻り値の数値が例えば、「2」だとしたら「0612」
"0405,0612","0613,0920"→
1 =「0405」,2 =「0612」,3 =「0613」,4 =「0920」
こんな感じになるのでしょうか？

最初に掲載した、下記のデータでやっているのですが
1行目も引数を与えて、絞り込むようなことはできますか？
1,1,1,1,2,2,2,2,3,3,3,3
"0405,0612","0613,0920","0921,1215","1216,0404","0409,0718","0719,1020","1021,0107","0108,0408","0321,0620","0621,0828","0829,0115","0116,0320"
1,2,3,4,1,2,3,4,1,2,3,4

度々、申し訳ありませんが宜しくお願いします。

回答No.2

hrm_mmm

＞データ部は、"4月5日～6月12日","6月13日～9月20日","9月21日～12月15日","12月16日～4月5日"という意味

日付範囲に重なりは無いのですよね？
年越しするのは最後のデータのみなら、開始日だけを文字列の大小比較すればいけるのでは？
### $line2 に２行目を読み込んだとして
@data2 = split( ',', $line2 );
my ($i,$start);
my $hantei=-1;
for( $i=scalar(@data2)-1; $i>=0; $i-- ){
$start = substr($data2[$i], 1,4);
if( ($start cmp $dt) <=0 ){
# 開始日と同じかそれよりも後の日付の時
$hantei=$i;
break;
}
}
if( $hantei== -1){ $hantei= scalar(@data2)-1; }
### $hanteiに何番目の日付範囲に一致したかが入っている。

お礼

hrm_mmm様の提示されたコードを基に、なんとか
自己解決することが出来ました！！
ありがとうございます。とても感謝です。

補足

hrm_mmm様、ご回答ありがとうございます。

>日付範囲に重なりは無いのですよね？
はい、ありません。

開始日のみを大小比較…そういった発想が浮かびませんでした。
確かにそうですよね！今後の参考になります。

ところで、当方Perl初心者の為、解説して頂きたいのですが
>my $hantei=-1;
は、なぜマイナス1を入れているのでしょう？？
それから
>for( $i=scalar(@data2)-1; $i>=0; $i-- )
これは、要素数をforループの意味合いでいいですか？

$line2 = '"0405,0530","0531,0904","0905,1025","1026,0404"';
として、実行したのですが「0」が返ってきてしまいます。

度々、申し訳ありませんが、ご教授下さい。

回答No.1

hrm_mmm

どこらあたりまで出来ているのか、ソースも提示していただかないと、ただの丸投げなので、あまり回答がつかないのでは？

＞このkeyごと(name1_～)にCSVファイルへ書き出したいです。

#FH にCSVファイルへ書き込み用 file handle設定して
foreach (keys %in){
print FH $_ .','. $in{$_} . "\n"; # 一行ずつ出力
}
close FH;

＞CSVファイルの値の取り出し
＞※2列目のデータは長くなってしまう為、3行に分けています。規則性はありません。

常に３行であることが確実ならば、ファイルの２－４行目は、読み込んだら終端の改行コードを削除(chomp)して連結してしまえば、
後は、split(',' , $line ) で、それぞれの列ごとに配列に格納出来ます。
何行繋げるかに規則がないとちょっと困るかも。

日付時刻別の振り分けは、どういう規則で、ファイルに書いてあって、どういう規則で取り出したいのかを詳細に記述してみて、まずは、ご自分で組んでみて下さい。

補足

hrm_mmm様、アドバイスありがとうございます。
確かに、丸投げ状態ですね…私自身、Perlをよく解っていないため、質問の要所をとらえて
ないのかもしれません。

>#FH にCSVファイルへ書き込み用 file handle設定して
こういう書き方で、ハッシュの値がファイルに取り出せるのですね！
大変、参考になりました。

>常に３行であることが確実ならば、ファイルの２－４行目は…
これは、この投稿の見栄えをよくするために3行に分けたということで、本来は
1行になっている部分です。
ですから、実際のデータ行は3行になっています。

"0405,0612","0613,0920","0921,1215","1216,0404",
というデータ部は、
"4月5日～6月12日",
"6月13日～9月20日",
"9月21日～12月15日",
"12月16日～4月5日"
という意味で、

本日日付を取得して
($ss, $mn, $hh, $dd, $mm, $yy, $yb) = localtime(time);
$yy += 1900;
$mm++;
$str = (%02d%02d);
$dt = sprintf($str,$mm, $dd);

にて$dtは、データどの部分にマッチするのか？
という結果を得たいのです。

配列への格納等は、出来るのですがこういったCSVデータを、日付の範囲に変えてマッチさせる
やり方があれば教えて頂きたいと思っています。