#!/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
|
