Next | Tie::File | 14 |
for (@FILE) { s/^/>> /; }
Loops like this are common
Sometimes in disguise:
@FILE = qw(I like pie);
Tie::File detects these and enables deferred writing automatically
Then disables it again when you're done
Unless you don't want that:
tie @FILE, 'Tie::File', $myfile, autodefer => 0;
Next | . | Copyright © 2002 M. J. Dominus |