Title: Message
@files = (
'Meas.atl00.1040.0710,
'Meas.atl00.1040.0711',
'Meas.atl00.1040.0712',
'Meas.atl00.1040.0713',
'Meas.atl00.1040.0714',
'Meas.atl00.1040.0715',
'Meas.atl00.1040.0716');
open (OUT,
'>>bigfile.txt')||die $!;
foreach
(@files){
open (IN,
"$_")|| die $!;
while
(<IN>){
print OUT
$_;
}
close
IN;
}
close
OUT;
Regards,
Jay
-----Original Message----- From: Nguyen,
David M [mailto:[EMAIL PROTECTED] Sent: Tuesday, July 20, 2004
1:19 PM To: [EMAIL PROTECTED];
[EMAIL PROTECTED] Subject: [Perl-unix-users]
How to append specified files into a big file
I have all the files below under
/mydir directory, I want to append ONLY the files highlighted into a big file
names “bigfile.txt”. How do I accomplish this?
Meas.atl00.1040.0705
Meas.atl00.1040.0706
Meas.atl00.1040.0707
Meas.atl00.1040.0708
Meas.atl00.1040.0709
Meas.atl00.1040.0710
Meas.atl00.1040.0711
Meas.atl00.1040.0712
Meas.atl00.1040.0713
Meas.atl00.1040.0714
Meas.atl00.1040.0715
Meas.atl00.1040.0716
Meas.atl00.1040.0717
Meas.atl00.1040.0718
Meas.atl00.1040.0719
Meas.atl00.1040.0720
Thanks in
advance,
David
|
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs