1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use strict;
use warnings;

my @zahlen =  qw/18 19 20 23 21 19/;
my $sum = 0;
my $zahlen = scalar @zahlen;

$sum += $_ for @zahlen;
print $sum/$zahlen . "\n";

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de