Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: finding the field number of a matching pattern in perl

by remiah (Hermit)
on Sep 16, 2012 at 12:06 UTC ( #993911=note: print w/ replies, xml ) Need Help??


in reply to finding the field number of a matching pattern in perl

anonymous's split : the better ones. mine ... not so good.

use strict; use warnings; use Data::Dumper; use 5.010; my $data = "Region day Item volume Month district piece amount day ... + one more test"; print "$data\n"; my (@sep); push @sep, 0; push @sep, $-[0] while( $data =~ /\s+/g ); push @sep, length($data); while( $data =~ /Item|volume|day|test/g ){ #printf "%s|%s|%s,matched pos=%s\n", $`,$&,$',$-[0]; my $match_bgn = $-[0]; for( my $idx=0 ; $idx < $#sep; $idx ++){ # printf "match pos=%d, %d .. %d\n" #,$match_bgn ,$sep[$idx] ,$sep[$idx+1]; if( $match_bgn > $sep[$idx] && $match_bgn < $sep[$idx+1]) { print "col of $&=$idx\n"; } } } __DATA__ Region day Item volume Month district piece amount day ... one more te +st col of day=1 col of Item=2 col of volume=3 col of day=8 col of test=12


Comment on Re: finding the field number of a matching pattern in perl
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (7)
As of 2014-08-20 09:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (108 votes), past polls