Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Regexp help

by 2teez (Priest)
on Nov 22, 2012 at 01:09 UTC ( #1005035=note: print w/replies, xml ) Need Help??

in reply to Regexp help

split perl function will conveniently do like so:

use warnings; use strict; use Data::Printer; my $str='0.740234|0.758789|0.748047|0.749023|0.748047|0.754883|0.74316 +4|0.748047|0.780273|0.739258|0.765625|0.761719|0.760742|||||0.75293|0 +.742188'; my @str_data = split/\|/,$str; p @str_data;
[ [0] 0.740234, [1] 0.758789, [2] 0.748047, [3] 0.749023, [4] 0.748047, [5] 0.754883, [6] 0.743164, [7] 0.748047, [8] 0.780273, [9] 0.739258, [10] 0.765625, [11] 0.761719, [12] 0.760742, [13] "", [14] "", [15] "", [16] "", [17] 0.75293, [18] 0.742188 ]

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1005035]
[choroba]: fortunately, it wasn't that hard to replace the method and fix a few remaining failures due to the changes we did to the codebase over the years
[marinersk]: choroba Sounds like a process improvement opportunity; tests may not all need to be run, but they should all be compiled with perl -c before check-in/promotion happens.
[choroba]: so, now I have the test, so I can start making changes in the code. Back to the original ticket, yay!
[marinersk]: I definitely love it when my $current_taask=& taskPop(); if ($current_task eq $original_task) { } is true.
[marinersk]: s/taask/task/g;

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (14)
As of 2017-05-25 15:18 GMT
Find Nodes?
    Voting Booth?