blob: d3d30678914f71ab69fdb50ebc2a530c0a10ec54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# numbers.pl
# program rewrite map for mod_rewrite testing
#
$|=1;
my %map = ( 1 => 'one',
2 => 'two',
3 => 'three',
4 => 'four',
5 => 'five',
6 => 'six' );
while (<STDIN>) {
chomp;
print STDERR "GOT: ->$_<-\n";
my $m = $map{$_};
print STDERR "MAPPED: ->$_<-\n";
if ($m) {
print STDOUT "$m\n";
} else {
print STDOUT "NULL";
}
}
close (LOG);
|
