5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @alpha = ( 'a'..'z' );
my @num = ( 1..26 );
my %lut;
@lut{@num} = @alpha;
print Dumper \%lut;
print $lut{$_}, "\n" for ( 1, 26, 2, 25);
5 Einträge, 1 Seite |