O.K. but how to append a file to the begining?
open (GB,"+<$bookfile")||die "can't open\n";\n seek (GB,0,0); print GB "$data1|$data2|\n";
works but always the first line is deleted. How to write a file at the begining and preserve all data? sOKOle
In reply to begining of a file by sOKOle
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |