Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: find common data in multiple files

by BillKSmith (Parson)
on Dec 28, 2017 at 18:28 UTC ( #1206346=note: print w/replies, xml ) Need Help??

in reply to find common data in multiple files

I searched MetaCPAN for "intersection set". The second entry (App::setop) appears to be exactly what you need.

Replies are listed 'Best First'.
Re^2: find common data in multiple files
by thanos1983 (Vicar) on Dec 29, 2017 at 14:44 UTC

    Hello BillKSmith,

    I had no idea, great module thanks for pointing it also to us.

    Just to include a complete answer for future reference I will also add sample of code.

    #!/usr/bin/perl use strict; use warnings; use Capture::Tiny 'capture'; my $cmd = 'setop --intersect ' . join ' ', @ARGV; my ($stdout, $stderr, $exitCode) = capture { system( $cmd ); }; print $stdout if $exitCode == 0; print 'Error: ' . $stderr unless $exitCode == 0; __END__ $ perl File1.txt File2.txt File3.txt ID121 ABC14 ID122 EFG87 ID157 TSR11

    BR / Thanos

    Seeking for Perl wisdom...on the process of learning...not there...yet!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1206346]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2018-07-16 23:29 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (352 votes). Check out past polls.