Opened by Gast at 2005-05-15 07:04
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
given kommt erst mit Perl6, im CPAN finden sich allerdings Alternativen für Perl5. Bei nur drei Auswahl-Möglichkeiten kannst du bequem mit if, elsif und else arbeiten. Du solltest am Anfang deines Skriptes use strict; und use warnings; stehen haben um auf Fehler in deinem Skript hingewiesen zu werden.
Beispiel wie der if, elsif, else aussehen könnte (ungetestet):
Beispiel wie der if, elsif, else aussehen könnte (ungetestet):
Code: (dl
)
1
2
3
4
if ($eingabe eq '1') {chdir '/path/script'; print qx'./teamspeak2-server_startscript start';}
elsif ($eingabe eq '2') {chdir '/path/script'; print qx'./teamspeak2-server_startscript stop';}
elsif ($eingabe eq '3') {print qx'reboot'; exit;}
else die "Falche eingabe";