# kojin_joho.pl
# 個人情報の表示
  
   while(1)
  {
# 検索者入力
   print "\n キーワード(Enter:終了):" ;
   $key = <STDIN> ;
   last if $key eq "\n" ;
   chomp $key ;
   &keyword ;
  
# 表示項目の読み込み
   open F, "住所録99.csv" ;
   $_ =  <F> ;
   chomp ;
   @t = split /,/ ;
  
# 該当者の表示
   print <<EOF;
\n  ** $d[1] **
  
   $t[3] : $d[3]
   $t[4] : $d[4]
   $t[5] : $d[5]
   $t[6] : $d[6]
   $t[7] : $d[7]
EOF
}
  
# キーワード検索のサブルーチン
  sub keyword
{
  open F, "住所録99.csv" ;
  print "\n" ;
  undef $k, undef @match ;
  for (<F>)
     {
      @row = split /,/ ;
      if ($row[2] =~ /$key/i)
     {
      chomp ;
      push @match, $_ ;
      print " ", ++$k, ". $row[1]  $row[0] \n"
     }}
      if ($k > 0)
        {
         print "\n 何番(Enter:1番):" ;
         $nn = <STDIN> ;
         $nn = 1 if $nn eq "\n" ;
         @d = split /,/, $match[$nn-1] ;
        }
      else {print " 該当者なし \n" ; redo}
}