note
coretele
<p>I have tried adding if conditions as shown in following code but it is not skipping to add comment line and empty line. Am I doing something wrong?</p>
<code>
while(my $colref = $csv->getline ($csv_fh))
{
if (scalar(@$colref) =~ /^#/) {
last;
}
if (scalar(@$colref) =~ /^s+$/) {
last;
}
$output_hash{shift @{$colref}} = $colref;
}
</code>
config file
<code>
#ksjlasjda
abc xyz,10
xyz pqr,2
pqr stq,0.1
</code>
1226284
1227278