Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #/usr/bin/perl6
- use Mojo::DOM:from<Perl5>;
- for dir(test => /:i '.' html $/) -> $file {
- my $fh = $file.open();
- my $contents = $fh.slurp_rest();
- say $contents;
- last;
- }
- # Outputs
- ===SORRY!=== Error while compiling /home/cbwood/eBook/Fortune/OEBPS/Text/reBase.pl
- Missing block
- at /home/cbwood/eBook/Fortune/OEBPS/Text/reBase.pl:11
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement