diff options
Diffstat (limited to 'Bugs/arraynotok')
| -rwxr-xr-x | Bugs/arraynotok | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/Bugs/arraynotok b/Bugs/arraynotok deleted file mode 100755 index dd1b05383d..0000000000 --- a/Bugs/arraynotok +++ /dev/null @@ -1,72 +0,0 @@ -#!/usr/bin/perl - -# -# I thought that I would try out some perl 5 features for the first time. -# So I wrote a small program, included below. It died, and the partial -# output looks very much like what I wanted to accompish. Even if the program -# had not died, there is still the problem that no output was given under the -# label "sonia:". -# -# Since the output is close, perhaps a bug lurks within...(?) I'm using the -# compiled binary provided in the perl5a6 tar file. I tried to write this -# post so it could be given to perl with the -x flag. You should get the -# output I describe here -- -# James Bence -# jbence@math.ucla.edu -# -# Output: -# -# Pushed ege into @sonia -# Pushed caflisch into @joshua -# Pushed catalina into @julia -# Pushed lunnon into @sonia -# Pushed m270alg into @redwood -# Pushed harten into @joshua -# Pushed ycc into @joshua -# Pushed m270wsc into @redwood -# -# -# joshua: -# caflisch harten ycc -# -# sonia: -# -# -# redwood: -# m270alg m270wsc -# -# julia: -# Segmentation fault -# -# - -require 5.000; - -while (<DATA>) { - ($login,$host) = split; - push(@{$hostref{$host}},$login); # t/op/ref.t (22) suggests this is ok. - print "Pushed $login into \@$host\n"; -} - -print"\n\n"; - -while ( ($host,$ref) = each(%hostref)) { - print "$host:\n "; - $count = 0; - foreach $person (@{$ref}) { - print $person, " "; - $count++; - if ($count % 5 == 0) { print "\n "; } - } - print "\n\n"; -} - -__END__ -ege sonia -caflisch joshua -catalina julia -lunnon sonia -m270alg redwood -harten joshua -ycc joshua -m270wsc redwood |