OXIESEC PANEL
- Current Dir:
/
/
home
/
cubot
/
bin
/
etl_odbc
/
test
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
02/03/2023 07:34:13 AM
rwxr-xr-x
📄
mssql_odbc.pl
528 bytes
02/03/2023 07:34:13 AM
rwxr-xr-x
📄
t3.pl
2.21 KB
02/03/2023 07:34:13 AM
rwxr-xr-x
📄
test.pl
1.45 KB
02/03/2023 07:34:13 AM
rwxr-xr-x
📄
test2.pl
1.95 KB
02/03/2023 07:34:13 AM
rwxr-xr-x
📄
test3.pl
685 bytes
02/03/2023 07:34:13 AM
rw-r--r--
📄
tmpxml.pl
1.49 KB
02/03/2023 07:34:13 AM
rw-r--r--
Editing: mssql_odbc.pl
Close
#/usr/bin/perl use DBI; my $DSN='sampledb'; my $user='sa'; my $pass='12345678'; my $dbh = DBI->connect("dbi:ODBC:$DSN", $user, $pass); #my $dbh = DBI->connect("dbi:ODBC:$DSN", $user, $pass, { RaiseError => 1, odbc_cursortype => 2}); my $sth = $dbh->prepare("select * from install_params"); $sth->execute; $row = $sth->fetchrow_arrayref(); print "Result = $row\n"; print "Result = @$row\n"; print "Result = @$row[0]\n"; my @row; while (@row = $sth->fetchrow_array()) { @$col_values = @row ; } print "Result = @$col_values\n";