Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Set Array Columns to 0

by jethro (Monsignor)
on Jul 05, 2012 at 16:41 UTC ( #980113=note: print w/ replies, xml ) Need Help??


in reply to Set Array Columns to 0

Your second line will only initialize the first variable $dow with "", all the other variables will be set to undef

The simplest code to make it work is to extend the list on the right hand side of line 4 so that it will always be enough to fill all variables even if split would return the empty list:

($dow,$mon,$day,$year,$num1,$num2,$num3,$dow2,$mon2,$day2,$year2)= ( s +plit(/[,]/, $line),("") x 11 );

Note that 'x' is an operator that in this case produces a list of 11 empty strings. Naturally you could also use 0 instead of "".


Comment on Re: Set Array Columns to 0
Download Code
Re^2: Set Array Columns to 0
by Anonymous Monk on Jul 05, 2012 at 21:18 UTC

    Is there any way to fill in the missing area (the top line where the date is) with comma-separated 0's? I tried your example and it does not print with zeros. Thank you.

      Just replace the quotes in ("") x 11 with your placeholder of choice.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (11)
As of 2014-12-18 22:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (67 votes), past polls