# coding stuffs

#################################################

@n = (1,2,3,4,5,6,7,8,9,30,21,33,12,76,45,89,11);
@even = grep { not $_ % 2 } @n;
print "Even: @even\n";
@odd = grep { $_ % 2 } @n;
print "Odd: @odd\n";

#################################################

$s = "root ps1 Oct";
($users, $ttys) = ($s =~ /(\S+)\s+(\S+)/);
print "users: $users\nttys: $ttys\n";

#################################################

%ent = ('&'=>'amp', '<'=>'lt', '>'=>'gt');
$html = "this is > of 5 & is < of 10\n";
print $html;
$html =~ s/([&<>])/&$ent{$1};/g;
print $html;

################################################

%score =<<'EOF' =~ /^(.*?):\s*(.*)/mg;
fred: 201
barny: 195
denis: 30
EOF
foreach (keys %score) {print $score{$_}, "\t", $_,"\n";}

################################################

$path ="/usr/local/my/path/to/filename";
$filename = (split/\//,$path)[-1];
print "Filename: ",$filename,"\n";

################################################

@n = qw(as3e cf5e gt55 23ddf 34tt6rr);
print "n: @n\n";
for(@n){tr/0-9//d} # 
print "n: @n\n";
@p = grep /(\w)\1/, @n;
print "@p\n";

################################################

push @xyz, [ split ] while (<DATA>);

foreach $pt (@xyz){
    print "point ", $p++, ": x= $pt->[0], y = $pt->[1], z = $pt->[2]\n
+";
}

@mag = map { 
    sqrt($_->[0] * $_->[0] + $_->[1] * $_->[1] + $_->[2] * $_->[2] )
} @xyz;

__DATA__
1 2 3
8 5 6
7 8 9

################################################

my @addrs = qw(
   name@example.org
   rjt@cpan.org
   Name@example.org
   rjt@CPAN.org
   user@alpha.example.org
);

my @sort = map { $_->[0] }
           sort { lc($a->[1][1]) cmp lc($b->[1][1]) or $a->[1][0] cmp 
+$b->[1][0] }
           map { [ $_ , [ split '@' ] ] }
           @addrs;

print "@sort\n";

################################################
[download]