File: numbers.pl.PL

package info (click to toggle)
apache2 2.4.66-6
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 59,884 kB
  • sloc: ansic: 212,340; python: 13,830; perl: 11,307; sh: 7,266; php: 1,320; javascript: 1,314; awk: 749; makefile: 715; lex: 374; yacc: 161; xml: 2
file content (26 lines) | stat: -rwxr-xr-x 366 bytes parent folder | download | duplicates (6) 
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);