
use utf8;
use open IN => ':utf8';
#use open OUT => ':encoding(Shift_JIS)';
use open OUT => ':utf8';
use open ':std';


#<DL> <DT><A NAME="62">...ならない(reschedule_idle関数</A><DD>ほんの少ししか
#プライオリティ差が無いときは、要求を出さない
#<PRE>.


while(my $line = <> ){
  chomp $line;
  my $string = "";
  if( $line =~ m/<DT><A NAME="([0-9]+)">/ ) {
    my $num = $1;
    $line =~ s/^.*<DD>//;
    $string = $line;
    while( $line = <> ) {
      chomp $line;
      if ($line =~ m/(^.*)<PRE>/ ) {
	$string .= $1;
	last;
      } else {
	$string .= $line;
      }
    }
    print "    '$num' => '$string',\n";
  }
}

