Help for this page

Select Code to Download

Select or download this

FOR: foreach my $F($DB_PRI{FILE},$DB_OGGI{FILE}) {
    open(DB,"<$F") || &ERROR('CANNOT OPEN 1325');
    while(my $ln = <DB>) {
            ...

Select or download this

FOR: foreach my $F($DB_PRI{FILE},$DB_OGGI{FILE}) {
    open(DB,"<$F") || &ERROR('CANNOT OPEN 1325');
    my $line = <DB>; # this line frees the following while
    while(my $ln = <DB>) {
            ...