shtml2footnotedat.pl

   1 \r
   2 use utf8;\r
   3 use open IN => ':utf8';\r
   4 #use open OUT => ':encoding(Shift_JIS)';\r
   5 use open OUT => ':utf8';\r
   6 use open ':std';\r
   7 \r
   8 \r
   9 #<DL> <DT><A NAME="62">...\82È\82ç\82È\82¢(reschedule_idle\8aÖ\90\94</A><DD>\82Ù\82ñ\82Ì\8f\82µ\82µ\82©\r
  10 #\83v\83\89\83C\83I\83\8a\83e\83B\8d·\82ª\96³\82¢\82Æ\82«\82Í\81A\97v\8b\81\82ð\8fo\82³\82È\82¢\r
  11 #<PRE>.\r
  12 \r
  13 \r
  14 while(my $line = <> ){\r
  15   chomp $line;\r
  16   my $string = "";\r
  17   if( $line =~ m/<DT><A NAME="([0-9]+)">/ ) {\r
  18     my $num = $1;\r
  19     $line =~ s/^.*<DD>//;\r
  20     $string = $line;\r
  21     while( $line = <> ) {\r
  22       chomp $line;\r
  23       if ($line =~ m/(^.*)<PRE>/ ) {\r
  24         $string .= $1;\r
  25         last;\r
  26       } else {\r
  27         $string .= $line;\r
  28       }\r
  29     }\r
  30     print "    '$num' => '$string',\n";\r
  31   }\r
  32 }\r
  33 \r