42 lines
1.4 KiB
Perl
42 lines
1.4 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use DBI;
|
|
use Data::Dumper;
|
|
# use JSON;
|
|
use Getopt::Long;
|
|
use File::Slurp qw(:std);
|
|
use Term::ANSIColor;
|
|
|
|
my $inhalt; # Refrenztdaten aus der JSON Datei
|
|
my $write = 0; # Parameter zum schreiben der Datei
|
|
my $fileexist = 1; # Existiert die angegene Datei nicht wird sie zu 0 und eine Meldung erscheint
|
|
my $db = "prod"; # Datenbankparameter
|
|
my $user = "root"; # Datenbankuser
|
|
my $pass = "jagger"; # Datenbankpasswort
|
|
my $server = "ares"; # Datenbankserver
|
|
my $result = ""; # ergebnis des Vergleichens
|
|
my $wid = "37451383";
|
|
|
|
my $dbh = DBI->connect("DBI:mysql:$db:$server", $user, $pass)
|
|
#my $dbh = DBI->connect('DBI:mysql:prod:ares', 'root', 'jagger')
|
|
or die "Couldn't connect to database: " . DBI->errstr;
|
|
|
|
my $sql = "SELECT xval FROM prv_masterxt where wid=? and xkey='Parameterblock'";
|
|
|
|
my $selectrow_array = $dbh->selectrow_array($sql, undef, $wid);
|
|
print Dumper( $selectrow_array );
|
|
my $selectrow_arrayref = $dbh->selectrow_arrayref($sql, undef, $wid);
|
|
print Dumper( $selectrow_arrayref);
|
|
my $selectrow_hashref = $dbh->selectrow_hashref($sql, undef, $wid);
|
|
print Dumper( $selectrow_hashref);
|
|
my $selectall_arrayref = $dbh->selectall_arrayref($sql, { Slice => {} }, $wid);
|
|
print Dumper( $selectall_arrayref);
|
|
my $selectall_arrays = $dbh->selectall_arrayref($sql, undef, $wid);
|
|
print Dumper( $selectall_arrays);
|
|
|
|
$dbh->disconnect;
|
|
|
|
|
|
1; |