Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: Perl Format the Output in table

by protist (Monk)
on Oct 11, 2012 at 15:30 UTC ( #998478=note: print w/ replies, xml ) Need Help??

in reply to Perl Format the Output in table

#!/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;

Comment on Re: Perl Format the Output in table
Download Code
Replies are listed 'Best First'.
Re^2: Perl Format the Output in table
by Kenosis (Priest) on Oct 11, 2012 at 17:51 UTC

    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 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}; ...
Re^2: Perl Format the Output in table
by ppnair (Initiate) on Oct 12, 2012 at 06:59 UTC

    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.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998478]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2016-02-12 16:51 GMT
Find Nodes?
    Voting Booth?

    How many photographs, souvenirs, artworks, trophies or other decorative objects are displayed in your home?

    Results (410 votes), past polls