Help for this page
open(FOO, "+< $myfile") || die "Could not open $myfile $!\n"; @bar=<FOO>; ... truncate(FOO, tell); print FOO @bar; close(FOO);
open(FOO, "$myfile") || die "Could not open $myfile $!\n"; @bar=<FOO>; ... open(FOO, ">$myfile") || die "Could not open $myfile $!\n"; print FOO @bar; close(FOO);
www.com | www.net | www.org
No recent polls found