Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

CColin's scratchpad

by CColin (Scribe)
on Feb 24, 2011 at 20:30 UTC ( #890049=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl use warnings; use strict; my $linecount = 0; my @files = </path_to_nine_files_prefixed_by_rawfile/rawfile*>; open (MASTER, "/path_to_starting_file/rawfile"); while (<MASTER>) { #process the first line of master and then get the first #line of the +other files, since files are all same length... $_ =~ s/^\s+|\s+$//g; print "$_,"; #process the first lines of each of the other files and #append them foreach my $file (@files) { open (FILE, $file); my @file_lines = <FILE>; my $required_line = $file_lines[$linecount]; print "$required_line,"; next; } #end foreach $file print "\n"; $linecount++; } #end while
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
[thezip]: Heya tye!
[tye]: hey, thezip!
[RonW]: Hi, tye, thezip
[RonW]: I see useless errors liek that from Perl programs, too.
[tye]: well, you certainly don't see strack traces with all of the values removed from Perl.
[thezip]: Howdy RonW. Not in *my* logfiles you won't!
[tye]: and I never claimed anything about 100% on either side.
[RonW]: Presumably because the coders didn't realize that die and warn will append line number and file when the message strings doesn'r end with a line terminator
[tye]: And these are popular and not new python projects.
[thezip]: I had a user complain that they didn't receive an email from one of my processes. I went to the logfile and reproduced the entire contents of the email they would have received. Not my problem.

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2017-09-21 20:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (252 votes). Check out past polls.

    Notices?