CSVから値の割り出し方法とは？

質問

• アンケートのフォームからPOSTされたデータをCSVファイルに突き合わせて、値を割り出す方法を教えてください。
• CSVファイルの例を元に、渡されたパラメータを使って値の範囲を絞っていく方法を教えてください。
• grepやpos、lengthなどの関数を使ってカンマやコロンでの処理ができるのか教えてください。

回答No.3

vsba23895

「パラメータ」を、「ヒット」するフィールドの有効フラグを消すために使って行けばいいのでは ?
@is_valid を有効フラグにして
------------------
use strict;
use Text::CSV;
my $csv= Text::CSV->new();
my @target_list= (2,2,1,3);
my @is_valid;
my @field_list;

while(<>) {
chomp;
if (my $OK= $csv->parse($_)) {
@field_list= $csv->fields();
last unless(scalar(@target_list));
my $target= shift(@target_list);
my $n_field= 0;
foreach my $field (@field_list) {
if (!(defined $is_valid[$n_field]) || $is_valid[$n_field]) {
$field=~ s/1:3/1,2,3/;
$is_valid[$n_field]= (grep(/$target/,$field))? 1 : 0;
}
$n_field++;
}
}
}
my @result_list;
foreach my $flag (@is_valid) {
my $field= shift(@field_list);
push(@result_list,$field) if($flag);
}
print "result:",join(',',@result_list),"\n";
---------------------

あらゆるエラー処理を無視してます。(CSV が壊れていたり、データが「パラメタ」の行数より少なかったり…)。あくまでコンセプトとして。
#うーん、インデントが消えて見にくいですね

参考URL：

http://search.cpan.org/~alancitt/Text-CSV-0.01/CSV.pm

補足

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

>「パラメータ」を、「ヒット」するフィールドの有効フラグを
消すために
と言われてるのは、どういうことを示唆しているのでしょうか？
当方、開発経験が浅いため、意味がきちんと理解できません。

それから、コマンドラインから実行すると「use Text::CSV;
」の行で、エラーが起きてしまいます。
<Can't locate Text/CSV.pm in @INC>

お手数でなければ、ご教授いただけませんか？