2020年2月16日 (日) 04:30にPirotoによる

2020-02-16T04:30:28Z

2020年2月15日 (土) 08:05にPirotoによる

2020-02-15T08:05:01Z

Piroto: ページの作成:「==Perl JavaコードをHTMLに== open IN, "c:\\test.html"; print OUT "

← 古い版		2020年2月16日 (日) 04:30時点における版
1行目:		1行目:
−	==Perl JavaコードをHTMLに==	+	==[[Perl JavaコードをHTMLに]]==

	open IN, "<c:\\test.java";		open IN, "<c:\\test.java";

@@ 1行目: / 1行目: @@
 ==Perl JavaコードをHTMLに==
-  open IN, "<c:\\test.java";
+  open IN, "&lt;c:\\test.java";
-  open OUT, ">c:\\test.html";
+  open OUT, "&gt;c:\\test.html";
-  print OUT "<style>";
+  print OUT "&lt;style&gt;";
   print OUT ".kwd{ color:blue;font-weight:bold; }";
   print OUT ".cmt{ color:green; }";
@@ 10行目: / 10行目: @@
   print OUT ".lit{ color:#00ffff; }";
   print OUT ".code{ background-color:#efefff;border:1px solid lightgrey;font-family:monospace; }";
-  print OUT "</style>";
+  print OUT "&lt;/style&gt;";
-  print OUT "<div class='code'>";
+  print OUT "&lt;div class='code'&gt;";
   $c = 1;
   $isCmt = 0;
-  while ( $line = <IN> ) {
+  while ( $line = &lt;IN&gt; ) {
       $line =~ s/\s*$//;
       $line =~ s/(&)/&amp;/g;
-      $line =~ s/(<)/&lt;/g;
+      $line =~ s/(&lt;)/&lt;/g;
-      $line =~ s/(>)/&gt;/g;
+      $line =~ s/(&gt;)/&gt;/g;
       $line =~ s/([ ])/&nbsp;/g;
       $line =~ s/(\t)/&nbsp;&nbsp;&nbsp;&nbsp;/g;
       if ($line =~ /(\/\*)/) {
-          $line =~ s/(\/\*)/<span class='cmt'>\1/;
+          $line =~ s/(\/\*)/&lt;span class='cmt'&gt;\1/;
           $isCmt = 1;
+      }
@@ 32行目: / 32行目: @@
       if ($isCmt) {
           if ($line =~ /(\*\/)/) {
-              $line =~ s/(\*\/)/\1<\/span>/;
+              $line =~ s/(\*\/)/\1&lt;\/span&gt;/;
               $isCmt = 0;
+          }
       } else {
-          $line =~ s/(\bString\b|\babstract\b|\bcontinue\b|\bfor\b|\bnew\b|\bswitch\b|\bassert\b|\bdefault\b|\bif\b|\bpackage\b|\bsynchronized\b|\bboolean\b|\bdo\b|\bgoto\b|\bprivate\b|\bthis\b|\bbreak\b|\bdouble\b|\bimplements\b|\bprotected\b|\bthrow\b|\bbyte\b|\belse\b|\bimport\b|\bpublic\b|\bthrows\b|\bcase\b|\benum\b|\binstanceof\b|\breturn\b|\btransient\b|\bcatch\b|\bextends\b|\bint\b|\bshort\b|\btry\b|\bchar\b|\bfinal\b|\binterface\b|\bstatic\b|\bvoid\b|\bclass\b|\bfinally\b|\blong\b|\bstrictfp\b|\bvolatile\b|\bconst\b|\bfloat\b|\bnative\b|\bsuper\b|\bwhile\b)/<span class='kwd'>\1<\/span>/g;
+          $line =~ s/(\bString\b|\babstract\b|\bcontinue\b|\bfor\b|\bnew\b|\bswitch\b|\bassert\b|\bdefault\b|\bif\b|\bpackage\b|\bsynchronized\b|\bboolean\b|\bdo\b|\bgoto\b|\bprivate\b|\bthis\b|\bbreak\b|\bdouble\b|\bimplements\b|\bprotected\b|\bthrow\b|\bbyte\b|\belse\b|\bimport\b|\bpublic\b|\bthrows\b|\bcase\b|\benum\b|\binstanceof\b|\breturn\b|\btransient\b|\bcatch\b|\bextends\b|\bint\b|\bshort\b|\btry\b|\bchar\b|\bfinal\b|\binterface\b|\bstatic\b|\bvoid\b|\bclass\b|\bfinally\b|\blong\b|\bstrictfp\b|\bvolatile\b|\bconst\b|\bfloat\b|\bnative\b|\bsuper\b|\bwhile\b)/&lt;span class='kwd'&gt;\1&lt;\/span&gt;/g;
-          $line =~ s/(\/\/.*)/<span class='cmt'>\1<\/span>/g;
+          $line =~ s/(\/\/.*)/&lt;span class='cmt'&gt;\1&lt;\/span&gt;/g;
+      }
-      printf(OUT "<span class='lin'>%04d:</span> $line<br/>\n", $c);
+      printf(OUT "&lt;span class='lin'&gt;%04d:&lt;/span&gt; $line&lt;br/&gt;\n", $c);
       $c++;
+  }
-  print OUT "</div>";
+  print OUT "&lt;/div&gt;";
   close IN;
   close OUT;
 {{ref j2html.pl}}

Perl JavaコードをHTMLに - 版の履歴

2020年2月16日 (日) 04:30にPirotoによる

2020年2月15日 (土) 08:05にPirotoによる