OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
libdbi-perl
/
examples
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
01/31/2023 12:34:58 PM
rwxr-xr-x
📄
corogofer.pl
704 bytes
07/30/2021 11:25:50 AM
rw-r--r--
📄
perl_dbi_nulls_test.pl.gz
2.45 KB
07/30/2021 11:25:50 AM
rw-r--r--
📄
profile.pl
594 bytes
07/30/2021 11:25:50 AM
rw-r--r--
📄
test.pl.gz
2.28 KB
07/30/2021 11:25:50 AM
rw-r--r--
Editing: corogofer.pl
Close
#!/usr/bin/perl use strict; use warnings; use Time::HiRes qw(time); BEGIN { $ENV{PERL_ANYEVENT_STRICT} = 1; $ENV{PERL_ANYEVENT_VERBOSE} = 1; } use AnyEvent; BEGIN { $ENV{DBI_TRACE} = 0; $ENV{DBI_PUREPERL} = 0; $ENV{DBI_GOFER_TRACE} = 0; $ENV{DBD_GOFER_TRACE} = 0; }; use DBI; $ENV{DBI_AUTOPROXY} = 'dbi:Gofer:transport=corostream'; my $ticker = AnyEvent->timer( after => 0, interval => 0.1, cb => sub { warn sprintf "-tick- %.2f\n", time } ); warn "connecting...\n"; my $dbh = DBI->connect("dbi:NullP:"); warn "...connected\n"; for (1..5) { warn "entering DBI...\n"; $dbh->do("sleep 0.3"); # pseudo-sql understood by the DBD::NullP driver warn "...returned\n"; } warn "done.";