Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
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


  1. or download this
    /* -*- mode: c -*-
     * $Id: wordfreq.gcc,v 1.5 2001/09/18 17:25:18 doug Exp $
    ...
        ht_destroy(ht);
        return(0);
    }
    
  2. or download this
    // -*- mode: c++ -*-
    // $Id: wordfreq.g++,v 1.5 2001/07/21 23:51:05 doug Exp $
    ...
    
        return 0;
    }
    
  3. or download this
    // $Id: wordfreq.java,v 1.3 2000/12/17 21:40:53 doug Exp $
    // http://www.bagley.org/~doug/shootout/
    ...
            }
        }
    }
    
  4. 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()
    
  5. 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
    
  6. 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
    ...
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://994514]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (17)
As of 2014-09-18 16:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (120 votes), past polls