cgi-source

#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<!doctype html public \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n\n";
print "<html>\n";
print "<head>\n";
print "<meta name=\"Author\" content=\"Freizeit\">\n";
print "<title>出走馬</title>\n";
print "</head>\n";
print "<body>\n";

require 'cgi-lib.pl';
require 'jcode.pl';

open(IN, "gc02.csv");
$k = 0;
while($hin = <IN>){
  chomp $hin;
  @gc = split /,/,$hin;
  $ghorse[$k] = @gc[3];
  $owner[$k] = @gc[1];
  $turn[$k] = @gc[2];
  $k++;
}
close(IN);

&ReadParse(*input_data);
$entry = $input_data{'entry'};
@entry = split /\n/, $entry ;

$n = 0;
$sw = 0;
while( @entry[$n] ){
  if( @entry[$n] =~ /月 .+日/ ){
    $course = substr( @entry[$n], (index @entry[$n], "競馬")-4, 4 );
    $date = substr( @entry[$n], (index @entry[$n], "月")-2, 9);
    $date =~ s/[ )]//g;
  }
  elsif( @entry[$n] =~ /[0-9]Ｒ/ ){
    if( $sw == 1 ){
      print "<br>\n";
    }
    $sw = 0;
    @race = 0;
    @race = split /　/, @entry[$n];
    $raceno = @race[0];
    $racedc = @race[1];
    $n = $n+2;
    if( $racedc =~ /^\s/ ){
       $racedc = substr( @entry[$n], 0, (index @entry[$n], "頭")-2 );
       $racedc =~ s/ //g;
    }
    $n = $n+1;
    @condition = split / /, @entry[$n];
    $dist = substr( @condition[0], 0, 4);
    if( @condition[1] =~ /芝/ ){
      $surface = "芝";
    }
    else{
      $surface = "ダ";
    }
  }
  elsif( @entry[$n] =~ /[牡牝せん].[0-9]/ ){
    @horse = split / /, @entry[$n];
    $horse = @horse[2];
    $jockey = @horse[7];
    $weight = @horse[5];
    if( $horse eq "" || $horse eq "B" ){
      $horse = @horse[4];
      $jockey = @horse[9];
      $weight = @horse[7];
    } 
    $l = 0;
    while( $l <= $k ){
      if( $horse eq $ghorse[$l] ){
        if( $sw == 0 ){ 
          $racedata = $date."-".$course.$raceno."-".$racedc."-".$surface.$dist;
          print "$racedata<br>\n";
          $sw = 1;
        }
        $data = "　".$horse."--".$weight." ".$jockey." ( ".$owner[$l]." ".$turn[$l]."位 )";
        print "$data<br>\n";
      }
      $l++;
    }
  }
  $n++;
}

print "</body>\n";
print "</html>\n";

exit;