Execute a Markov algorithm: Difference between revisions
→{{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.
(→{{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:
<lang perl>@ARGV == 1 or die "Please provide exactly one source file as an argument.\n";
open my $source, '<', $ARGV[0] or die
my @rules;
while (<$source>)
| |||