Re: Perl Format the Output in table

[protist]

#!/usr/bin/perl
use warnings;
use strict;
open my $fh, "<", "output.txt" or die "could not open output.txt\n";

my %data;
while(<$fh>){
        chomp;
        $_=~ m/(.*?)\s++(\d++)/;
        my $site=$1;
        my $week=$2;
        $data{$site}{$week}++;
}

print "Domain/WeekNumber\tWeek28\tWeek29\tWeek30\tWeek31\n";


for my $site(sort keys %data){
        print"$site\t\t";
        for my $week (qw(28 29 30 31)){
                unless(defined $data{$site}{$week} ){
                        print"NO\t";
                }else{
                        print $data{$site}{$week} ."\t";
                }
        }
        print"\n";
}
close $fh;

[Kenosis]

Nice work on processing the Output.txt file. However, if I'm understanding the OP correctly, the contents of domain.txt are used to filter the contents of Output.txt, such that expand.com will not appear in the final output when using the OP's shown data sets. Given this, perhaps something like the following additions are needed:

...

open my $fh2, '<', 'domains.txt' or die "could not open domains.txt: $
+!\n";
my %domains = map { chomp; $_ => 1 } <$fh2>;
close $fh2;

open my $fh, "<", "output.txt" or die "could not open output.txt: $!\n
+";

my %data;
while (<$fh>) {
    chomp;
    $_ =~ m/(.*?)\s++(\d++)/;
    next unless $domains{$1};

...

[ppnair]

Thank you very much for the help.

But 'Output.txt'have got dynamic data.The week Number Will keep on change when ever i pull data from Maillog for current month.

print "Domain/WeekNumber\tWeek28\tWeek29\tWeek30\tWeek31\n"; and for my $week (qw(28 29 30 31)) will not work for me since the week number chnages every month.