| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/process.pl |
use DivBasicF::DBComSimple;
use Data::Dumper;
my $com = DivBasicF::DBComSimple->new(
"dbi:SQLite:/aentry/dtest.db",70002000,2);
my $par = shift;
my $connection = shift;
if (!$par) {
$com->msg(["berechne",475]);
sleep(10);
my $r = $com->get();
print Dumper $r;
print "\n Naechster Aufruf: perl beispiel_client.pl " .
"2 " . $com->get_connection() . "\n";
}
elsif ($par == 2) {
$com->connection($connection);
$com->msg(["ergebnis"]);
sleep(4);
my $r = $com->get();
print Dumper $r;
$com->stop();
}