Perl    hoch http://www.perl.com
 
 


  Fakultät (1)   Michael Neumann 
sub fac {
  my ($n) = @_;

  if ($n < 2) {
    return $n;
  }
  else {
    return $n * fac($n-1);
  }
}

print fac(6), "\n";
Berechnet die Fakultät. Ergibt 720.


  Fakultät (2)   Arnaud ASSAD 
#!/usr/bin/perl

sub fac {
  $_[0]>1?$_[0]*fac($_[0]-1):1;
}

print fac(6);
Berechnet die Fakultät. Ergibt 720.


 Hello World   Michael Neumann 
# Hello World in Perl

print "Hello World\n";
Gibt "Hello World" auf dem Bildschirm aus.


 Referenzen   Michael Neumann 
# array -> reference
@arr      = (1, 2, 3);
$arr_ref  = \@arr;

# reference -> array
$arr_ref2 = [1, 2, 3];
@arr2     = @$arr_ref2;

# array access
$item     = $arr[0];
$item     = $arr_ref->[0];
Referenzen und Arrays; Arrayzugriff


 Squares (1)   Michael Neumann 
for($i = 1; $i <= 10; ++$i) {
   print $i*$i, ' ';
}
Gibt die Quadrate von 1 bis 10 aus.


 Squares (2)   Michael Neumann 
@squares = ();

foreach my $i (1..10) {
  push(@squares, $i * $i);
}

print join(" ", @squares), "\n";
Gibt die Quadrate von 1 bis 10 aus.


 Squares (3)   Pixel 
print join(" ", map { $_ ** 2 } 1..10), "\n";
Gibt die Quadrate von 1 bis 10 aus.


 Squares (4)   Arnaud ASSAD 
for (1..10) { print $_**2," "};print$/;
Gibt die Quadrate von 1 bis 10 aus.


 Substitution   Michael Neumann 
$a = 3;
$b = 5;
$c = $a + $b;

print "$a + $b = $c";
Gibt 3 + 5 = 8 auf dem Bildschirm aus.