On Dec 18, 2007 4:47 PM, Jeff Waugh <[EMAIL PROTECTED]> wrote:
> <quote who="Martin Visser">
>
> > perl -e 'while(<>){$a+=s/[,]//g};print "$a\n"' <input.txt
> >
> > Do I win??
>
> Oddly, perl very rarely wins these. ;-)
This must come close:
perl -00 -ne 'print tr/,//' input.txt
--
Norman Gaywood, Systems Administrator
University of New England, Armidale,
NSW 2351, Australia
--
SLUG - Sydney Linux User's Group Mailing List - http://slug.org.au/
Subscription info and FAQs: http://slug.org.au/faq/mailinglists.html
