Help for this page

Select Code to Download


  1. or download this
    use Data::Dumper;
my $cmd = Generate_Command($arg1,$arg2);
print Dumper([$ssh->cmd($cmd)]);
$cmd = Generate_Another_Command($arg1,$arg2);
print Dumper([$ssh->cmd($cmd)]);
  2. or download this
    #! /bin/sh

...
javastat=$?
echo "Finished java at `date` with status $javastat"
exit $javastat
  3. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/