On Dec 18, 2007 4:35 PM, Martin Visser <[EMAIL PROTECTED]> wrote:
>  perl -e 'while(<>){$a+=s/[,]//g};print "$a\n"' <input.txt
>

Ruby version:

ruby -e "p IO.read('input.txt').count(',')"

Lindsay

-- 
http://slug.org.au/ (the Sydney Linux Users Group)
http://holmwood.id.au/~lindsay/ (me)
-- 
SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html

Reply via email to