Perl Anfänger: in new() eine andere Methode aufrufen

Hi

ich habe z.B. folgende new methode

sub new {  
  my $self = shift;  
  return bless {  
    db => shift || die('bla'),  
    test => '',  
  }, ref $self || $self;  
}

wie kann ich in dieser Methode z.b. eine Methode1 aufrufen, welche die Eigenschaft "test" mit Daten füllt?

ps. kann mir jemand ein gutes Buch über Perl empfehlen?

Danke

  1. Hallo Perl Anfänger!

    Da ich mit OOP noch nicht soweit bin, überlasse ich die Beantwortung der Frage einem anderen »Kollege«!

    ps. kann mir jemand ein gutes Buch über Perl empfehlen?

    Ja, sogar drei:

    • Das Lama-Buch: Einführung in Perl
    • Das Camel-Buch: Programmieren mit Perl
    • Das anderes Tier-Buch (ein Gnu?): Perl Kochbuch (mit erläuterten Anwendungsbeispielen)

    Viele Grüße aus Frankfurt/Main,
    Patrick

    --

    _ - jenseits vom delirium - _
    [link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
    Nichts ist unmöglich? Doch!
    Heute schon gegökt?
    1. Hallo Perl Anfänger!

      Ja, sogar drei:

      • Das Lama-Buch: Einführung in Perl
      • Das Camel-Buch: Programmieren mit Perl
      • Das anderes Tier-Buch (ein Gnu?): Perl Kochbuch (mit erläuterten Anwendungsbeispielen)

      ...und einige mehr (mit allen ISBN-Nummern).

      Viele Grüße aus Frankfurt/Main,
      Patrick

      --

      _ - jenseits vom delirium - _
      [link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
      Nichts ist unmöglich? Doch!
      Heute schon gegökt?
    2. Hi,

      • Das anderes Tier-Buch (ein Gnu?): Perl Kochbuch (mit erläuterten Anwendungsbeispielen)

      Du wirst doch wohl nicht ein Gnu mit einem Dickhornschaf verwechseln? ;)

      mfG,
      steckl

      1. Hallo steckl!

        Du wirst doch wohl nicht ein Gnu mit einem Dickhornschaf verwechseln? ;)

        Ach weißt Du, bei Zweibeinern kann ich einigermaßen unterscheiden, manchmal kommt die Überraschung aber im gewissen Moment[1]... aber mit Vierbeinern, die auch noch Hörner haben, die zu unterscheiden überlasse ich anderen ;)

        [1] Well Im not dumb but I cant understand
        Why she walked like a woman and talked like a man

        Viele Grüße aus Frankfurt/Main,
        Patrick

        --

        _ - jenseits vom delirium - _
        [link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
        Nichts ist unmöglich? Doch!
        Heute schon gegökt?
        1. Hi

          [1] Well Im not dumb but I cant understand
          Why she walked like a woman and talked like a man

          Frankfurt, Kaiserstrasse?

          Ciao
           Kurt

          1. Hallo Kurt!

            [1] Well Im not dumb but I cant understand
            Why she walked like a woman and talked like a man
            Frankfurt, Kaiserstrasse?

            Nö, Soho ;)
            Kinks (Lola)

            Viele Grüße aus Frankfurt/Main,
            Patrick

            --

            _ - jenseits vom delirium - _
            [link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash]
            Nichts ist unmöglich? Doch!
            Heute schon gegökt?
  2. Hallo,

    sub new {

    my $self = shift;
      return bless {
        db => shift || die('bla'),
        test => '',
      }, ref $self || $self;
    }

    
    >   
    > wie kann ich in dieser Methode z.b. eine Methode1 aufrufen, welche die Eigenschaft "test" mit Daten füllt?  
      
    Zum Beispiel:  
      
    ~~~perl
    sub new{  
        @_ == 2 or die 'Usage: class->new( $db )';  
        my ($class, $db) = @_;  
        my $self = bless { db => $db }, $class;  
        $self->{test} = $self->methode1;  
        return $self;  
    }
    

    ps. kann mir jemand ein gutes Buch über Perl empfehlen?

    Danke

    Ich kann dir die http://board.perl-community.de/@Perl-Community empfehlen und auch <http://perldoc.perl.org/@die Perl-Dokumentation>!

    1. Ich kann dir die http://board.perl-community.de/@Perl-Community empfehlen und auch <http://perldoc.perl.org/@die Perl-Dokumentation>!

      *ARG* sorry! Die Vorschau hat schon Vorteile :-)

      Ich kann dir die Perl-Community empfehlen und auch die Perl-Dokumentation!

  3. Hi

    ps. kann mir jemand ein gutes Buch über Perl empfehlen?

    JA, ich empfehl dir DRINGEND top down zu gehen und mit deisem Buch anzufangen

    "Perl Best Practices", Damian Conway, O'Reilly

    Allerdings find ich das seine Kapitel zu OOP mit seinem Modul "Class-Std" übers Ziel hinausschießen.

    Da empfehle ich lieber "Moose", schließlich fließen da auch alle OOP-Überlegungen aus Perl6 ein.

    Bye
     Kurt