update

diff --git a/p.pl b/p.pl
index 727f425..0457f63 100755 (executable)
--- a/p.pl
+++ b/p.pl
@@ -36,7 +36,7 @@ while(<$fh>) {
        #warn "#[ $_ ]\n";
 
        if ( ! $last_id || $last_id ne $v[0] ) {
-               $file2 = glob $v[0] . '*';
+               $file2 = glob $v[0] . '*.txt';
 
                next unless $file2; # FIXME
 
@@ -80,7 +80,8 @@ while(<$fh>) {
                        my $i = $h2nr->{$name};
                        die "can't find $name in ",dump( $h2nr ) unless defined $i;
                        my $v = $v2[$i];
-                       die "can't find $i : $name in ",dump( \@v ) unless defined $v;
+                       die "can't find $i : $name in ",dump( \@v2 ) unless defined $v;
+                       return "### col_v2($name) = $v";
                        return $v;
                }