vstup/skriptování.xml
changeset 101 024ee27ce4fa
parent 100 c35c97d14d53
child 102 ca045963fced
equal deleted inserted replaced
100:c35c97d14d53 101:024ee27ce4fa
    44 use strict;
    44 use strict;
    45 
    45 
    46 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    46 open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
    47 
    47 
    48 while (<JAVA>) {
    48 while (<JAVA>) {
    49 #i.put("bash", "/bin/bash");
       
    50 	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
    49 	if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
    51 		print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
    50 		print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
    52 	}
    51 	}
    53 }
    52 }
    54 				]]></m:skript>
    53 				]]></m:skript>