update wordpress figure rules

[otptools/otptools.git] / shtml2footnotedat.pl

diff --git a/shtml2footnotedat.pl b/shtml2footnotedat.pl
index 8acbbab..611de74 100644 (file)
--- a/shtml2footnotedat.pl
+++ b/shtml2footnotedat.pl
@@ -1,33 +1,33 @@
-
-use utf8;
-use open IN => ':utf8';
-#use open OUT => ':encoding(Shift_JIS)';
-use open OUT => ':utf8';
-use open ':std';
-
-
-#<DL> <DT><A NAME="62">...\82È\82ç\82È\82¢(reschedule_idle\8aÖ\90\94</A><DD>\82Ù\82ñ\82Ì\8f­\82µ\82µ\82©
-#\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¢
-#<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";
-  }
-}
-
+\r
+use utf8;\r
+use open IN => ':utf8';\r
+#use open OUT => ':encoding(Shift_JIS)';\r
+use open OUT => ':utf8';\r
+use open ':std';\r
+\r
+\r
+#<DL> <DT><A NAME="62">...\82È\82ç\82È\82¢(reschedule_idle\8aÖ\90\94</A><DD>\82Ù\82ñ\82Ì\8f­\82µ\82µ\82©\r
+#\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
+#<PRE>.\r
+\r
+\r
+while(my $line = <> ){\r
+  chomp $line;\r
+  my $string = "";\r
+  if( $line =~ m/<DT><A NAME="([0-9]+)">/ ) {\r
+    my $num = $1;\r
+    $line =~ s/^.*<DD>//;\r
+    $string = $line;\r
+    while( $line = <> ) {\r
+      chomp $line;\r
+      if ($line =~ m/(^.*)<PRE>/ ) {\r
+       $string .= $1;\r
+       last;\r
+      } else {\r
+       $string .= $line;\r
+      }\r
+    }\r
+    print "    '$num' => '$string',\n";\r
+  }\r
+}\r
+\r