package AXSQL; # Our libraries use lib 'C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities'; use AXControl; use strict; use warnings; use DBI; # SQL object removes the need to handle the complexity of SQL connections and processing in individual programs package SQL; sub new # Constructor { my $class; my $sql; my @bindparms; my $Rowcount; my $Status; my $cntl; my $db; my $start; my $end; my $posn; my $SQLStr; my $host; my $Properties; @bindparms = $_; $class = shift @bindparms; $cntl = shift @bindparms; $sql = shift @bindparms; $db = $cntl->{"SysHandle"}; if (substr($sql,1,4) eq 'SQL.') { # Get SQL from the file directories $sql = $db->prepare("SELECT SQLTEXT FROM SQLDEFN WHERE SQLID = substr($sql,5)") or die 'Couldnt run sql: '. $db->errstr; $sql->execute(); ($SQLStr) = $sql->fetchrow_array(); if ($sql->rows == 0) { return "SQL does not exist" } } #Resolve host variables $start = 1; $posn = index($SQLStr, ":"); while ($posn != -1) { $end =index(substr($SQLStr,&posn, length($SQLStr) - $posn + 1), " "); $host = substr($SQLStr, $posn, $end - $posn); $SQLStr =~ s/$host/@bindparms [ substr($host,2,length($host) -1)]/g; $posn = index($SQLStr, ":"); } $sql = $db->prepare($SQLStr); $sql->execute(); $Properties= {}; bless ($Properties, $class); $Properties->{'SQL'} = $sql; $Properties->{'String'} = $SQLStr; } Sub Fetch { my $class = shift; my $sql = $class->{SQL}; #return $sql->fetchrow_array(); } Sub RowCount { $class = shift; $sql = $class->{SQL}; return $sql->rows; } 1; Here's the error messages C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities>perl -c AXSQL.pm Semicolon seems to be missing at AXSQL.pm line 81. Number found where operator expected at AXSQL.pm line 90, near "1" (Missing semicolon on previous line?) syntax error at AXSQL.pm line 78, near "my " Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 78. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 78. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 85. Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 86. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 86. Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 87. syntax error at AXSQL.pm line 88, near "}" AXSQL.pm had compilation errors. #### C:\Users\Jay\Desktop\SBS DEV\CODE\perl\Utilities>perl -c AXSQL.pm Semicolon seems to be missing at AXSQL.pm line 81. Number found where operator expected at AXSQL.pm line 90, near "1" (Missing semicolon on previous line?) syntax error at AXSQL.pm line 78, near "my " Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 78. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 78. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 85. Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 86. Global symbol "$class" requires explicit package name (did you forget to declare "my $class"?) at AXSQL.pm line 86. Global symbol "$sql" requires explicit package name (did you forget to declare " my $sql"?) at AXSQL.pm line 87. syntax error at AXSQL.pm line 88, near "}" AXSQL.pm had compilation errors.