Re^2: parse multiple text files keep unique lines only

Don't use File::Slurp, it's broken.

The way forward always starts with a minimal test.

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

Replies are listed 'Best First'.
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]