Source

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>

%body
</define-tag>

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

<page_extra_head_elements>
<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>
</page_extra_head_elements>

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

<button id="toggle_nav_control" 
onclick="javascript: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()
        ->file("../lib/tutorials/perl-for-newbies/lect$idx-all-in-one/index.html")
        ->slurp()
        ;

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

    print decode("UTF-8", $contents);
}
}:>
<restore idx />
</define-tag>
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 ProjectModifiedEvent.java.
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.