Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

teamster_jr's scratchpad

by teamster_jr (Curate)
on Jun 03, 2004 at 20:05 UTC ( #360451=scratchpad: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    open FH, ">o.png";
    binmode FH;
    print FH $i->png
    
  2. or download this
    
    ($f,$s,$t,$l)=@ARGV;open(FH,$f);while(<FH>){chop;s#^\s?(.*)\s?#$1# if!
    +$t
    ;last if/^exit;$/|/^##$/;$b=$a.=$_ if!(/^#/|/#-$/)}$l||=72;print++$c==
    +5&
    !$s?"\e[31m$&$/":$&.$/while$b=~s#^.{$l}##;printf"%s\n%s %s\n%s %s".$/,
    +$s
    ?$b:(($c>3?"\e[31m":"")."$b\e[m\n",$t=length($b),$l-$t,$c+1,$b=length$
    +a)
    
  3. or download this
    #!/usr/bin/perl
    use Firework;
    ...
    $display->add_wheel(60,22,8);
    
    $display->start_display;
    
  4. or download this
    package Firework;
    use Firework::Rockets;
    ...
    }
    
    1;
    
  5. or download this
    package Firework::Rockets;
    use Firework;
    ...
    }
    
    1;
    
  6. or download this
    package Firework::Catherine;
    use Firework;
    ...
    }
    
    1;
    
  7. or download this
    @m=((31,(15)x8)x8,(31)x9);$m[$c]|=16,!(@a=grep/.$/&!(16+$|*$&&$m[$c+$`
    +])
    ,-18,11,94,-92)?$c=pop@p:${$a[rand@a]=~/.$/;push@p,$c;$m[$c]&=~8/$&;$m
    +[$
    c+=$`]&=15-$&;++$u-64||map$_&=15,@m,$c=$|=1},$|&&9x2e7,print"\ec",(_)x
    +17
    ,map$_%9?($_-$c?$m[$_]&2?_:$":o).($m[$_]&8?I:_):$/.I,0..71until$c>70&$
    +|
    
  8. or download this
    $_="C,9++xS5!+5!+xS0%/x+++5!S+x755!S+x";s#[^x]#-21+ord$&#eg;s#.#00$&#g
    +;;
    s#0x#40x#g;$a='map{$d=0;s#...#($d++%2?$":1)x$&#eg}@z=split/x/,"072x'.$
    +_.
    q`051";$a="\$a=q\x60$a\x60;".'$a=~s#\s##g;eval$a';{$_=$a;($z=join$/,ma
    +p{
    s#.##;$_.=$&}@z)=~s#1#s/.//;$&#eg;print"\ec$z$/";9x1e7;redo}`;eval$a
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2022-01-24 14:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (64 votes). Check out past polls.

    Notices?