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

[1nickt]

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

[tybalt89]

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

[tybalt89]

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{$_}++
        }
      )
    }
  );