Klasse mit Parameter in der Subroutine (gelöst) (Allgemeines zu Perl)

[thread]19176[/thread]

Klasse mit Parameter in der Subroutine [gelöst]

Tags: perl5 OOP use Subroutinen Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+3 replies

tino91DE

2014-07-03 14:42

User since
2014-06-08
8 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich schlage mich gerade mit einer Klasse rum. "new" erzeugt einen Datenbanklink für die gesammte Klasse.

Code (perl): (dl )

sub new {
  @_ == 2 || die 'Usage: class->new($db)';
  my ($class_session, $db) = @_;  
  my $self = bless {
    db => $db,
    sessionLang => 'en',
    sessionID => '',
    sessionLiveTime => 900,
  }, $class_session;
  
  return $self;
}

In allen Subroutinen der Klasse greife ich dann auf den Datenbanklink zu:

Code (perl): (dl )

sub getUsername {
  my $self = shift;

  $sth = $self->{db}->prepare($sql) || die "cannot prepare query, errmsg = $DBI::errstr";

}

Ziel ist es eine Subroutine der Klasse mit weiteren Parametern aufzurufen. Das ganze soll dann wie folgt aussehen:

Code (perl): (dl )

use session;

my $dbh = DBI->connect($dsn, $user, $password) || die "can't connect, errmsg = $DBI::errstr";

my $session = session->new($dbh);

if($session->session()){
# Session aktiv
# Hier werden nun weitere Routinen der Klasse aufgerufen 

print $session->getUsername;

# Das Problem
print $session->getField("parameterA","parameterB");


}else{
# Session nicht aktiv
}

Leider kann ich die Subroutine getField aus der Klasse nur entweder mit dem Datenbanklink ODER mit den Parametern aufrufen.

Lasse ich $self weg, kommen die Parameter an, der DBI Link geht aber nicht mehr. Nutze ich $self, funktionieren die Parameter nicht mehr aber die Datenbank ist ansprechbar.

Code (perl): (dl )

sub getField{

    my $self = shift;

    my $usernamestring = $_[1];
    my $type = $_[0];

  $sth = $self->{db}->prepare($sql) || die "cannot prepare query, errmsg = $DBI::errstr";

}

Aus folgenden Tut habe ich versucht $self mit CORE::shift anzusprechen, leider hatte ich auch damit kein Erfolg.

Kann mir jemand weiterhelfen?

+2 replies
Raubtier

2014-07-03 15:29
User since
2012-05-04
1076 Artikel
BenutzerIn
Ich kann dein Problem nicht nachvollziehen. Bitte poste lauffähigen Code.
Code (perl): (dl )

1 2 3 4 5 6 7

package a; sub new{return bless {db=>"db"}, shift} sub foo{my $self=shift;say "db=$self->{db}\nParameter:@_"}; package main; my $x=a->new(); $x->foo("x", "y");
- tino91DE
  
  2014-07-03 15:33
  
  User since
  2014-06-08
  8 Artikel
  BenutzerIn
  
  Hallo,
  
  hat sich gerade gelöst. Ich hatte noch einen lokalen Aufruf ala Copy & Paste in der Subroutine (&getField) daher ging die Verknüpfung zur Klasse verlorren. Richtig ist ($self->getField) - nun klappt es wieder.
  
  Manchmal sieht man den Wald vor lauter Bäumen nicht.
  Danke.

View all threads created 2014-07-03 14:42.