Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: text parsing question

by Dietz (Curate)
on Nov 07, 2004 at 14:52 UTC ( #405893=note: print w/ replies, xml ) Need Help??


in reply to text parsing question

Another solution (though not so elegant as NetWallah's):

$_ = ' ---------- ------------------------- -------- ---- ------ +------------------- ----- ---- ----------- -----------'; my $i; print $i += length $_, $/ for split /(?<=-)(?=\s+|$)/; __END__ __OUTPUT__ 13 40 50 56 83 90 96 109 122


Comment on Re: text parsing question
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (11)
As of 2014-10-23 09:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (125 votes), past polls