On Dec 18, 2007 4:35 PM, Martin Visser <[EMAIL PROTECTED]> wrote: > perl -e 'while(<>){$a+=s/[,]//g};print "$a\n"' <input.txt > > Do I win??
No. Ironically, your solution is 3 characters longer. :-) 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