[ 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.