1
2
3
4
5
6
7
8
9
10
11
12
13

my @array =("i486-glibc22-linux", "sles8");

foreach(@array)
     {
       if(/^(1|5|4|bla2|sles8)$/)
       {
       print "$_ gefunden in (1|5|4||bla2|sles8)\n";
       last;
    }
else {
print " nicht gefunden \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