You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
74 lines
2.3 KiB
HTML
74 lines
2.3 KiB
HTML
<!doctype html>
|
|
<html lang="en-us">
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
|
<title>WebPerl Code Demo</title>
|
|
|
|
<!-- ##### WebPerl - http://webperl.zero-g.net #####
|
|
|
|
Copyright (c) 2018 Hauke Daempfling (haukex@zero-g.net)
|
|
at the Leibniz Institute of Freshwater Ecology and Inland Fisheries (IGB),
|
|
Berlin, Germany, http://www.igb-berlin.de
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the same terms as Perl 5 itself: either the GNU General Public
|
|
License as published by the Free Software Foundation (either version 1,
|
|
or, at your option, any later version), or the "Artistic License" which
|
|
comes with Perl 5.
|
|
|
|
This program is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
See the licenses for details.
|
|
|
|
You should have received a copy of the licenses along with this program.
|
|
If not, see http://perldoc.perl.org/index-licence.html
|
|
##### -->
|
|
|
|
<!-- TODO: Document
|
|
Notes:
|
|
- "perl -CSD" is recommended because files are currently always UTF-8
|
|
- STDIN is currently not supported, workaround is to supply files on command line
|
|
-->
|
|
|
|
<style>
|
|
iframe.perleditor {
|
|
display: block;
|
|
border: 1px solid black;
|
|
width: 100%;
|
|
max-width: 50em;
|
|
}
|
|
</style>
|
|
|
|
</head>
|
|
<body>
|
|
|
|
<iframe name="perlrunner" sandbox="allow-scripts" src="perlrunner.html" style="display:none;"></iframe>
|
|
|
|
<iframe id="perl1" sandbox="allow-scripts allow-modals" class="perleditor" style="height:10em;"></iframe>
|
|
<script>
|
|
document.getElementById('perl1').src =
|
|
"perleditor.html#" + encodeURIComponent(JSON.stringify( {
|
|
cmdline: "perl -e 'print \"Hello, World!\"'",
|
|
} ));
|
|
</script>
|
|
|
|
<iframe id="perl2" sandbox="allow-scripts allow-modals" class="perleditor" style="height:40em;"></iframe>
|
|
<script>
|
|
document.getElementById('perl2').src =
|
|
"perleditor.html#" + encodeURIComponent(JSON.stringify( {
|
|
cmdline: "perl devoweler.pl mytext.txt other.txt",
|
|
script: "use warnings;\nuse strict;\n\nopen my $vfh, '>', 'vowels.txt' or die $!;\n"
|
|
+"while (<>) {\n\tprint $vfh $1 while s/([aeiou])/_/i;\n\tprint;\n}\nclose $vfh;",
|
|
script_fn: "devoweler.pl",
|
|
inputs: [
|
|
{ fn: "mytext.txt", text: "Foo\nBar\nQuz\n" },
|
|
{ fn: "other.txt", text: "Hello, World!" },
|
|
],
|
|
outputs : [ "vowels.txt" ],
|
|
} ));
|
|
</script>
|
|
|
|
</body>
|
|
</html>
|