Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: truncate or trunc

by jscjso (Initiate)
on Apr 25, 2008 at 16:59 UTC ( #682876=note: print w/replies, xml ) Need Help??

in reply to truncate or trunc

Hi, Thanks for the quick replies. Here is my code: while (<DATA>){ unless (/$data_line_old/i){ my $read_position = tell DATA; seek DATA, $write_position, 0; print DATA $_; $write_position = tell DATA; seek DATA, $read_position, 0; } } truncate DATA, $write_position; close DATA; I tried to remove old lines from a text file. The tell and seek monitor the positions of the existing file and temporary file that it is creating. At the end of the creation. I try to use the truncate or trunc to cut the finished file to the right size(length). After the confidence you gave about the truncate, I tried again a few more times and discovered what went work. I initial used trunc and it errors me out as: Can't locate object method "trunc" via package "IO::Handle" at line 514, <DATA> line 10. Since this error, the original file got messed up. Then the truncate went wild after a few runs. The text file became super long with wrong length. I have it working now. Thanks, Jason

Replies are listed 'Best First'.
Re^2: truncate or trunc
by apl (Monsignor) on Apr 25, 2008 at 17:08 UTC
    Please bracket your code with <code> and </code>. Thanks.

    I assume you opened a file with the filehandle DATA? Please change that to something else. DATA is reserved for a block of sample data within your program.

    Then you might consider testing your error returns...

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://682876]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (1)
As of 2023-06-08 01:02 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (29 votes). Check out past polls.