[ next ] [ prev ] [ contents ] Invitation To Ruby

Perl Version

  1: #!/usr/bin/env perl
  2: 
  3: while (<>) {
  4:     $count++ if /Ruby/;
  5: }
  6: print "$count lines\n"


[ next ] [ prev ] [ contents ] Copyright 2002 by Jim Weirich.
All rights reserved.