Re: Best way to append bigger files


Keep It Simple, Stupid
	PerlMonks

Re: Best way to append bigger files

by brx (Pilgrim)

on Jul 24, 2012 at 15:21 UTC ( [id://983437]=note: print w/replies, xml )

Need Help??

in reply to Best way to append bigger files

Here is a try without File::Copy.

#!perl
my $blocksize = (stat'.')[11] || 4096;

open ( my $s, "<", "source" ) or die "Could not open source file: $!\n
+";
open ( my $d , ">>", "dest" ) or die "Could not open destination file 
+: $!\n";

my $buffer;

do {
    local $/ = \$blocksize;
    print {$d} $buffer while ( $buffer = <$s> );
}
[download]

English is not my mother tongue.
Les tongues de ma mère sont "made in France".

Comment on Re: Best way to append bigger files Download Code

Replies are listed 'Best First'.
Re^2: Best way to append bigger files by Anonymous Monk on Jul 24, 2012 at 17:01 UTC
Aren't these time consuming ways?	[reply]
Re^3: Best way to append bigger files by brx (Pilgrim) on Jul 24, 2012 at 17:21 UTC
Aren't these time consuming ways? Perhaps. This is something to test. If portability is not a priority, `system "cat source >> dest"` is probably better with unixes. OP wants to avoid memory issue: OP: Finally, I would want to know the right and best way to append a to another file with out consuming memory. So I presume read/write in buffer corresponding to blocksize is a good choice if we can know the good one. With files of such size (terrabytes) there is a question: do I really have to append files? :) English is not my mother tongue. Les tongues de ma mère sont "made in France".	[reply] [d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://983437]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others wandering the Monastery: (6)

As of 2024-04-19 10:58 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found