https://halfgeek.org/wiki/index.php?action=history&feed=atom&title=Inline_PerlInline Perl - Revision history2026-05-28T12:22:18ZRevision history for this page on the wikiMediaWiki 1.34.0https://halfgeek.org/wiki/index.php?title=Inline_Perl&diff=159&oldid=prev161.253.9.181 at 15:04, 12 May 20052005-05-12T15:04:56Z<p></p>
<p><b>New page</b></p><div>=Batch processing using Perl=<br />
<br />
The <code>-n</code> switch in Perl forces the entire program to be interpreted as if in a <code>while(<STDIN>) {}</code> loop. More or less, this means the program is run once for each line of input, and the current line is in <code>$_</code>. Use <code>chomp</code> or a regexp to get rid of the trailing newline.<br />
<br />
Here is how one might write <code>ls *.js</code> using Perl as the filter:<br />
<br />
ls | perl -n -e '/^((.*)\.js)$/ or next; print "$1\n"'<br />
<br />
To run <code>pod2html</code> on all .js files in a directory, writing the output for XXX.js to XXX.html, displaying each command used in the process, one could use a command like this:<br />
<br />
ls | perl -n -e '/^((.*)\.js)$/ or next; $c="pod2html $1 >> $2"; print "\n$c\n"; print `$c`'</div>161.253.9.181