Select Code to Download

Select or download this

#!/usr/bin/perl
    use strict;
...
              ",   Number of floors = ", $row->{'floors'}, "\n");
    }
    $sth->finish();

Select or download this

DBD::CSV::st execute failed: Error 2034 while reading file /media/Micr
+oSD/code/prospects.csv: EIF - Loose unescaped quote at /usr/local/sha
+re/perl/5.14.2/SQL/Statement.pm line 1055
 [for Statement "SELECT * FROM prospects.csv WHERE name LIKE 'G%'"] at
+ propects.pl line 20.
DBD::CSV::st fetchrow_hashref failed: Attempt to fetch row without a p
+receeding execute () call or from a non-SELECT statement [for Stateme
+nt "SELECT * FROM prospects.csv WHERE name LIKE 'G%'"] at propects.pl
+ line 21.