Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

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 "".

Replies are listed 'Best First'.
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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://980113]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2018-03-24 02:44 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (297 votes). Check out past polls.