Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: joining files

by Tanalis (Curate)
on Oct 17, 2002 at 10:40 UTC ( [id://205981]=note: print w/replies, xml ) Need Help??


in reply to joining files

Untested code, but .. 

while (my $file1 = <FILE1> and my $file2 = <FILE2>) {
  chomp $file1;
  chomp $file2;
  print join " ", $file1, $file2, "\n";
}

[download]

--Foxcub

Replies are listed 'Best First'.
Re^2: joining files
by Aristotle (Chancellor) on Oct 17, 2002 at 13:58 UTC
    That won't fly. If any of the files ends with a line containing just 0 and no newline, that will be skipped. Besides, why chomp both strings only to append a newline one line later? 
    my $append;
chomp, print "$_ $append" while defined($_ = <FILE1>) and defined($app
+end = <FILE2>);

    [download]
    Sidenote, I considered using defined($_ = <FILE1> and $append = <FILE2>) but that's broken: if $_ eq "0", it will false-shortcircuit $append and defined will test true - even though $append might be undefined.

    Makeshifts last the longest.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://205981]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (3)
As of 2024-04-19 01:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found