Re: comparing lines of data

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11108762
use warnings;

$_ = <<'';
1 2 3 4
1 2 3 5
1 2 4 6
1 2 3 4
1 2 3 5
1 2 4 7
4 6 3 9

my (@match, @nomatch);

while( /^(?=((?:.*\n){5})(.*\n))/gm )
  {
  my ($five, @six) = ($1, sort split ' ', $2);
  my %found = map +($_ => 1), split ' ', $five;
  push @match, "@{[ grep $found{$_}, @six ]}\n";
  push @nomatch, "@{[ grep !$found{$_}, @six ]}\n";
  }

print "match:\n", @match, "\nnomatch:\n", @nomatch;
[download]

Comment on Re: comparing lines of data Download Code

Replies are listed 'Best First'.
Re^2: comparing lines of data by Scotmonk (Sexton) on Nov 15, 2019 at 22:38 UTC
Thankyou tybalt89 Could I ask another ? Could you adjust that code so that it will read the input data from a file called input.txt and print the match data to match.txt and no match.txt ? Or should I ask as a new question ? Thanks again :)	[reply]
Re^3: comparing lines of data by AnomalousMonk (Archbishop) on Nov 16, 2019 at 01:51 UTC
Could I ask another ? No! (Just kidding :) ... adjust that code so that it will read the input data from a file ... and print the match data to [files] ... Please see also perlintro, open, perlopentut, and some of the articles in Input and Output, such as File Input and Output (but use the modern "three argument" call to open; the latter article is old and often uses "global" filehandles in its examples). Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^3: comparing lines of data by harangzsolt33 (Deacon) on Nov 16, 2019 at 01:03 UTC
To read from a file, all you have to do is : `my $Filename = “...”; my $Filehandle; open $Filehandle, ‘<‘, $Filename or die “cant open file.\n”; my @Lines = <$Filehandle>; close $Filehandle; ...` [download]	[reply] [d/l]
Re^4: comparing lines of data by marto (Cardinal) on Nov 16, 2019 at 09:26 UTC
Better to let open report why opening fails should that occur: `open(my $fh, "<", $filename) or die "Can't open $filename: $!";` [download]	[reply] [d/l]