diff options
Diffstat (limited to 'gemfeed/2008-06-26-perl-poetry.html')
| -rw-r--r-- | gemfeed/2008-06-26-perl-poetry.html | 163 |
1 files changed, 79 insertions, 84 deletions
diff --git a/gemfeed/2008-06-26-perl-poetry.html b/gemfeed/2008-06-26-perl-poetry.html index a193f6ff..d54b7210 100644 --- a/gemfeed/2008-06-26-perl-poetry.html +++ b/gemfeed/2008-06-26-perl-poetry.html @@ -2,17 +2,12 @@ <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> -<meta name="viewport" content="width=device-width, initial-scale=1.0" /> <title>Perl Poetry</title> <link rel="shortcut icon" type="image/gif" href="/favicon.ico" /> <link rel="stylesheet" href="../style.css" /> <link rel="stylesheet" href="style-override.css" /> </head> <body> -<div class="rfx-overlay-grid"></div> -<div class="rfx-overlay-scanlines"></div> -<div id="rfx-stars"></div> -<div class="rfx-vignette"></div> <p class="header"> <a href="https://foo.zone">Home</a> | <a href="https://codeberg.org/snonux/foo.zone/src/branch/content-md/gemfeed/2008-06-26-perl-poetry.md">Markdown</a> | <a href="gemini://foo.zone/gemfeed/2008-06-26-perl-poetry.gmi">Gemini</a> </p> @@ -64,44 +59,44 @@ _~~|~/_|_|__/|~~~~~~~ | / ~~~~~ | | ~~~~~~~~ by Lorenzo Bettini http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> -<pre><i><font color="#ababab">#!/usr/bin/perl</font></i> +<pre><i><font color="silver">#!/usr/bin/perl</font></i> -<i><font color="#ababab"># (C) 2006 by Paul C. Buetow</font></i> +<i><font color="silver"># (C) 2006 by Paul C. Buetow</font></i> -<b><font color="#ffffff">goto</font></b><font color="#ff0000"> library </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> study </font><font color="#ff0000">$math</font><font color="#F3E651">;</font> -<font color="#ff0000">BEGIN </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">s</font></b><font color="#bb00ff">/earching/ books/</font><font color="#ff0000"> </font> -<b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">read</font></b><font color="#ff0000"> </font><font color="#ff0000">$them</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$at</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$the</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#ff0000"> library</font><font color="#F3E651">:</font> +<b><u><font color="#000000">goto</font></u></b> library <b><u><font color="#000000">for</font></u></b> study $math; +BEGIN { <b><u><font color="#000000">s</font></u></b><font color="#808080">/earching/ books/</font> +<b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">read</font></u></b> $them, $at, $the } library: -<b><font color="#ffffff">our</font></b><font color="#ff0000"> </font><font color="#ff0000">$topics</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">cos</font></b><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> tan</font><font color="#F3E651">,</font><font color="#ff0000"> </font> -<b><font color="#ffffff">require</font></b><font color="#ff0000"> strict</font><font color="#F3E651">;</font><font color="#ff0000"> </font><font color="#ababab">import</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> of</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">tied</font></b><font color="#ff0000"> </font><font color="#ff0000">$patience</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">our</font></u></b> $topics, <b><u><font color="#000000">cos</font></u></b> <b><u><font color="#000000">and</font></u></b> tan, +<b><u><font color="#000000">require</font></u></b> strict; <b><u><font color="#000000">import</font></u></b> { of, <b><u><font color="#000000">tied</font></u></b> $patience }; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">int</font></b><font color="#bb00ff">'egrate'</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">sub</font></b><font color="#ff0000"> trade</font><font color="#F3E651">;</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">exp</font></b><font color="#bb00ff">'onentize'</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">abs</font></b><font color="#bb00ff">'olutize'</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<font color="#ff0000">study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">int</font></u></b><font color="#808080">'egrate'</font>; <b><u><font color="#000000">sub</font></u></b> trade; }; +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">exp</font></u></b><font color="#808080">'onentize'</font> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">abs</font></u></b><font color="#808080">'olutize'</font> }; +study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">and</font></u></b> study; -<b><font color="#ffffff">foreach</font></b><font color="#ff0000"> </font><font color="#ff0000">$topic</font><font color="#ff0000"> </font><font color="#F3E651">(</font><font color="#F3E651">{</font><font color="#ff0000">of</font><font color="#F3E651">,</font><font color="#ff0000"> math</font><font color="#F3E651">}</font><font color="#F3E651">)</font><font color="#ff0000"> </font><font color="#F3E651">{</font> -<font color="#ff0000">you</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">m</font></b><font color="#ff0000">/ay /</font><font color="#ff0000">go</font><font color="#F3E651">,</font><font color="#ff0000"> to</font><font color="#F3E651">,</font><font color="#ff0000"> limits </font><font color="#F3E651">}</font> +<b><u><font color="#000000">foreach</font></u></b> $topic ({of, math}) { +you, <b><u><font color="#000000">m</font></u></b>/ay /go, to, limits } -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> not </font><b><font color="#ffffff">qw</font></b><font color="#bb00ff">/erk /</font><font color="#ff0000"> </font><b><font color="#ffffff">unless</font></b><font color="#ff0000"> </font><font color="#ff0000">$success</font><font color="#ff0000"> </font> -<b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">m</font></b><font color="#ff0000">/ove /</font><font color="#ff0000">o</font><font color="#F3E651">;</font><font color="#ff0000">$n</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><font color="#F3E651">}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { not <b><u><font color="#000000">qw</font></u></b><font color="#808080">/erk /</font> <b><u><font color="#000000">unless</font></u></b> $success +<b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">m</font></u></b>/ove /o;$n <b><u><font color="#000000">and</font></u></b> study }; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">int</font></b><font color="#bb00ff">'egrate'</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">sub</font></b><font color="#ff0000"> trade</font><font color="#F3E651">;</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">exp</font></b><font color="#bb00ff">'onentize'</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">abs</font></b><font color="#bb00ff">'olutize'</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<font color="#ff0000">study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">int</font></u></b><font color="#808080">'egrate'</font>; <b><u><font color="#000000">sub</font></u></b> trade; }; +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">exp</font></u></b><font color="#808080">'onentize'</font> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">abs</font></u></b><font color="#808080">'olutize'</font> }; +study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">and</font></u></b> study; -<b><font color="#ffffff">grep</font></b><font color="#ff0000"> </font><font color="#bb00ff">/all/</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">exp</font></b><font color="#bb00ff">'onents'</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">cos</font></b><font color="#bb00ff">'inuses'</font><font color="#F3E651">;</font> -<font color="#bb00ff">/seek results/</font><font color="#ff0000"> </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> </font><font color="#ff0000">@all</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">log</font></b><font color="#bb00ff">'4rithms'</font><font color="#F3E651">;</font> +<b><u><font color="#000000">grep</font></u></b> <font color="#808080">/all/</font>, <b><u><font color="#000000">exp</font></u></b><font color="#808080">'onents'</font> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">cos</font></u></b><font color="#808080">'inuses'</font>; +<font color="#808080">/seek results/</font> <b><u><font color="#000000">for</font></u></b> @all, <b><u><font color="#000000">log</font></u></b><font color="#808080">'4rithms'</font>; -<font color="#bb00ff">'you'</font><font color="#ff0000"> </font><font color="#F3E651">=~</font><font color="#ff0000"> </font><b><font color="#ffffff">m</font></b><font color="#ff0000">/ay /</font><font color="#ff0000">go</font><font color="#F3E651">,</font><font color="#ff0000"> not home </font> -<b><font color="#ffffff">unless</font></b><font color="#ff0000"> </font><b><font color="#ffffff">each</font></b><font color="#ff0000"> </font><font color="#ff0000">%book</font><font color="#ff0000"> ne</font><i><font color="#ababab">#ars</font></i> -<font color="#ff0000">$completion</font><font color="#F3E651">;</font> +<font color="#808080">'you'</font> =~ <b><u><font color="#000000">m</font></u></b>/ay /go, not home +<b><u><font color="#000000">unless</font></u></b> <b><u><font color="#000000">each</font></u></b> %book ne<i><font color="silver">#ars</font></i> +$completion; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">int</font></b><font color="#bb00ff">'egrate'</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">sub</font></b><font color="#ff0000"> trade</font><font color="#F3E651">;</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">exp</font></b><font color="#bb00ff">'onentize'</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">abs</font></b><font color="#bb00ff">'olutize'</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">int</font></u></b><font color="#808080">'egrate'</font>; <b><u><font color="#000000">sub</font></u></b> trade; }; +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">exp</font></u></b><font color="#808080">'onentize'</font> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">abs</font></u></b><font color="#808080">'olutize'</font> }; -<i><font color="#ababab">#at</font></i> -<font color="#ff0000">home</font><font color="#F3E651">:</font><font color="#ff0000"> </font><font color="#bb00ff">//ig,'nore', time and sleep $very =~ s/tr/on/</font><b><font color="#ffffff">g</font></b><font color="#F3E651">;</font> -<font color="#ff0000">__END__</font> +<i><font color="silver">#at</font></i> +home: <font color="#808080">//ig,'nore', time and sleep $very =~ s/tr/on/</font><b><u><font color="#000000">g</font></u></b>; +__END__ </pre> <br /> @@ -111,47 +106,47 @@ http://www.gnu.org/software/src-highlite --> by Lorenzo Bettini http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> -<pre><i><font color="#ababab">#!/usr/bin/perl</font></i> +<pre><i><font color="silver">#!/usr/bin/perl</font></i> -<i><font color="#ababab"># (C) 2006 by Paul C. Buetow</font></i> +<i><font color="silver"># (C) 2006 by Paul C. Buetow</font></i> -<font color="#ff0000">Christmas</font><font color="#F3E651">:</font><font color="#F3E651">{</font><font color="#ff0000">time</font><font color="#F3E651">;</font><i><font color="#ababab">#!!!</font></i> +Christmas:{time;<i><font color="silver">#!!!</font></i> -<font color="#ff0000">Children</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">tell</font></b><font color="#ff0000"> </font><font color="#ff0000">$wishes</font><font color="#F3E651">;</font> +Children: <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">tell</font></u></b> $wishes; -<font color="#ff0000">Santa</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> </font><font color="#ff0000">$each</font><font color="#ff0000"> </font><font color="#F3E651">(</font><font color="#ff0000">@children</font><font color="#F3E651">)</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font> -<font color="#ff0000">BEGIN </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">read</font></b><font color="#ff0000"> </font><font color="#ff0000">$each</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$their</font><font color="#F3E651">,</font><font color="#ff0000"> wishes </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study them</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">use</font></b><font color="#ff0000"> Memoize</font><i><font color="#ababab">#ing</font></i> +Santa: <b><u><font color="#000000">for</font></u></b> $each (@children) { +BEGIN { <b><u><font color="#000000">read</font></u></b> $each, $their, wishes <b><u><font color="#000000">and</font></u></b> study them; <b><u><font color="#000000">use</font></u></b> Memoize<i><font color="silver">#ing</font></i> -<font color="#F3E651">}</font><font color="#ff0000"> </font><b><font color="#ffffff">use</font></b><font color="#ff0000"> constant gift</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#bb00ff">'wrapping'</font><font color="#F3E651">;</font><font color="#ff0000"> </font> -<b><font color="#ffffff">package</font></b><font color="#ff0000"> Gifts</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">pack</font></b><font color="#ff0000"> </font><font color="#ff0000">$each</font><font color="#F3E651">,</font><font color="#ff0000"> gift </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">bless</font></b><font color="#ff0000"> </font><font color="#ff0000">$each</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">goto</font></b><font color="#ff0000"> deliver</font> -<font color="#ff0000">or </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#ababab">import</font><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> not </font><b><font color="#ffffff">local</font></b><font color="#ff0000"> </font><font color="#ff0000">$available</font><font color="#F3E651">,!!!</font><font color="#ff0000"> HO</font><font color="#F3E651">,</font><font color="#ff0000"> HO</font><font color="#F3E651">,</font><font color="#ff0000"> HO</font><font color="#F3E651">;</font> +} <b><u><font color="#000000">use</font></u></b> constant gift, <font color="#808080">'wrapping'</font>; +<b><u><font color="#000000">package</font></u></b> Gifts; <b><u><font color="#000000">pack</font></u></b> $each, gift <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">bless</font></u></b> $each <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">goto</font></u></b> deliver +or <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">import</font></u></b> <b><u><font color="#000000">if</font></u></b> not <b><u><font color="#000000">local</font></u></b> $available,!!! HO, HO, HO; -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">pipe</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#F3E651">,</font><font color="#ff0000"> to_childs</font><font color="#F3E651">;</font> -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">return</font></b><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><b><font color="#ffffff">last</font></b><font color="#ff0000"> one</font><font color="#F3E651">,</font><font color="#ff0000"> is</font><font color="#F3E651">,</font><font color="#ff0000"> delivered</font><font color="#F3E651">;</font><font color="#ff0000"> </font> +<b><u><font color="#000000">redo</font></u></b> Santa, <b><u><font color="#000000">pipe</font></u></b> $gifts, to_childs; +<b><u><font color="#000000">redo</font></u></b> Santa <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">return</font></u></b> <b><u><font color="#000000">if</font></u></b> <b><u><font color="#000000">last</font></u></b> one, is, delivered; -<font color="#ff0000">deliver</font><font color="#F3E651">:</font><font color="#ff0000"> gift </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">require</font></b><font color="#ff0000"> diagnostics </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><b><font color="#ffffff">our</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#ff0000"> </font><font color="#F3E651">,</font><font color="#ff0000">not break</font><font color="#F3E651">;</font> -<b><font color="#ffffff">do</font></b><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">use</font></b><font color="#ff0000"> NEXT</font><font color="#F3E651">;</font><font color="#ff0000"> time</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">tied</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#F3E651">}</font><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> broken </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">dump</font></b><font color="#ff0000"> the</font><font color="#F3E651">,</font><font color="#ff0000"> broken</font><font color="#F3E651">,</font><font color="#ff0000"> ones</font><font color="#F3E651">;</font> -<font color="#ff0000">The_children</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">sleep</font></b><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">wait</font></b><font color="#ff0000"> </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> </font><font color="#F3E651">(</font><b><font color="#ffffff">each</font></b><font color="#ff0000"> </font><font color="#ff0000">%gift</font><font color="#F3E651">)</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> try </font><font color="#F3E651">{</font><font color="#ff0000"> to </font><font color="#F3E651">=></font><font color="#ff0000"> </font><b><font color="#ffffff">untie</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> +deliver: gift <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">require</font></u></b> diagnostics <b><u><font color="#000000">if</font></u></b> <b><u><font color="#000000">our</font></u></b> $gifts ,not break; +<b><u><font color="#000000">do</font></u></b>{ <b><u><font color="#000000">use</font></u></b> NEXT; time; <b><u><font color="#000000">tied</font></u></b> $gifts} <b><u><font color="#000000">if</font></u></b> broken <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">dump</font></u></b> the, broken, ones; +The_children: <b><u><font color="#000000">sleep</font></u></b> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">wait</font></u></b> <b><u><font color="#000000">for</font></u></b> (<b><u><font color="#000000">each</font></u></b> %gift) <b><u><font color="#000000">and</font></u></b> try { to => <b><u><font color="#000000">untie</font></u></b> $gifts }; -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">pipe</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#F3E651">,</font><font color="#ff0000"> to_childs</font><font color="#F3E651">;</font> -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">return</font></b><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><b><font color="#ffffff">last</font></b><font color="#ff0000"> one</font><font color="#F3E651">,</font><font color="#ff0000"> is</font><font color="#F3E651">,</font><font color="#ff0000"> delivered</font><font color="#F3E651">;</font><font color="#ff0000"> </font> +<b><u><font color="#000000">redo</font></u></b> Santa, <b><u><font color="#000000">pipe</font></u></b> $gifts, to_childs; +<b><u><font color="#000000">redo</font></u></b> Santa <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">return</font></u></b> <b><u><font color="#000000">if</font></u></b> <b><u><font color="#000000">last</font></u></b> one, is, delivered; -<font color="#ff0000">The_christmas_tree</font><font color="#F3E651">:</font><font color="#ff0000"> formline </font><b><font color="#ffffff">s</font></b><font color="#bb00ff">/ /childrens/</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#F3E651">;</font> -<b><font color="#ffffff">alarm</font></b><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">warn</font></b><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> not </font><b><font color="#ffffff">exists</font></b><font color="#ff0000"> </font><font color="#ff0000">$Christmas</font><font color="#F3E651">{</font><font color="#ff0000"> tree</font><font color="#F3E651">}</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">@t</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$ENV</font><font color="#F3E651">{</font><font color="#ff0000">HOME</font><font color="#F3E651">}</font><font color="#F3E651">;</font><font color="#ff0000"> </font> -<b><font color="#ffffff">write</font></b><font color="#ff0000"> </font><font color="#F3E651"><<</font><font color="#ff0000">EMail</font> -<font color="#ff0000"> to the parents to buy a new christmas tree</font><font color="#F3E651">!!!!</font><font color="#bb00ff">111</font> -<font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> send the</font> -<font color="#ff0000">EMail</font> -<font color="#F3E651">;</font><b><font color="#ffffff">wait</font></b><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">redo</font></b><font color="#ff0000"> deliver until </font><b><font color="#ffffff">defined</font></b><font color="#ff0000"> </font><b><font color="#ffffff">local</font></b><font color="#ff0000"> </font><font color="#ff0000">$tree</font><font color="#F3E651">;</font> +The_christmas_tree: formline <b><u><font color="#000000">s</font></u></b><font color="#808080">/ /childrens/</font>, $gifts; +<b><u><font color="#000000">alarm</font></u></b> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">warn</font></u></b> <b><u><font color="#000000">if</font></u></b> not <b><u><font color="#000000">exists</font></u></b> $Christmas{ tree}, @t, $ENV{HOME}; +<b><u><font color="#000000">write</font></u></b> <<EMail + to the parents to buy a new christmas tree!!!!<font color="#000000">111</font> + <b><u><font color="#000000">and</font></u></b> send the +EMail +;<b><u><font color="#000000">wait</font></u></b> <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">redo</font></u></b> deliver until <b><u><font color="#000000">defined</font></u></b> <b><u><font color="#000000">local</font></u></b> $tree; -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa</font><font color="#F3E651">,</font><font color="#ff0000"> </font><b><font color="#ffffff">pipe</font></b><font color="#ff0000"> </font><font color="#ff0000">$gifts</font><font color="#F3E651">,</font><font color="#ff0000"> to_childs</font><font color="#F3E651">;</font> -<b><font color="#ffffff">redo</font></b><font color="#ff0000"> Santa </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">return</font></b><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><b><font color="#ffffff">last</font></b><font color="#ff0000"> one</font><font color="#F3E651">,</font><font color="#ff0000"> is</font><font color="#F3E651">,</font><font color="#ff0000"> delivered </font><font color="#F3E651">;</font><font color="#F3E651">}</font> +<b><u><font color="#000000">redo</font></u></b> Santa, <b><u><font color="#000000">pipe</font></u></b> $gifts, to_childs; +<b><u><font color="#000000">redo</font></u></b> Santa <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">return</font></u></b> <b><u><font color="#000000">if</font></u></b> <b><u><font color="#000000">last</font></u></b> one, is, delivered ;} -<font color="#ff0000">END </font><font color="#F3E651">{}</font><font color="#ff0000"> </font><b><font color="#ffffff">our</font></b><font color="#ff0000"> </font><font color="#ff0000">$mission</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">sleep</font></b><font color="#ff0000"> until </font><b><font color="#ffffff">next</font></b><font color="#ff0000"> Christmas </font><font color="#F3E651">;</font><font color="#F3E651">}</font> +END {} <b><u><font color="#000000">our</font></u></b> $mission <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">sleep</font></u></b> until <b><u><font color="#000000">next</font></u></b> Christmas ;} -<font color="#ff0000">__END__</font> +__END__ -<font color="#ff0000">This is perl</font><font color="#F3E651">,</font><font color="#ff0000"> v5</font><font color="#F3E651">.</font><font color="#bb00ff">8.8</font><font color="#ff0000"> built </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> i386</font><font color="#F3E651">-</font><font color="#ff0000">freebsd</font><font color="#F3E651">-</font><font color="#ff0000">64int</font> +This is perl, v5.<font color="#000000">8.8</font> built <b><u><font color="#000000">for</font></u></b> i386-freebsd-64int </pre> <br /> <h2 style='display: inline' id='shoppingpl'>shopping.pl</h2><br /> @@ -160,35 +155,35 @@ http://www.gnu.org/software/src-highlite --> by Lorenzo Bettini http://www.lorenzobettini.it http://www.gnu.org/software/src-highlite --> -<pre><i><font color="#ababab">#!/usr/bin/perl</font></i> +<pre><i><font color="silver">#!/usr/bin/perl</font></i> -<i><font color="#ababab"># (C) 2007 by Paul C. Buetow</font></i> +<i><font color="silver"># (C) 2007 by Paul C. Buetow</font></i> -<font color="#ff0000">BEGIN</font><font color="#F3E651">{}</font><font color="#ff0000"> </font><b><font color="#ffffff">goto</font></b><font color="#ff0000"> mall </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> </font><font color="#ff0000">$shopping</font><font color="#F3E651">;</font><font color="#ff0000"> </font> +BEGIN{} <b><u><font color="#000000">goto</font></u></b> mall <b><u><font color="#000000">for</font></u></b> $shopping; -<b><font color="#ffffff">m</font></b><font color="#ff0000">/y/</font><font color="#F3E651">;</font><font color="#ff0000"> mall</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">seek</font></b><font color="#ff0000">$s</font><font color="#F3E651">,</font><font color="#ff0000"> cool </font><font color="#7bc710">products</font><font color="#F3E651">(),</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> to </font><font color="#F3E651">=></font><font color="#ff0000"> </font><font color="#ff0000">$sell</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">for</font></b><font color="#ff0000"> </font><font color="#ff0000">$their</font><font color="#ff0000"> </font><font color="#F3E651">(</font><font color="#ff0000">@business</font><font color="#F3E651">)</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> to</font><font color="#F3E651">:;</font><font color="#ff0000"> earn</font><font color="#F3E651">:;</font><font color="#ff0000"> a</font><font color="#F3E651">:;</font><font color="#ff0000"> lot</font><font color="#F3E651">:;</font><font color="#ff0000"> of</font><font color="#F3E651">:;</font><font color="#ff0000"> money</font><font color="#F3E651">:</font><font color="#ff0000"> </font><font color="#F3E651">}</font> +<b><u><font color="#000000">m</font></u></b>/y/; mall: <b><u><font color="#000000">seek</font></u></b>$s, cool products(), { to => $sell }; +<b><u><font color="#000000">for</font></u></b> $their (@business) { to:; earn:; a:; lot:; of:; money: } -<b><font color="#ffffff">do</font></b><font color="#ff0000"> not </font><b><font color="#ffffff">goto</font></b><font color="#ff0000"> home </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">exit</font></b><font color="#ff0000"> mall </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><b><font color="#ffffff">exists</font></b><font color="#ff0000"> </font><font color="#ff0000">$new</font><font color="#F3E651">{</font><font color="#ff0000">product</font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">foreach</font></b><font color="#ff0000"> </font><font color="#ff0000">$of</font><font color="#ff0000"> </font><font color="#F3E651">(</font><b><font color="#ffffff">q</font></b><font color="#bb00ff">(uality rich products)</font><font color="#F3E651">)</font><font color="#F3E651">{}</font><font color="#ff0000"> </font><b><font color="#ffffff">package</font></b><font color="#ff0000"> products</font><font color="#F3E651">;</font><font color="#ff0000"> </font> +<b><u><font color="#000000">do</font></u></b> not <b><u><font color="#000000">goto</font></u></b> home <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">exit</font></u></b> mall <b><u><font color="#000000">if</font></u></b> <b><u><font color="#000000">exists</font></u></b> $new{product}; +<b><u><font color="#000000">foreach</font></u></b> $of (<b><u><font color="#000000">q</font></u></b><font color="#808080">(uality rich products)</font>){} <b><u><font color="#000000">package</font></u></b> products; -<b><font color="#ffffff">our</font></b><font color="#ff0000"> </font><font color="#ff0000">$news</font><font color="#F3E651">;</font><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">tell</font></b><font color="#ff0000"> cool </font><font color="#7bc710">products</font><font color="#F3E651">()</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">sub</font></b><i><font color="#ababab">#tract</font></i> -<font color="#ff0000">cool</font><font color="#F3E651">{</font><font color="#ff0000"> </font><font color="#ff0000">$products</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">shift</font></b><font color="#ff0000"> </font><font color="#ff0000">@the</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">@bad</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">@ones</font><font color="#F3E651">;</font> +<b><u><font color="#000000">our</font></u></b> $news; <b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">tell</font></u></b> cool products() <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b>{ <b><u><font color="#000000">sub</font></u></b><i><font color="silver">#tract</font></i> +cool{ $products <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">shift</font></u></b> @the, @bad, @ones; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><b><font color="#ffffff">bless</font></b><font color="#ff0000"> </font><font color="#F3E651">[</font><b><font color="#ffffff">q</font></b><font color="#bb00ff">(uality)</font><font color="#F3E651">],</font><font color="#ff0000"> </font><font color="#ff0000">$products</font><font color="#ff0000"> </font> -<b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">return</font></b><font color="#ff0000"> not </font><b><font color="#ffffff">undef</font></b><font color="#ff0000"> </font><font color="#ff0000">$stuff</font><font color="#ff0000"> </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> </font><font color="#7bc710">not</font><font color="#ff0000"> </font><font color="#F3E651">(</font><b><font color="#ffffff">local</font></b><font color="#ff0000"> </font><font color="#ff0000">$available</font><font color="#F3E651">)</font><font color="#ff0000"> </font><font color="#F3E651">}}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> <b><u><font color="#000000">bless</font></u></b> [<b><u><font color="#000000">q</font></u></b><font color="#808080">(uality)</font>], $products +<b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">return</font></u></b> not <b><u><font color="#000000">undef</font></u></b> $stuff <b><u><font color="#000000">if</font></u></b> not (<b><u><font color="#000000">local</font></u></b> $available) }}; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> study </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> cool </font><font color="#7bc710">products</font><font color="#F3E651">()</font><font color="#ff0000"> </font><font color="#F3E651">}</font> -<b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">seek</font></b><font color="#ff0000"> </font><font color="#ff0000">$all</font><font color="#F3E651">,</font><font color="#ff0000"> cool </font><font color="#7bc710">products</font><font color="#F3E651">(),</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> to </font><font color="#F3E651">=></font><font color="#ff0000"> </font><font color="#ff0000">$buy</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">and</font></u></b> study <b><u><font color="#000000">for</font></u></b> cool products() } +<b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">seek</font></u></b> $all, cool products(), { to => $buy } }; -<b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">write</font></b><font color="#ff0000"> </font><font color="#ff0000">$them</font><font color="#F3E651">,</font><font color="#ff0000"> </font><font color="#ff0000">$down</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> order</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">foreach</font></b><font color="#ff0000"> </font><font color="#F3E651">(</font><font color="#ff0000">@case</font><font color="#F3E651">)</font><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> </font><b><font color="#ffffff">package</font></b><font color="#ff0000"> </font><b><font color="#ffffff">s</font></b><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#F3E651">;</font> -<b><font color="#ffffff">goto</font></b><font color="#ff0000"> home </font><b><font color="#ffffff">if</font></b><font color="#ff0000"> not </font><b><font color="#ffffff">exists</font></b><font color="#ff0000"> </font><font color="#ff0000">$more</font><font color="#F3E651">{</font><font color="#ff0000">money</font><font color="#F3E651">}</font><font color="#ff0000"> or </font><b><font color="#ffffff">die</font></b><font color="#ff0000"> </font><b><font color="#ffffff">q</font></b><font color="#bb00ff">(uerying)</font><font color="#ff0000"> </font><font color="#F3E651">;</font><b><font color="#ffffff">for</font></b><font color="#F3E651">(</font><font color="#ff0000"> </font><font color="#ff0000">@money</font><font color="#F3E651">)</font><font color="#F3E651">{}</font><font color="#F3E651">;</font> +<b><u><font color="#000000">do</font></u></b> { <b><u><font color="#000000">write</font></u></b> $them, $down } <b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">do</font></u></b> { order: <b><u><font color="#000000">foreach</font></u></b> (@case) { <b><u><font color="#000000">package</font></u></b> <b><u><font color="#000000">s</font></u></b> } }; +<b><u><font color="#000000">goto</font></u></b> home <b><u><font color="#000000">if</font></u></b> not <b><u><font color="#000000">exists</font></u></b> $more{money} or <b><u><font color="#000000">die</font></u></b> <b><u><font color="#000000">q</font></u></b><font color="#808080">(uerying)</font> ;<b><u><font color="#000000">for</font></u></b>( @money){}; -<font color="#ff0000">at</font><font color="#F3E651">:;</font><font color="#ff0000">home</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">do</font></b><font color="#ff0000"> </font><font color="#F3E651">{</font><font color="#ff0000"> END</font><font color="#F3E651">{}</font><font color="#ff0000"> </font><b><font color="#ffffff">and</font></b><font color="#F3E651">:;</font><font color="#ff0000"> rest</font><font color="#F3E651">:;</font><font color="#ff0000"> a</font><font color="#F3E651">:;</font><font color="#ff0000"> bit</font><font color="#F3E651">:</font><font color="#ff0000"> </font><b><font color="#ffffff">exit</font></b><font color="#ff0000"> </font><font color="#ff0000">$shopping</font><font color="#ff0000"> </font><font color="#F3E651">}</font><font color="#ff0000"> </font> -<b><font color="#ffffff">and</font></b><font color="#ff0000"> </font><b><font color="#ffffff">sleep</font></b><font color="#ff0000"> until </font><b><font color="#ffffff">unpack</font></b><font color="#ff0000">$ing</font><font color="#F3E651">,</font><font color="#ff0000"> cool </font><font color="#7bc710">products</font><font color="#F3E651">();</font> +at:;home: <b><u><font color="#000000">do</font></u></b> { END{} <b><u><font color="#000000">and</font></u></b>:; rest:; a:; bit: <b><u><font color="#000000">exit</font></u></b> $shopping } +<b><u><font color="#000000">and</font></u></b> <b><u><font color="#000000">sleep</font></u></b> until <b><u><font color="#000000">unpack</font></u></b>$ing, cool products(); -<font color="#ff0000">__END__</font> -<font color="#ff0000">This is perl</font><font color="#F3E651">,</font><font color="#ff0000"> v5</font><font color="#F3E651">.</font><font color="#bb00ff">8.8</font><font color="#ff0000"> built </font><b><font color="#ffffff">for</font></b><font color="#ff0000"> i386</font><font color="#F3E651">-</font><font color="#ff0000">freebsd</font><font color="#F3E651">-</font><font color="#ff0000">64int</font> +__END__ +This is perl, v5.<font color="#000000">8.8</font> built <b><u><font color="#000000">for</font></u></b> i386-freebsd-64int </pre> <br /> <h2 style='display: inline' id='more'>More...</h2><br /> @@ -208,11 +203,11 @@ http://www.gnu.org/software/src-highlite --> <br /> <a class='textlink' href='../'>Back to the main site</a><br /> <p class="footer"> - Generated with <a href="https://codeberg.org/snonux/gemtexter">Gemtexter 3.0.1-develop</a> | - served by <a href="https://www.OpenBSD.org">OpenBSD</a>/<a href="https://man.openbsd.org/relayd.8">relayd(8)</a>+<a href="https://man.openbsd.org/httpd.8">httpd(8)</a> | - <a href="https://foo.zone/site-mirrors.html">Site Mirrors</a> - <br /> - Webring: <a href="https://shring.sh/foo.zone/previous">previous</a> | <a href="https://shring.sh">shring</a> | <a href="https://shring.sh/foo.zone/next">next</a> + Generated with <a href="https://codeberg.org/snonux/gemtexter">Gemtexter 3.0.1-develop</a> | + served by <a href="https://www.OpenBSD.org">OpenBSD</a>/<a href="https://man.openbsd.org/relayd.8">relayd(8)</a>+<a href="https://man.openbsd.org/httpd.8">httpd(8)</a> | + <a href="https://foo.zone/site-mirrors.html">Site Mirrors</a> + <br /> + Webring: <a href="https://shring.sh/foo.zone/previous">previous</a> | <a href="https://shring.sh">shring</a> | <a href="https://shring.sh/foo.zone/next">next</a> </p> </body> </html> |