There's a few problems with your code:
my ($year, $month, $day, $hour, $min, $sec) = split /[- :]/, $_[0];
my $date = dateconverter($date_begin); print $date, "\n"; sub dateconverter { my @bits = split /[- :]/, $_[0]; return join ".", @bits[0,1,2]; }
-- Dan
In reply to (z) Re: Modifying Global Variable
by zigdon
in thread Modifying Global Variable
by Willman023
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |