[Perl] postgresql query

[mrserious]

Hallo!

Möchte ein Skript schreiben, dem ich einen User-Namen übergebe, sodass es mir die zugehörige Mac-Adresse heraussucht.
Die Relation soll über eine Postgres-Datenbank hergestellt werden.
Problem:
Das Skript gibt einfach nichts zurück.
Dazu sei gesagt: Bin blutiger Perl-Anfänger.

Könnt ihr mir helfen?

Code: Alles auswählen

#!/usr/bin/perl

use DBI;

$dsn = "dbi:Pg:dbname=datenbank";
$dbh = DBI->connect($dsn);
   if (!$dbh) {
       print "Zugriff verweigert!\n";
       exit (1);
   }


my ($name) = @ARGV;

$query = "SELECT mac FROM datenbank where username='$name'";

 $sth = $dbh->prepare($query);
 $rv = $sth->execute;

 if ($rv <= 0) {
       print "Nichts gefunden!\n";
   }


@row = $sth->fetchrow_array;



while ($row = $sth->fetchrow_hashref) {
     printf "$row->{'mac'}\n"
   }

Gebe ich einen korrekten Namen ein, zu dem es einen Eintrag in der DB gibt, so erhalte ich garkeine Rückgabe.
Bei falschem Namen bekomme ich eine entsprechende Fehlermeldung.

Grüße

[roli]

Hi,

du könntest ja mal damit anfangen

Code: Alles auswählen

use strict;
use warnings;

zu verwenden.

[shoening]

Hi,

ich kann Dir zwar bei Deiner Frage nicht weiterhelfen, aber der (Sicherheits-)Hinweis sei erlaubt, dass
Deine Query eine SQL-Injection ermöglicht.

Ciao
Stefan