$all=join("",@bcou); if(length($all)>14) {
open(FDb,">>zhidao_qa.txt"); #print FDb "id=$lid\t$nname\t$type\t@bcou\n"; print FDb "@bcou\n"; #print "$bc\n"; #print "$bc\n"; #print "$bc\n"; close FDb; open(FDb,">>zhidao_q.txt"); print FDb "id=$lid $nname\n"; #print "$bc\n"; #print "$bc\n"; #print "$bc\n"; close FDb;
} else {
}
1 POD Error
The following errors were encountered while parsing the POD:
- Around line 255:
=pod directives shouldn't be over one line long! Ignoring all 24 lines of content