Why do I get strange output from Perl using SQL?
- by benjamin button
Here is my Perl code:
foreach my $line (@tmp_field_validation)
{
chomp $line;
my ($cycle_code,$cycle_month,$cycle_year)= split /\s*\|\s*/, $line;
$cycle_code=~ s/^\s*(.*)\s*$/$1/;
$cycle_month=~ s/^\s*(.*)\s*$/$1/;
$cycle_year=~ s/^\s*(.*)\s*$/$1/;
print "$line\n";
print "$cycle_code|$cycle_month|$cycle_year";
}
Here is the output:
1 10 2009
1 10 2009||
What's wrong over here?
I expected the pipes to be between the variables. Why are the pipes getting printed after all the three variables?
