File::Data – interface to file data
DESCRIPTION
Wraps all the accessing of a file into a convenient set of calls for reading and writing data, including a simple regex interface.
Note that the file needs to exist prior to using this module!
See new()
SYNOPSIS
use strict; use File::Data; my $o_dat = File::Data->new( './t/example' ); $o_dat -> write ( "complete file contents\n" ); $o_dat ->prepend( "first line\n" ); # line 0 $o_dat ->append( "original second (last) line\n" ); $o_dat ->insert(2, "new second line\n" ); # inc. zero! $o_dat ->replace( 'line' , 'LINE' ); print $o_dat ->READ; |
Or, perhaps more seriously :-}
my $o_sgm = File::Data->new( './sgmlfile' ); print "new SGML data: " . $o_sgm ->REPLACE( '\<\s*((?i)tag)\s*\>\s*((?s).*)\s*\<\s*((?i)\s*\/\s*tag)\s*\>' , qq|<tag>key="val"</tag>| , ) if $o_sgm ; |