Re^3: Selective printing of the Duplicates

in reply to Re^2: Selective printing of the Duplicates
in thread Selective printing of the Duplicates

My apologies, as I misunderstood. Try the following:

use strict;
use warnings;

my %seen;

while (<DATA>) {
    chomp;
    my ($col1) = /(\d+)/;    
    $seen{$col1} = $_ if /\*\*/;

    $seen{$col1} = $_
      if !exists $seen{$col1}
      or $seen{$col1} !~ /\*\*/;

}

print "$seen{$_}\n" for keys %seen;


__DATA__
11111111 ** N Sep 29               356200        AGEC682569   ATI     
+  S
11111111    N Sep 29               356200        AGEC682569   ATI     
+  S
30380868    N Sep 29               356200        AGEC682569   ATI     
+  S
30380868 ** N Sep 29               356200        AGEC682569   ATI     
+  S
71130740    N Sep  7               SM9481        AGEC683966   ATI     
+  S
71130740 ** N Sep  7               SM9481        AGEC683966   ATI     
+  S
32450045    N Jul 14               SN9672        AGEC685203   ATI     
+  S
32450045 ** N Jul 14               SN9672        AGEC685203   ATI     
+  S
36450223    N Aug 30               SU8329        AGEC685348   ATI     
+  S
34680135    N Sep 30               349450        AGEC685442   ATI     
+  S
[download]

Output:

71130740 ** N Sep  7               SM9481        AGEC683966   ATI     
+  S
34680135    N Sep 30               349450        AGEC685442   ATI     
+  S
32450045 ** N Jul 14               SN9672        AGEC685203   ATI     
+  S
11111111 ** N Sep 29               356200        AGEC682569   ATI     
+  S
36450223    N Aug 30               SU8329        AGEC685348   ATI     
+  S
30380868 ** N Sep 29               356200        AGEC682569   ATI     
+  S
[download]

The above will preferentially keep starred records, regardless of the order records are processed.

Comment on Re^3: Selective printing of the Duplicates Select or Download Code

Replies are listed 'Best First'.
Re^4: Selective printing of the Duplicates by Thomas Kennll (Acolyte) on Jan 30, 2013 at 20:26 UTC
Thanks a Ton!!!!! This was something I was looking for ..	[reply]
Re^5: Selective printing of the Duplicates by Kenosis (Priest) on Jan 30, 2013 at 20:31 UTC
You're most welcome!	[reply]

In Section Seekers of Perl Wisdom