My use:tie @lines, 'Tie::File', 'file' or die ...; for (@lines) { if (/<!-- insert here -->/) { $_ .= $text; last; } } untie @lines;
tie @array, 'Tie::File', $file or die ("Oh Noes cannot open $file"); for (@array){ if (/"$section"/){ $_ .="$newline"; last; } } untie @array;
In reply to Tie::File question by machvvv
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |