f36e9e21504a11febb47b821c174c104fd9003d3
[perl.git] / 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