Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
print "arg count: ", scalar(@ARGV), "\n";
  2. or download this
    sub backticks {
  open(my $fh, "-|", @_) or die "fork failed: $1";
  do { local($/); <$fh> }
}
  3. or download this
      backticks('perl', '-e', $x);
  backticks('perl', '-e', E($x));
  backticks('ssh', $host, 'perl', '-e', E($x));
  backticks('ssh', $host1, 'ssh', $host2, 'perl', '-e', E($x));
  4. or download this
    sub E {
  my $f = 'H'.(2*length($_[0]));
  return "eval(pack(q/$f/,q/" . unpack("H*",$_[0]) . '/))';
}
  5. or download this
      open(..., "-|", @$invoke_perl, '-e', E($script))