|
|
#!/usr/bin/perl## ** Please have a look at CHANGELOG-<Maintainer> for the CHANGELOGs **## This perl script can be used to create one big CHANGELOG from the others...#
my %changes;my ($d, $m);
print "\n";chdir $1 if $0 =~ m,(.*)/,;
foreach $m (qw/CLIFFORD RENE ESDEN/) { open(F, "CHANGELOG-$m") || die "Can't open CHANGELOG-$m: $!"; for ($d=''; <F>; $changes{$d} .= $_ if $d) { $d=$_ if s/^(\*.*)\n/$1 [$m]\n/; } close F;}
print $changes{$_} foreach sort {$b cmp $a} keys %changes;
############################################################################# ## EXTERIOR: DAGOBAH -- DAY ## ## With Yoda strapped to his back, Luke climbs up one of the many thick ## vines that grow in the swamp until he reaches the Dagobah statistics ## lab. Panting heavily, he continues his exercises -- grepping, ## installing new packages, logging in as root, and writing replacements ## for two-year-old shell scripts in Python. ## ## YODA: Code! Yes. A programmer's strength flows from code ## maintainability. But beware of Perl. Terse syntax...more than one way ## to do it...default variables. The dark side of code maintainability ## are they. Easily they flow, quick to join you when code you write. If ## once you start down the dark path, forever will it dominate your ## destiny, consume you it will. ## ## LUKE: Is Perl better than Python? ## ## YODA: No... no... no. Quicker, easier, more seductive. ## ## LUKE: But how will I know why Python is better than Perl? ## ## YODA: You will know. When your code you try to read six months from now. ## #############################################################################
|
