/* Eduardo Rene Rodriguez Avila Copyright(c) Estas funciones pueden ser copiadas y distribuidas libremente mientras se conserven estas lineas de comentarios y no se modifique el codigo. This functions can be copied and freely distributed as these comments and source code are not modified. Perl */ function Previous() { Cookie=Cookie-1<=0?(Cookies.length/2):Cookie-1; DisplayButtons(); DisplayCookie(); document.close(); } function Next() { Cookie=Cookie%(Cookies.length/2)+1; DisplayButtons(); DisplayCookie(); document.close(); } function ChooseOne() { Cookie=Math.floor(Cookies.length/2*Math.random())+1; DisplayCookie(); } function GoTo() { idx=parseInt(prompt("Cookie",Cookie),10); if( ! isNaN(idx) ) if( 0

"); document.write(Cookies[(Cookie-1)*2+1]+"
"+Cookies[(Cookie-1)*2+2]); document.write(""); } function DisplayButtons() { document.writeln(""); document.writeln(""); document.write(""); document.write(""); document.write(""); document.write("

"); document.writeln(" "); if( Cookie==0 ) document.writeln(""); else document.writeln(""); document.writeln(""); document.write(""); document.write("
"); } var Cookies = new TheArray( '# run contents of "my_file" as a program', 'perl my_file', '# run debugger "stand-alone"', 'perl -d -e 42', '# run program, but with warnings', 'perl -w my_file', '# run program under debugger', 'perl -d my_file', '# just check syntax, with warnings', 'perl -wc my_file', '# useful at end of "find foo -print"', 'perl -nle unlink', '# useful at end of "find foo -print"', 'perl -e \'print "hello world!\\n"\'', '# add first and penultimate columns', 'perl -lane \'print $F[0] + $F[-2]\'', '# just lines 15 to 17', 'perl -ne \'print if 15 .. 17\' *.pod', '# in-place edit of *.c files changing all foo to bar', 'perl -p -i.bak -e \'s/\\bfoo\\b/bar/g\' *.c', '# command-line that prints the first 50 lines (cheaply)', 'perl -pe \'exit if $. > 50\' f1 f2 f3 ... ', '# delete first 10 lines', 'perl -i.old -ne \'print unless 1 .. 10\' foo.txt', '# change all the isolated oldvar occurrences to newvar', 'perl -i.old -pe \'s{\\boldvar\\b}{newvar}g\' *.[chy]', '# command-line that reverses the whole file by lines', 'perl -e \'print reverse <>\' file1 file2 file3 ....', '# find palindromes', 'perl -lne \'print if $_ eq reverse\' /usr/dict/words', '# command-line that reverse all the bytes in a file', 'perl -0777e \'print scalar reverse <>\' f1 f2 f3 ...', '# command-line that reverses the whole file by paragraphs', 'perl -00 -e \'print reverse <>\' file1 file2 file3 ', '# increment all numbers found in these files', 'perl i.tiny -pe \'s/(\d+)/ 1 + $1 /ge\' file1 file2 ....', '# command-line that shows each line with its characters backwards', 'perl -nle \'print scalar reverse $_\' file1 file2 file3 ....', '# delete all but lines beween START and END', 'perl -i.old -ne \'print unless /^START$/ .. /^END$/\' foo.txt', '# binary edit (careful!)', 'perl -i.bak -pe \'s/Mozilla/Slopoke/g\' /usr/local/bin/netscape', '# look for dup words', 'perl -0777 -ne \'print "$.: doubled $_\n" while /\\b(\\w+)\\b\\s+\\b\\1\\b/gi\' ', '# command-line that prints the last 50 lines (expensively)', 'perl -e \'@lines = <>; print @lines[ $#lines .. $#lines-50\' f1 f2 f3 ...');