Help for this page

Select Code to Download


  1. or download this
    open (M, "|more") || die "Could not open more!\n";
  2. or download this
    chomp,@_=split(/::/),($e{$_[0]},$l{$_[0]})=($_[1],0)while(<>);

...
  $l{$_}--;
  print "$e{$_} has a KK of $L[$x]\n";
}
  3. or download this
    A::aaron
B::bob
C::cindy
  4. or download this
    %type test.txt | perl kk2.pl

...
bob has a KK of A
cindy has a KK of