Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use strict; use warnings;

...
while (($i=sysread $cpo,$data,4096)!=0){print $cpn $data};
close($cpn);close($cpo);
}
  2. or download this
    #!/usr/bin/env perl
use strict; use warnings;

...
}
rmdir "$_[0]";
}
  3. or download this
    sub fmove {
my ($i,$data,$mvo,$mvn);
...
while (($i=sysread $mvo,$data,4096)!=0){print $mvn $data};
close($mvn);close($mvo);unlink("$_[0]");
}