Help for this page

Select Code to Download


  1. or download this
    >perl -Mntheory=:all -nE 'chomp; say is_prime($_);' input.txt
    
  2. or download this
    qwurx [shmem] ~> perl -E "say '$_'" foo.bar
    
    ...
    foo.bar
    qwurx [shmem] ~> perl -E "say $_" foo.bar
    foobar
    
  3. or download this
    qwurx [shmem] ~> echo '`ls -l /dev/null`'
    `ls -l /dev/null`
    ...
    use feature 'current_sub', 'evalbytes', 'fc', 'say', 'state', 'switch'
    +, 'unicode_strings', 'unicode_eval';
    say say(say(`ls -l /dev/null`));
    -e syntax OK