Ergebnis 1 bis 3 von 3
  1. #1
    Oruv rh z Xrksvi Avatar von Atbash
    Registriert seit
    14.10.2008
    Beiträge
    104

    Standard If-Anweisung spinnt oder ich...

    Hab heute mal kurzfristig beschlossen mich ein wenig mit Perl zu beschäftigen. Habe mir einige Perlscripte angeschaut, und dann schonmal in die Tasten gehämmert. Hier aber komme ich nicht mehr weiter, weil die If Anweisung irgendwie nie richtig ausgeführt wird. Hier einfach mal der Code:

    Code:
    # !usr/bin/perl  
    hello(); 
    auth(); 
    name ();  
    if ($name == "admin")    
       {     print $name." requires a sudo-password\n please enter.. ";     }  
    hello ();  
    sub hello     {     print "Hello $name \n";     }  
    sub auth     {     print "If u want, tell me ur name.. ";     };  
    sub name     {     chomp ($name = <> ) ;          };   
    __END__
    Bitte um schnelle Verbesserung, mag weitermachen im Kontext.
    Danke im Voraus
    atbash
    [S] R34l L33t-H4(K3|2 bUDdY 4 m3

  2. #2
    if(1x<>)!~/^(11+)\1+$/
    Registriert seit
    13.08.2007
    Beiträge
    524

    Standard

    if ($name eq "admin")
    Und dein Code ist sehr unsauber formatiert.


  3. #3
    Oruv rh z Xrksvi Avatar von Atbash
    Registriert seit
    14.10.2008
    Beiträge
    104

    Standard

    Danke sehr der Herr.
    Sind meine ersten Schritte in Perl, und war auch mehr eine Spielerei.

    Das Codefeld, hat alles durcheinander geworfen, und ich hab nur schnell ein paar Leerzeichen gesetzt.

    Grüße
    atbash
    [S] R34l L33t-H4(K3|2 bUDdY 4 m3

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •