
more useful options
	PerlMonks

Re: Get me excited about perl

by BrowserUk (Pope)

on Sep 19, 2012 at 19:55 UTC ( #994514=note: print w/replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

/* -*- mode: c -*-
 * $Id: wordfreq.gcc,v 1.5 2001/09/18 17:25:18 doug Exp $
...
    ht_destroy(ht);
    return(0);
}

Select or download this

// -*- mode: c++ -*-
// $Id: wordfreq.g++,v 1.5 2001/07/21 23:51:05 doug Exp $
...

    return 0;
}

Select or download this

// $Id: wordfreq.java,v 1.3 2000/12/17 21:40:53 doug Exp $
// http://www.bagley.org/~doug/shootout/
...
        }
    }
}

Select or download this

#!/usr/local/bin/python
# $Id: wordfreq.python,v 1.9 2001/05/11 17:44:00 doug Exp $
...
    print '\n'.join(["%7s\t%s" % (count, word) for (count, word) in l]
+)

main()

Select or download this

-- $Id: wordfreq.ghc,v 1.2 2001/02/27 04:04:35 doug Exp $
-- http://www.bagley.org/~doug/shootout/
...
                              where (w, s'') = span isLower s' 

       lower     = map toLower

Select or download this

perl -nle"y/a-zA-Z/ /cs; ++$h{$_} for split }{ print qq[$_:$h{$_}] for
+ sort keys %h" theFile
break:1
...
cart:1
case:2
...

Node Status^?

node history
Node Type: note [id://994514]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others examining the Monastery: (6)

As of 2017-08-21 12:17 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?