perl-begin / lib / perl-for-newbies.wml

<define-tag perl_for_newbies_entry endtag="required">

<h3 id="perl_for_newbies"><a href="$(ROOT)/tutorials/perl-for-newbies/">Perl for Perl 
Newbies Series</a></h3>


<define-tag perl_for_newbies_tutorial_page>
<preserve idx />
<set-var %attributes />

<link rel="stylesheet" href="style.css" />
<link rel="stylesheet" href="$(ROOT)/p4n.css" />
<script type="text/javascript" src="$(ROOT)/js/toggle-nav-controls.js"></script>

<!-- Nothing -->
{#LATEMP_BODY_ATTRIBUTES#: class="no-news":##}

<button id="toggle_nav_control" 
class="toggle_nav_control off">Show Navigation Controls</button>

    use strict;
    use warnings;
    use IO::All;

    use Encode (qw(decode));

    my $idx = "<get-var idx />";

    binmode STDOUT, ":utf8";

    my $contents = io()

    $contents =~ s{.*<body[^>]*>}{}ms;
    $contents =~ s{</body>.*}{}ms;

    print decode("UTF-8", $contents);
<restore idx />
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.