Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Modify csv file.

by BillKSmith (Vicar)
on Nov 05, 2012 at 13:27 UTC ( #1002323=note: print w/replies, xml ) Need Help??

in reply to Modify csv file.

It is impossible to modify any type of file "in-place" unless the replacement fields each have exactly the same number of characters as the fields they replace. Even in that case it is usually easier to copy and rename the file as you suggested. The details often be handled automatically. (Refer to runtime options -i and -p in perldoc perlrun)


Replies are listed 'Best First'.
Re^2: Modify csv file.
by clueless newbie (Chaplain) on Nov 05, 2012 at 15:23 UTC

    Actually it's not impossible to modify any type of file "in place". Just for Fun ... to update a file "in place".

    ... open(my $READER,'+<',$Filename_S) or die "Can't open '$Filename_S'! $!"; open(my $WRITER,'+<',$Filename_S) # Don't use + '+>' or die "Can't open '$Filename_S'! $!"; # The overflow buffer: my @Buffer_a; while (<$READER>) { # Read (past tense) a line - buffer its replacement ... # Modify the line here! my $Update_s=... push(@Buffer_a,$Update_s); # Write from the overflow buffer if we can ... while (@Buffer_a && length($Buffer_a[0]) < tell($READER)-tell( +$WRITER)) { # Enough room to write $Buffer_a[0] so write it ... print $WRITER shift(@Buffer_a); }; }; # Nothing more to read ... close($READER) or die "Can't close '$Filename_S'! $!"; # If there's anything in the buffer write it ... while (@Buffer_a) { print $WRITER shift(@Buffer_a); }; # Truncate the file, in case, what we're writing is shorter than w +hat we read truncate($WRITER,tell($WRITER)); # ... and close close($WRITER) or die "Can't close '$Filename_S'! $!"; ...
    Be aware that if something should happen during the update one may be "up the creek without a paddle".

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1002323]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (11)
As of 2018-05-28 09:01 GMT
Find Nodes?
    Voting Booth?