Re: parse multiple text files keep unique lines only

#!/usr/bin/perl

# http://perlmonks.org/?node_id=1193719

use strict;
use warnings;
use File::Find;
use File::Slurp qw( edit_file_lines );

my $directory = 'some/test/';

find sub { my %u; -f and /\.txt$/ and
  edit_file_lines sub { $_ x= !$u{$_}++ }, $_ }, $directory;
[download]

hehehe

Comment on Re: parse multiple text files keep unique lines only Download Code

Replies are listed 'Best First'.
Re^2: parse multiple text files keep unique lines only by 1nickt (Canon) on Jun 28, 2017 at 08:02 UTC
Don't use `File::Slurp`, it's broken. The way forward always starts with a minimal test.	[reply] [d/l]
Re^3: parse multiple text files keep unique lines only by tybalt89 (Monsignor) on Jun 28, 2017 at 13:05 UTC
`#!/usr/bin/perl # http://perlmonks.org/?node_id=1193719 use strict; use warnings; use File::Find; use Path::Tiny; my $directory = 'some/test/'; find sub { my %u; -f and /\.txt$/ and path($_)->edit_lines( sub { $_ x= !$u{$_}++ } ) }, $directory;` [download]	[reply] [d/l]
Re^4: parse multiple text files keep unique lines only by tybalt89 (Monsignor) on Jul 01, 2017 at 02:53 UTC
With Path::Tiny, you don't need File::Find. `#!/usr/bin/perl # http://perlmonks.org/?node_id=1193719 use strict; use warnings; use Path::Tiny; my $directory = 'some/test/'; path($directory)->visit ( sub { my %u; -f and /\.txt$/ and $_->edit_lines ( sub { $_ x= !$u{$_}++ } ) } );` [download]	[reply] [d/l]