Programmiersprachen vergleichen durch einfache Programme

[Reaperman]

Hier das Hallo Welt mal in perl

Code:

Sprache: perl
Effektive Zeilen: 21
Gesamte Zeilen: 23
Größe des QT: 624byte
Exe leider nicht verfügbar (Skriptsprache und keine Ahnung vom B-Modul)

Code:

#!perl

print "Hallo Welt.\n";
print "Bitte erste Zahl eingeben: ";
chomp($a = <STDIN>);
print "Bitte zweite Zahl eingeben: ";
chomp($b = <STDIN>);
do {
  print "Bitte Operation waehlen + - * / ";
  chomp($operator = <STDIN>)
} until $operator =~ /\+/ || $operator =~ /-/ || $operator =~ /\*/ || $operator =~ /\//;
if ($operator =~ /\+/) {
  $result = $a + $b
} elsif ($operator =~ /\*/) {
  $result = $a * $b
} elsif ($operator =~ /\//) {
  $result = $a / $b
} elsif ($operator =~ /\-/) {
  $result = $a - $b
}

print "$a $& $b = $result\nDanke fuer die Benutzung. Zum Beenden Enter druecken";
<STDIN>

[edit]Als kleines Goodie noch ein Programm, das eine Reihe von Dateien als Parameter nimmt und deren inhalt ausgibt:

Code:

#!perl

while (<>) {
  print
}

[/edit]