Bugs/assignglob

   1 #!./perl
   2
   3 #!/usr/bin/perl
   4 $month = (split(' ',`date`))[1];
   5
   6 while (<DATA>) {
   7     next if 1 .. ?^$month\b?o;
   8     next unless /deposit/;
   9     ($day) = /(\d+)/;
  10     local(*where) = m:([^/]+)$:;
  11     # with the local, you get bad free's.  with it, you get a core dump
  12     $where{$day}++;
  13 }
  14
  15 @days = sort { $a <=> $b } keys %personal;
  16
  17 foreach $place ('tivoli', 'lists', 'personal') {
  18     *where = $place;
  19     foreach $day (@days) {
  20         printf "Aug %02d: %3d in %s\n", $day, $where{$day}, $place;
  21     }
  22 }
  23
  24 __END__
  25 Aug 27 10:40:20 New mail from hess
  26 Aug 27 10:40:20 deposit into /home/wraeththu/tchrist/Mail/in.coming/tivoli
  27 Aug 27 10:42:27 New mail from jcarson
  28 Aug 27 10:42:27 deposit into /home/wraeththu/tchrist/Mail/in.coming/tivoli
  29 Aug 27 10:48:18 New mail from dean
  30 Aug 27 10:48:18 deposit into /home/wraeththu/tchrist/Mail/in.coming/tivoli
  31 Aug 27 11:05:56 New mail from hess
  32 Aug 27 11:05:56 deposit into personal
  33 Aug 27 11:13:28 New mail from hess
  34 Aug 27 11:13:28 deposit into personal