Help for this page
#!/usr/bin/env perl use strict; use warnings; ... while (($i=sysread $cpo,$data,4096)!=0){print $cpn $data}; close($cpn);close($cpo); }
#!/usr/bin/env perl use strict; use warnings; ... } rmdir "$_[0]"; }
sub fmove { my ($i,$data,$mvo,$mvn); ... while (($i=sysread $mvo,$data,4096)!=0){print $mvn $data}; close($mvn);close($mvo);unlink("$_[0]"); }
www.com | www.net | www.org
No recent polls found