Atbash
20.08.2009, 18:01
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:
# !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
# !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