Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: golf anyone? (taking first field)

by sauoq (Abbot)
on Jan 08, 2003 at 02:09 UTC ( [id://225146]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #         1         2       
    #1234567890123456789012345678
     map/(^\s*[^:]*[^:\s])/,@list
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    @list=@T;by 'blokhead'; print "($_)\n" for map{/([^:]*?)\s*(\n|:)/&&$1
    +}@list;
    @list=@T;by 'jmcnmara'; print "($_)\n" for map{(split)[0]}@list;
    @list=@T;by 'CountZero';print "($_)\n" for map/(.*?)\s+:/,@list;
    
  3. or download this
    --- By sauoq -------------
    (1)
    ...
    ( 15)
    ( 16 andmore)
    ( 16 andmore)
    

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others surveying the Monastery: (10)
As of 2024-03-29 15:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found