Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Help in manipulating values from two arrays

by GrandFather (Saint)
on Mar 24, 2007 at 08:44 UTC ( #606397=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    
    my $xml = <<XML;
    <root>
    
  2. or download this
    <act>Key</act><emp>3384</emp><job>78082</job><chap>6</chap><pg>20</pg>
    +<time>0.7</time><prod>114.285714285714</prod>
    <act>Reconcile</act><emp>3017</emp><job>78062</job><chap>2-7</chap><pg
    +>0</pg><time>1.4</time><prod>Insufficient Information</prod>
    ...
    <act>Break</act><emp>3123</emp><job>22732</job><chap>-</chap><pg>0</pg
    +><time>0.4</time><prod>50.65687</prod>
    <act>key</act><emp>3123</emp><job>78143</job><chap>08</chap><pg>0</pg>
    +<time>3.3</time><prod>45.5544</prod>
    <act>Supervision</act><emp>3192</emp><job>54281</job><chap>-</chap><pg
    +>0</pg><time>4.0</time><prod>Non-Billable</prod>
    
  3. or download this
    </root>
    XML
    ...
        $emp{$currEmp} ||= 0;
        $emp{$currEmp} += $text;
    }
    
  4. or download this
    3017 - 
    3123 - 96.21127
    ...
    3379 - 6.66666666666667
    3384 - 114.285714285714
    3417 - 11.4285714285714
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2022-12-01 00:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?