index

Tre program som demonstrerar enkla subrutiner

# En subrutin som skriver ut en text
#
print "a";
&hej;
print "b";
&hej;
print "c";
sub hej{
     print "x";
}

# En subrutin som skriver ut anropets parametrar
#
print "a";
&hej ("x", "y");
print "b";
&hej (1,2,3);
print "c";
sub hej{
      foreach $_ (@_){
          print $_;
      }
}

# En subrutin som summerar anropets parametrar och returnerar summan
#
print &summera (12,24);
print "\n";
print &summera (1,2,3);
print "\n";
sub summera {
      $sum = 0;
      foreach $_ (@_){
           $sum += $_;
      }
      return $sum;
}