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
27
28
| my @odd_numbers = grep { $_ % 2 } 1..1000;
my @matching_lines = grep { /\bfred\b/i } <$fh>;
my @matching_lines = grep /\bfred\b/i, <$fh>;
my @matching_lines = grep /\bfred\b/i, <$fh>;
my $line_count = @matching_lines;
my $line_count = grep /\bfred\b/i, <$fh>;
my @data = (4.75, 1.5, 2, 1234, 6.9456, 12345678.9, 29.95);
my @formatted_data = map { &big_money($_) } @data;
print "The money numbers are:\n",
map { sprintf("%25s\n", $_) } @formatted_data;
my @data = (4.75, 1.5, 2, 1234, 6.9456, 12345678.9, 29.95);
print "The money numbers are:\n",
map { sprintf("%25s\n", &big_money($_) ) } @data;
print "Some powers of two are:\n",
map "\t" . ( 2 ** $_ ) . "\n", 0..15;
|