Help for this page

Select Code to Download


  1. or download this
    __DATA__
sender@domain1.com
...
noreply@domain1.com
sender@domain1.com
noreply@domain1.com
  2. or download this
    
my $logfile = '/tmp/senders.txt';
...

close $fh;
  3. or download this
    
my @word = map{ $count{$_} || 0 } qw($word);
...
    [@count_word],
]) or die GD::Graph::Data->error;
  4. or download this
    
#!/usr/bin/perl
...
binmode STDOUT;
print $graph->gd->png;