Using split, map and grep inside a do block.

johngg@shiraz:~/perl/Monks > perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<__EOD__ or die $!;
C000004923;VK11070778;Delta;;16/08/2017;15/09/2017;Prepayment;Yes;Addi
+tional note
C000004923;VK11070778;Rounding;;16/08/2017;15/09/2017;Prepayment;Yes;A
+dditional note
C000004924;VK11070778;Delta Gas;;16/08/2017;15/09/2017;Prepayment;Yes;
+Additional note
C000858948;VK11070783;Delta;;3/01/2017;2/02/2017;Prepayment;Yes;Additi
+onal note
C001028127;VK11070844;Delta;;1/07/2017;31/07/2017;Prepayment;Yes;Addit
+ional note
C000863388;VK11070869;Delta;;14/03/2016;13/04/2016;Prepayment;Yes;Addi
+tional note
C000863388;VK11070869;Rounding;;14/03/2016;13/04/2016;Prepayment;Yes;A
+dditional note
C000863389;VK11070869;Delta Gas;;14/03/2016;13/04/2016;Prepayment;Yes;
+Additional note
C001041275;VK11070873;Delta;;14/04/2017;13/05/2017;Prepayment;Yes;Addi
+tional note
C000457921;VK11070913;Delta;;11/12/2014;10/01/2015;Prepayment;Yes;Addi
+tional note
C000457922;VK11070913;Delta Gas;;11/12/2014;10/01/2015;Prepayment;Yes;
+Additional note
C000354278;VK11070920;Delta;;21/09/2015;20/10/2015;Prepayment;Yes;Addi
+tional note
C000354278;VK11070920;Rounding;;21/09/2015;20/10/2015;Prepayment;Yes;A
+dditional note
C001139698;VK11070923;Delta;;12/08/2017;11/09/2017;Prepayment;Yes;Addi
+tional note
C001139698;VK11070923;Rounding;;12/08/2017;11/09/2017;Prepayment;Yes;A
+dditional note
C001072986;VK11070933;Delta;;14/03/2017;15/05/2017;Prepayment;Yes;Addi
+tional note
C001072986;VK11070933;Rounding;;14/03/2017;15/05/2017;Prepayment;Yes;A
+dditional note
C000833421;VK11074400;Delta;;1/05/2017;31/05/2017;Prepayment;Yes;Addit
+ional note
C000833422;VK11074400;Delta Gas;;1/05/2017;31/05/2017;Prepayment;Yes;A
+dditional note
C000833422;VK11074400;Rounding;;1/05/2017;31/05/2017;Prepayment;Yes;Ad
+ditional note
C000147059;VK11074404;Delta;;20/06/2017;19/07/2017;Prepayment;Yes;Addi
+tional note
C000147062;VK11074404;Delta Gas;;20/06/2017;19/07/2017;Prepayment;Yes;
+Additional note
C001109215;VK11074415;Delta;;24/08/2017;23/09/2017;Prepayment;Yes;Addi
+tional note
C000313157;VK11074418;Delta;;15/11/2016;14/12/2016;Prepayment;Yes;Addi
+tional note
C000313157;VK11074418;Rounding;;15/11/2016;14/12/2016;Prepayment;Yes;A
+dditional note
C000313158;VK11074418;Delta Gas;;11/11/2016;10/12/2016;Prepayment;Yes;
+Additional note
C001099002;VK11074430;Delta;;1/08/2017;31/08/2017;Prepayment;Yes;Addit
+ional note
C001117234;VK11074441;Delta Gas;;15/06/2017;14/07/2017;Prepayment;Yes;
+Additional note
C001009800;VK11074443;Delta;;16/11/2016;15/12/2016;Prepayment;Yes;Addi
+tional note
C000679686;VK11074451;Delta;;20/06/2016;19/07/2016;Prepayment;Yes;Addi
+tional note
C000679687;VK11074451;Delta Gas;;20/06/2016;19/07/2016;Prepayment;Yes;
+Additional note
C001242987;VK11074454;Delta Gas;;15/06/2017;14/07/2017;Prepayment;Yes;
+Additional note
C001080282;VK11074470;Delta;;2/03/2017;1/04/2017;Prepayment;Yes;Additi
+onal note
C001080283;VK11074470;Delta Gas;;2/03/2017;1/04/2017;Prepayment;Yes;Ad
+ditional note
C001192414;VK11074473;Delta;;14/07/2017;13/08/2017;Prepayment;Yes;Addi
+tional note
C001192414;VK11074473;Rounding;;14/07/2017;13/08/2017;Prepayment;Yes;A
+dditional note
C001192415;VK11074473;Delta Gas;;14/07/2017;13/08/2017;Prepayment;Yes;
+Additional note
C001192415;VK11074473;Rounding;;14/07/2017;13/08/2017;Prepayment;Yes;A
+dditional note
C000268914;VK11074478;Delta;;9/10/2016;8/11/2016;Prepayment;Yes;Additi
+onal note
C000268914;VK11074478;Rounding;;9/10/2016;8/11/2016;Prepayment;Yes;Add
+itional note
__EOD__

say for do {
   my %seen;
   grep { not $seen{ $_ } ++ }
   map  { ( split m{;} )[ 1 ] }
   <$inFH>;
   };'
VK11070778
VK11070783
VK11070844
VK11070869
VK11070873
VK11070913
VK11070920
VK11070923
VK11070933
VK11074400
VK11074404
VK11074415
VK11074418
VK11074430
VK11074441
VK11074443
VK11074451
VK11074454
VK11074470
VK11074473
VK11074478

[download]

I hope this is useful.

Cheers,

JohnGG

In reply to Re: Removing doubles and printing only unique values by johngg
in thread Removing doubles and printing only unique values by zarath

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.