ROUTER Configuration: Config-daten in der Tabelle speichern - #73757 (Allgemeines zu Perl)

renee

2007-01-30 16:13

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2
3

sub Rooter{
my $neid = 2923
my ($NB_TS,$NBvpi,$NBvci,$NBpcr,$pvc);

Hier fehlt ein Semikolon nach der 2923

Code: (dl )

1
2
3

 $query = "SELECT ID,NEID,VPI,VCI,PCR,PVC,IP FROM NB WHERE NB.NEID='$neid' ORDER BY  RC_CISCO_NB.ID DESC LIMIT 1 ";
$sth = $dbh->prepare($query) or die "Error in query prepare: $DBI::errstr\n";
$sth->execute or die "Error executing query: $DBI::errstr\n";

Hier sollte wieder die ?-Notation von CPAN:

DBI verwendet werden:

Code: (dl )

1
2
3

 $query = "SELECT ID,NEID,VPI,VCI,PCR,PVC,IP FROM NB WHERE NB.NEID=? ORDER BY  RC_CISCO_NB.ID DESC LIMIT 1 ";
$sth = $dbh->prepare($query) or die "Error in query prepare: $DBI::errstr\n";
$sth->execute($neid) or die "Error executing query: $DBI::errstr\n";

Code: (dl )

if($newdata = $sth->fetchrow_hashref){

Du willst hier vermutlich keinen Abgleich machen, sondern willst eigentlich die while-Schleife einsetzen:

Code: (dl )

while($newdata = $sth->fetchrow_hashref){
if (($newdata->{NEID} eq ($neid))&& ($newdata->{TS} eq ($NB_TS)))
               
 {

Code: (dl )

if (($newdata->{NEID} eq ($neid))&& ($newdata->{TS} eq ($NB_TS)))

Du hast uns also eine falsche Zeile gezeigt bei der Fehlermeldung. Denn $NB_TS ist zwar weiter oben deklariert aber nicht initialisiert...\n\n

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/