Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

Homework

Name: 2009-08-18 10:35

Output a thousand Sussmen in an individualistic way.

Name: Anonymous 2009-08-21 7:11

>>79



#!/usr/bin/perl



use strict;

use warnings;



use Template;



my $tt = Template->new();

my $vars = {

        sussmen => sub { return "sussman " x1000; }

};

$tt->process(\*DATA, $vars);



__DATA__

[% FOREACH sussman IN sussmen %]

<prog>

        [% sussman %]

</prog>

[% END %]

Newer Posts