18 lines
514 B
Perl
18 lines
514 B
Perl
# $Header: svn://svnsrv.mlands.com/prvcfg/exec-cfg/trunk/000010.pl 20480 2019-05-20 14:59:11Z lf000349 $
|
|
# prvExec-Modul fuer VECTOR End-Protokoll
|
|
|
|
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
use DBI;
|
|
use JSON;
|
|
use PRV::WIDStructure;
|
|
use Data::Printer;
|
|
|
|
my $dbh = DBI->connect('DBI:mysql:prod:ares', 'root', 'jagger') or die ('Fehler beim Verbinden mit der Datenbank');
|
|
my $wid = 39478513;
|
|
# Daten als XML-Struktur holen
|
|
my $data = PRV::WIDStructure->new(dbh => $dbh, wid => $wid)->get_XML;
|
|
|
|
p $data;
|