| Current Path : /var/www/web-klick.de/dsh/90_akt/PPLTest.old/ |
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/90_akt/PPLTest.old/zcv2a |
use strict;
use DivBasicF::Beispiel;
use DivBasicF::COMText;
use DivBasicF::COMTerminal;
use DivBasicF::COMParam;
use DivBasicF::DBComSimple;
my $com = DivBasicF::DBComSimple->new(["ytest.db",67002000,100]
);
my $ee = $com->query(["prg",<<'XXX', { 'user' => time().".cg" }]);
{
'name' => 'test1',
'user' => '2011.cg,---USER---',
'next' => 'generator'
}
XXX
print join("\n",@$ee,"");