Re: Combine files with same extension in new file

Use open to open a file for reading or writing. Use glob if you need to expand wildcards. Use the diamond operator to read from a file. $. contains the current line number, so skip the first line in each file.

#!/usr/bin/perl
use warnings;
use strict;

open my $OUT, '>', 'output.txt' or die "output.txt: $!";

for my $file (glob '*.txt') {
    open my $FH, '<', $file or die "$file: $!";
    while (<$FH>) {
        print {$OUT} $_ unless 1 == $.;
    }
}
close $OUT or die $!;
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re: Combine files with same extension in new file Download Code

Replies are listed 'Best First'.
Re^2: Combine files with same extension in new file by AhmedABdo (Acolyte) on Oct 01, 2015 at 10:22 UTC
Thanks, it works, but it overwrite many times and does not stop	[reply]
Re^3: Combine files with same extension in new file by choroba (Cardinal) on Oct 01, 2015 at 10:28 UTC
What do you mean? If I understand correctly, when you run it again, it finds `output.txt` created in the previous run as one of the inputs - that might be the problem. So, before doing `glob`, `unlink 'output.txt';` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^4: Combine files with same extension in new file by AhmedABdo (Acolyte) on Oct 01, 2015 at 10:38 UTC
Thanks for answering me. yes as you said, it takes the output.txt file and run it as input. I added unlink 'output.txt'; before the "for my $file (glob '*.tsv')" as you said, but this time nothing happened and even did not make output.txt file. Thanks	[reply]
Re^5: Combine files with same extension in new file by choroba (Cardinal) on Oct 01, 2015 at 11:15 UTC
Re^6: Combine files with same extension in new file by AhmedABdo (Acolyte) on Oct 01, 2015 at 12:27 UTC
Re^4: Combine files with same extension in new file by Anonymous Monk on Jul 17, 2019 at 14:31 UTC
This is great perl code to combine multiple files into one. After adding that extra line before GLOB, it work perfect!!! Thank you very much Choroba!! Roger	[reply]