Execute a Markov algorithm: Difference between revisions
Content added Content deleted
(→{{header|C++}}: The restructuring broke the error handling) |
(→{{header|Perl}}: The qq, while not invalid, broke the highlighting something fierce. This isn't as pretty, syntactically, but doesn't kill the highlighting either.) |
||
| Line 479: | Line 479: | ||
<lang perl>@ARGV == 1 or die "Please provide exactly one source file as an argument.\n"; |
<lang perl>@ARGV == 1 or die "Please provide exactly one source file as an argument.\n"; |
||
open my $source, '<', $ARGV[0] or die |
open my $source, '<', $ARGV[0] or die ("I couldn't open \"" . $ARGV[0] . "\" for reading. ($!.)\n"); |
||
my @rules; |
my @rules; |
||
while (<$source>) |
while (<$source>) |
||