Re^2: Splitting on a pattern once

Replies are listed 'Best First'.
Re^3: Splitting on a pattern once by kiruthika.bkite (Scribe) on Mar 18, 2010 at 10:47 UTC
Is this you are expecting. Example-1 `my $str="1 2 3 4 590"; my ($a,$b)=split(/ ([^ ]+)$/, $str); print "a=$a\nb=$b\n";` [download] Output a=1 2 3 4 b=590 Example-2 `my $str="1:2:3:4:590"; my ($a,$b)=split(/:([^:]+)$/, $str); print "a=$a\nb=$b\n";` [download] Output a=1:2:3:4 b=590	[reply] [d/l] [select]
Re^3: Splitting on a pattern once by kiruthika.bkite (Scribe) on Mar 22, 2010 at 10:58 UTC
Use the following way to achieve your requirement. `my $str="1:2:3"; my $name=(split(':',$str))[-1];` [download] -1 will return the value of last index.	[reply] [d/l]
Re^3: Splitting on a pattern once by ikegami (Patriarch) on Mar 05, 2010 at 17:31 UTC
You could play with `reverse`, but this is simpler: `my ($k,$v) = /^(.:)?(.)/s;` [download]	[reply] [d/l] [select]
Re^3: Splitting on a pattern once by Anonymous Monk on Mar 18, 2010 at 11:04 UTC
You should read the documentation for split as a negative limit has special meaning.	[reply]