Perl array question...?

Question

Can anyone explain why I am going an "uninitialized value in concatenation" error when I try to run the code below? I'm trying to assign elements of the created array to variables to use them later. Thanks!

#!/usr/local/bin/perl -w

print "Enter date in YYYY-MM-DD-TTTT format: \n";
$data = ;
chomp $data;

@date = split(/-/, $data);

$date[0] = $year;
$date[1] = $month;
$date[2] = $day;
$date[3] = $time;

print "$year \n";
print "$month \n";
print "$day \n";
print "$time \n";

Answer 1

You have your assignments backward:



$date[0] = $year;

$date[1] = $month;

...etc..



These should be:



$year = $date[0];

$month = $date[1];



..... to make this make sense, however, this is really kind of silly.



Try this on for size:



#!/usr/local/bin/perl -w



use strict;



my ($userInput,$year,$month,$day,$time);



do

{

print "Enter date in YYYY-MM-DD-TTTT format: \n";

}

while (($userInput = ) !~ /\d{4}-\d\d-\d\d-\d{4}/);



($year,$month,$day,$time) = split(/-/, $userInput);

print "Year: $year Month: $month Day: $day Time: $time\n";

Answer 2

$date[0] = $year;

$date[1] = $month;

$date[2] = $day;

$date[3] = $time;



isn't it the opposite ?



$time = $date[3];

etc...

Answer 3

code is backwards you want...

$year = $date[0];

$month = $date[1] ;





etc....