1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -ws
use Coy;
@data = map { chomp; $_ } <DATA>;
print "Let 1000 haiku bloom....\n\n";
for (1..100)
{
warn $_ foreach @data;
}
__DATA__
Fatal error - failed to allocate the requested memory. Maybe resize the heap?
Missing semicolon.
Bad argument
No such file: dummy.txt
Missing operator near "while"
Can't open input file
Syntax error near line 4
Connection timed out - aborting
Too many arguments to subroutine &print.
Can't generate new lines to match regular expression.
|
