I have written a perl code for processing file 'Output.txt' which has below Content.

new.example.com 28

new.example.com 28

example.com 28

example.com 29

example.com 29

example.com 29

example.com 29

orginal.com 28

orginal.com 29

orginal.com 30

orginal.com 31

expand.com 31

And file 'domain.txt' has list of domain Names which i need to match against File 'Output.txt'

new.example.com

example.com

orginal.com

test.com

new.com

I could manage to write PERL code like this 

 #!/usr/bin/perl
    use strict;
    open(LOGFILE,"Output.txt") or die("Could not open log file.");
    my $domain_name = 'domain.txt' ;
    open(DOM, $domain_name);
    my @r_contents = <LOGFILE>;
    close(LOGFILE);    
    while(<DOM>) {
        chomp;
        my $line = $_;
        my @lowercase = map { lc } @r_contents;
        my @grepNames = grep  /^$line/, @lowercase;
        foreach (@grepNames) {
            if ( grep  /^$line/, @lowercase ) {
                $domains{lc($_)}++ ;            }
        }
    }
    
    close(DOM) ;    
    foreach my $domain (sort keys %domains) {
        my %seen ;
         ($Dname, $WeekNum) = split(/\s+/, $domain);
         my @array1 = grep { ! $seen{ $_ }++ } $WeekNum;
        push @array2, @array1;
        my @array4 = "$domains{$domain} $domain" ;
        push @matrix,@array4 ;
    }
       printf "%-10s %-25s %-25s\n", 'DoaminName', "Week $array2[0]" ,
+"Week $array2[1]","Week $array2[2]";
       print " @matrix \n";

[download]

current Output looks like this.

DoaminName Week 28 week29 week30 week 31

2 new.example.com 35

1 example.com 28

4 example.com 29

1 orginal.com 28

1 orginal.com 29

1 orginal.com 30

1 orginal.com 31

But i trying re-write the perl code to print the output In table with unique details .Please help me to correct the code.

Domain/WeekNumber Week28 Week29 Week30 Week31

new.example.com 2 No No No

example.com 1 4 NO NO

orginal.com 1 1 1 1

In reply to Perl Format the Output in table by ppnair

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.