Those are all major typo inducing changes.
You'll need alternative micro-code loads for your fingers, when
switching between clients and when editing scripts that pre-date Perl
6.
<chaim>
>>>>> "NT" == Nathan Torkington <[EMAIL PROTECTED]> writes:
NT> Here's a program I use to count messages in my mailfile:
NT> #!/usr/bin/perl -w
NT> while (<>) {
NT> if (($who) = /^From\s+\S+\s+\S+\s+(\S+\s+\S+)/) {
NT> @r = reverse split ' ', $who;
NT> $r[0] = sprintf("%02d", $r[0]);
NT> $count{"@r"}++;
NT> }
NT> }
NT> foreach (sort keys %count) {
NT> printf("%s: %3d\n", $_, $count{$_});
NT> }
NT> Here's the corresponding perl6 program:
NT> #!/usr/bin/perl -w
NT> while (<$ARGS>) {
NT> if (($who) = /^From\s+\S+\s+\S+\s+(\S+\s+\S+)/) {
NT> @r = reverse split ' ', $who;
NT> @r[0] = sprintf("%02d", @r[0]);
NT> %count{"@r"}++;
NT> }
NT> }
NT> foreach (sort %count) {
NT> printf("%s: %3d\n", $_, %count{$_});
NT> }
NT> Notice the variable changes: %count{...} because I'm talking about the
NT> hash %count. @r[0] because I'm talking about the array @r.
NT> Nat
--
Chaim Frenkel Nonlinear Knowledge, Inc.
[EMAIL PROTECTED] +1-718-236-0183
