Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
open(LS, qq{ssh -p 22 onelesd\@localhost "if [ -d /home/foo/bar/201108
+26 ] ; then echo 1 ; else echo 0 ; fi" 2>&1 |});
my $baz = <LS>;
print $baz ;
  2. or download this
    MacBook-Pro:Downloads onelesd$ ./script.pl 
0
MacBook-Pro:Downloads onelesd$