Help for this page

Select Code to Download

Select or download this

open INPUT_FILE, @row[$cell_column] or die "Can't open @row[$cell_colu
+mn]: $!\n";
                while ( $line = <INPUT_FILE> ) {
...
                $i++;
                }
        $sthL->finish;

Select or download this

#!/usr/bin/env perl
use DBI;
...

__DATA__
Teams=PATRIOTS,BILLS,DOLPHINS,JETS,COWBOYS,GIANTS,EAGLES,REDSKINS,BENG
+ALS,OILERS,STEELERS,BROWNS,SEAHAWKS,RAMS,49ERS,RAIDERS