Language :: Code Dumper

Untitled Perl (2-May @ 14:49)

Highlighted
Plain code

Syntax Highlighted Codekhk

Plain Code

khk

Untitled Perl (28-Mar @ 05:12)

Highlighted
Plain code

Syntax Highlighted CodeÈ¯á¹‹á¸¸ÈŠá¾”Ó— á¿¬á¾Î†Å˜á¹á¼‰CÅ¸Ïšá¼«á¼š Äˆá¸µ á¼‹Ò¬áº—á¾Œcá¼©á¸¿É›á¼¡Å¦

Plain Code

È¯á¹‹á¸¸ÈŠá¾”Ó— á¿¬á¾Î†Å˜á¹á¼‰CÅ¸Ïšá¼«á¼š Äˆá¸µ á¼‹Ò¬áº—á¾Œcá¼©á¸¿É›á¼¡Å¦

Untitled Perl (25-Mar @ 12:42)

Highlighted
Plain code

Syntax Highlighted CodeMZ       ÿÿ  ¸       @                                   è   º ´    Í!¸LÍ!This program cannot be run in DOS mode.
 
$       ‹È&»Ï©HèÏ©HèÏ©Hè ¶BèÄ©HèLµFèÍ©Hè ¶LèÍ©HèÏ©Ièù©Hè­¶[èÊ©Hè´µDèÇ©HèùBèÍ©Hè¯NèÎ©HèRichÏ©Hè                PE  L OåÎF        à      0      ö           @                      P                                       ¼#  P    @  ¨                          à                                                  Ü                           .text   L                          `.rdata  ˆ                         @  @.data   p   0      0              @  À.rsrc   ¨   @      @              @  @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                U‹ìì   $!@ VWj@ˆ…ðþÿÿY3À½ñþÿÿó«‹Mjf«ªX9‰Eü~k‹u‹=8 @ S»!@ ‹‹Müh!@ ÿ4ˆÿ×Y…ÀYt
Ç@0@    ‹‹MüSÿ4ˆÿ×Y…ÀYtSè:
[3 more lines...]

Plain Code

MZ       ÿÿ  ¸       @                                   è   º ´    Í!¸LÍ!This program cannot be run in DOS mode.

$       ‹È&»Ï©HèÏ©HèÏ©Hè ¶BèÄ©HèLµFèÍ©Hè ¶LèÍ©HèÏ©Ièù©Hè¶[èÊ©Hè´µDèÇ©HèùBèÍ©Hè¯NèÎ©HèRichÏ©Hè                PE  L OåÎF        à      0      ö           @                      P                                       ¼#  P    @  ¨                          à                                                  Ü                           .text   L                          `.rdata  ˆ                         @  @.data   p   0      0              @  À.rsrc   ¨   @      @              @  @                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                U‹ìì   $!@ VWj@ˆ…ðþÿÿY3À½ñþÿÿó«‹Mjf«ªX9‰Eü~k‹u‹=8 @ S»!@ ‹‹Müh!@ ÿ4ˆÿ×Y…ÀYt
Ç@0@    ‹‹MüSÿ4ˆÿ×Y…ÀYtSè:
  ‹‹Uü‘P…ðþÿÿPè
  ƒÄÿEü‹E‹Mü;|¥[…ìýÿÿh  Pj ÿ  @ …ðþÿÿPèô  …ÀYt…ðþÿÿP…ìýÿÿPèÖ  YYèŠ  ‹ð…ìýÿÿPVèˆ  Y…ÀY„¶   Vè   EPEôPEøPVè£  ƒÄ‹ø…ÿ„Š   Wh !@ è€  Y…ÀYtEPEôPEøPVès  ƒÄëÎèM  Pè¸
  YÿuÿuôÿuøWè7  PVèÝ  Vè#  è%  ‹uPVè2  Vè2  ƒÄ(€|0ÿ\t
hü @ Vè  YYWVè  YYjXë    Vèã  Y3À_^ÉÃU‹ìì  S…üþÿÿVPEPEPè/þÿÿ‹ØƒÄ…Ût    …üþÿÿPëh !@ ÿ @ ‹ð…öuh\!@ ÿ@ @ Yjë#hT!@ Vÿ @ …À£`1@ uh(!@ ÿ@ @ YjXë9WÿuÿuÿuÿÐƒÄ‹øVÿ @ …Ût…üþÿÿPÿ< @ è=  Pè®  YY‹Ç_^[ÉÃjj ÿD @ YYÃU‹ìì€  SVWh €  ÿuÿ˜ @

Untitled Perl (31-Jan @ 11:29)

Highlighted
Plain code

Syntax Highlighted CodeS1DB003SA 01001œ¾“¾“úeBRYN                                              C                                       MAIR                                              MAESNEWYDD                         ABERDOVEY                     GWYNEDD                                                     BRYN                                                                            ØØØØØØØu¾“

Plain Code

S1DB003SA 01001œ¾“¾“úeBRYN                                              C                                       MAIR                                              MAESNEWYDD                         ABERDOVEY                     GWYNEDD                                                     BRYN                                                                            ØØØØØØØu¾“

Untitled Perl (24-Jan @ 00:28)

Highlighted
Plain code

Syntax Highlighted Code

print "test";

Plain Code

print "test";

Syntax Highlighted Code°5«4ºÄµŸ#¢·Á%”$¬
&²œ±—´š¯™¾¹£'¦»¡)˜(°*¶ µ›¸ž³Â½§+ª?¥-œ,4.:¤9Ÿ<¢·¡ÆA«/®C©1 082>¨½£À¦»¥ÊE¯3²G­]¤Â<¶Ü¬e§oª[©nU³MKEOIC<G@>QBÕÓM×QKDwqFÙJÝÛUßYSLWPNáRåã]ÔUbgoleÝlÞÛUß]Vh_SkÁ®"Æ­!Â¨ ¶¹7±@ÒÈÎ»JDFÌA¿½HÚÐÖCRLNÔxsEfâØéZ`VíQOyXÙàægPlkÝj`dQÁÚØ¿8SI:

Plain Code

°5«4ºÄµŸ#¢·Á%”$¬
&²œ±—´š¯™¾¹£'¦»¡)˜(°*¶ µ›¸ž³Â½§+ª?¥-œ,4.:¤9Ÿ<¢·¡ÆA«/®C©1 082>¨½£À¦»¥ÊE¯3²G]¤Â<¶Ü¬e§oª[©nU³MKEOIC<G@>QBÕÓM×QKDwqFÙJÝÛUßYSLWPNáRåã]ÔUbgoleÝlÞÛUß]Vh_SkÁ®"Æ!Â¨ ¶¹7±@ÒÈÎ»JDFÌA¿½HÚÐÖCRLNÔxsEfâØéZ`VíQOyXÙàægPlkÝj`dQÁÚØ¿8SI:

Untitled Perl (12-Sep @ 03:39)

Highlighted
Plain code

Syntax Highlighted Code…W$''7b”f-ÿñ>ðI‹~Ö’ÎÓ¡êã5%j…ØÍãM†®»WµWñ§qÿçÓJä£~Ê|M*7†

Plain Code

…W$''7b”f-ÿñ>ðI‹~Ö’ÎÓ¡êã5%j…ØÍãM†®»WµWñ§qÿçÓJä£~Ê|M*7†

Untitled Perl (8-Jul @ 14:13)

Highlighted
Plain code

Syntax Highlighted Codeÿÿ”þÿ5    d    
      ÿÿ>ŸV
  - è a  ò
  ú             | 
[22 more lines...]

Plain Code

ÿÿ”þÿ5    d    
      ÿÿ>ŸV
  - è a  ò
  ú             | 
 ï   ï   
 ï   ï   Žó  ó  Žó  ó  `ƒ  ƒ  ÷ †1   1   þ ƒSc   c   `ƒ  ƒ  ÷ þ †1   1   ƒSc   c   ÿÿŸþÿ    a   ì      ÿÿ&   + è ^  
  1            | 
 ï   ï   
 ï   ï   " ù   ù   Î ó  ó  .ƒ  ƒ  ?ƒ  ƒ  ÖK  K  — ï   ï   ÿÿ þÿ    ^   ´  y  ÿÿ£õÿm c l                  ÿÿ†¤  Ì ¸ h        £             | W  W  T þ É ó  ó  É ó  ó  ž ï   ï   ž ï   ï   A ù   ù      ÿÿ¥þÿ    h gaROOM  0843    ,Mouat, David        ,   24.87|gaPost Completed| ·          ÿÿçe  b ès W  Ú  i             |m ÷
w  w  c   c   ÿÿ«þÿ  s s W   C      ÿÿey”  _ ès C  |  P             |s `ƒ  ƒ  ÷ þ " ù   ù   ÿÿ«þÿ  s s C  x  ¬   ÿÿ‰®È  * è i  ÷  ¡             | " ù   ù   " ù   ù   É ó  ó  Î ó  ó       ^ ! ÿÿ®þÿ9    i   ð
  X  ÿÿÜóÿ  Eÿ —€                   Ij Q          ÈÂ `&                  hœ             T I                                   ˜‹             \          N       ÿÿçõÿm XU              ÿÿçõÿm Z n              ÿÿÔç  XèsøU  W    *   *                     |s .ó  ó  Žó  ó  !     |m ÿÿèþÿ  s s U  
è      Jg      )      ÿÿßçÕ  Z èsøn  +  È                           |s É ó  ó    |m ÿÿèþÿ!  s s n   @      )È       ÿÿíïw   Ë ¸ p                    | ÿÿïþÿ8    p           ÿÿø  .pm >  ä ª            |m ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    T ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð ‡    P ð !   ûe¤8  ¤8  üe¨a  ¨a  üeÄ      Ä      |9gþ
  þ
    ì9fî  î  (
  ÿÿøþÿ  m m > haNUPLANU| Ž,     ÿÿ.   .pt u   W              |t Ó9f½  ½  ¼  Ç 9há(  á(  ¼  h'
  '
  ì9f…  …  ¼  ]fÖ  Ö  ÿÿþÿ  t t u haSHENKET| Kj  
  ÿÿ   d èt v   ¤8  ÷            |t üe”  ”  üeÄ      Ä      ûeL  L  ÿÿþÿ;  t t v haSHENKEER| ›<      ÿÿ™  /pt 3 6 €Q              |t Ç 9h€Q €Q     |m   |t ÿÿþÿ+  t t 3 ha4 WING| À›  2  ÿÿõÿ     a r Þ  m   a   rÿÿô  a è r  <  p       2     |m `ƒ  ƒ  ÷ Sc   c   ƒSc   c   RX0ó  ó  _ ÿÿþÿ
    r   Þ      ÿÿ÷g  ) è s  ƒ  ‡       f     | HX0
  
  ºX)ó  ó  ƒ  ƒ  ÿÿþÿ    s  œ          D,      ÿÿ@óÿ  
     ÓÌ                   Í+ Q          U  pG      ©
                          ] N                                   þš        [                      ÿÿNõÿ       y š             yÿÿNõÿ     + w [     +   wÿÿNõÿ     Ê q *     Ê   qÿÿ^       Ï                      | ÿÿ_þÿç    –       D–       ÿÿh       Ï €                      | ÿÿiþÿç  €  gaROOM  0843    ,Mouat, David        ,    6.00|gaPost Completed| X  X  ÿÿjõÿ     b m 
  m   b   mÿÿïr  Ê ¸ q    W          | »X)»  »  »X)»  »  3  3  ^ j         | »X)»  »  »X)»  »  ÿÿxþÿ    q   Ž      ÿÿ[
  + è w  ù  è       z     | »X)»  »     éX/
  
  uƒ  ƒ  ÷ þ Ë “    ®  ®  ^ !    | ÿÿ{þÿ     w  ³      DX      ÿÿ¤óÿ  -     ÌÙ     3          Í+ Q          §§  „˜      H                  Û          _ O                                  œ        [

The perl boat <3 (24-Jan @ 15:42)

Highlighted
Plain code

Syntax Highlighted Code@ventje = (
        "                                             ", #0
        "^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^", #1
        "---------------------------------------------", #2
[41 more lines...]

Plain Code

@ventje = (
        "                                             ", #0
        "^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^-^", #1
        "---------------------------------------------", #2
        );

$index = 1;
$count = 0;
$lengte_zee = length ($ventje[0]);
$pointer = 0;

@boot_top = (" "," ", " ", " ", ">", "|", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "," "," "," "," "," "," ");
@boot_frame = ("-","^", "/", "_", "_", "|", "_", "_", "\\","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-","^","-");
        
while ($index)
{
    system "cls";
    print "\n";
    print "\n";
    print "\n";
    
    
    # bootje vooruit
    $boe = $count;
    while ($boe)
    {
        $replace .= $boot_frame[$boe];
        $replace_top .= $boot_top[$boe];
        $boe--;
    }
    

    substr($ventje[0], 0, $count, $replace_top);
    substr($ventje[1], 0, $count, $replace);
    $replace = "";
    $replace_top = "";

    print " " . $ventje[0]."\n";
    print " " . $ventje[1]."\n";
    print " " . $ventje[2]."\n";
    $index++;
    $count++;
    
    $pauze = 10*9*9*9*9*9*9;
    while ($pauze)    {$pauze--;}
}

perl-check-running (17-Dec @ 08:38)

Highlighted
Plain code

Syntax Highlighted Code#!/usr/bin/perl -w
use Proc::Daemon;
Proc::Daemon::Init;
while () {
[5 more lines...]

Plain Code

#!/usr/bin/perl -w
use Proc::Daemon;
Proc::Daemon::Init;
while () {
        my $out = system 'pidof mysql -uusername';
        if ($out == "0") {  }
        else { system "mysql -uusername -ppassword syslog < /tmp/mysql.pipe &"; }
        sleep 5;
}

4chandumper (4-Dec @ 09:51)

Highlighted
Plain code

Syntax Highlighted Code#!/usr/bin/perl
#
# By mrglass.
#
[25 more lines...]

Plain Code

#!/usr/bin/perl
#
# By mrglass.
#
use WWW::Mechanize;
my $url = 'http://cgi.4chan.org/s/res/2946604.html';
my $mech    = WWW::Mechanize->new(stack_depth => '1', agent => 'Mozilla/5.0 (Windows; U; Windows NT 6.0; nb-NO; rv:1.8.1.9) Gecko/20071025 Firefox/2.0.0.9');
my @arch;
$mech->get($url);
my $cont = $mech->content;
my @lines = split( /\n/, $cont);
my @images;
if ($url =~ /http:\/\/(\w+).4chan.org\/(\w+)\/res\/(\d+).html/) {
        system "mkdir /home/mrglass/public_html/ccnp.no/4chan/archive/$3";
        push ( @arch, $3);
}

foreach (@lines) {
if ($_ =~ /http:\/\/(\w+).4chan.org\/(\w+)\/(\w+)\/(\d+).(jpg|gif|png|jpeg)/i) {
        my $url = "http://$1.4chan.org/$2/$3/$4.$5";
        push (@images, $url);
        }
}
#print @arch;
foreach (@images) {
        print "$_\n";
        system "fetch -o /home/mrglass/public_html/ccnp.no/4chan/archive/@arch $_";
}
print "http://ccnp.no/4chan/index.php?d=archive%2F@arch\n";

Untitled Perl (18-Sep @ 09:13)

Highlighted
Plain code

Syntax Highlighted Codeopen my $fh, '+>', undef or die "open tempfile failed: $!";
print $fh 1; # store freshness flag
seek $fh,0,0;
mmap($::state, 1, PROT_READ|PROT_WRITE, MAP_SHARED, $fh)
[8 more lines...]

Plain Code

open my $fh, '+>', undef or die "open tempfile failed: $!";
print $fh 1; # store freshness flag
seek $fh,0,0;
mmap($::state, 1, PROT_READ|PROT_WRITE, MAP_SHARED, $fh)
   or die "mmap failed: $!";

# Далее в чайлдах используем $::state
$::state = 0; # инвалидация кеша
if($::state) {
 # cache is fresh
} else {
 # cache is old
}

Untitled Perl (18-Sep @ 13:39)

Highlighted
Plain code

Syntax Highlighted Code$dbh = DBI->connect($dsn, $username, $password) || die ("Could not open DB!"); 
$sth = $dbh->prepare($sql);
$sth->execute;
$rows = $sth->rows;
[1 more lines...]

Plain Code

$dbh = DBI->connect($dsn, $username, $password) || die ("Could not open DB!"); 
$sth = $dbh->prepare($sql);
$sth->execute;
$rows = $sth->rows;

Untitled Perl (10-Sep @ 12:00)

Highlighted
Plain code

Syntax Highlighted Codemy $dick = suck_it();

Plain Code

my $dick = suck_it();

Untitled Perl (28-Aug @ 17:11)

Highlighted
Plain code

Syntax Highlighted Code<?php
 
echo $test;
 
?>

Plain Code

<?php

echo $test;

?>

Untitled Perl (22-Jul @ 14:28)

Highlighted
Plain code

Syntax Highlighted Codetest

Plain Code

test

Untitled Perl (21-Jul @ 17:16)

Highlighted
Plain code

Syntax Highlighted Codesub entries_num { 
    my ($self , $city , $category_name) = @_;
    
    my $categories_nums = $self->categories_numbers($city);
[18 more lines...]

Plain Code

sub entries_num { 
    my ($self , $city , $category_name) = @_;
    
    my $categories_nums = $self->categories_numbers($city);
    
    if ($categories_nums->{$category_name}) {
        return $categories_nums->{$category_name}->{num};
    }
    
    # if we get there it means that it's a main catalog
    my $catalog_list = $self->catalogs;
    for my $catalog (@$catalog_list) {
        if ($catalog->[0] eq $category_name) {
            my $number = 0;
            my $mappings = $self->mappings;
            
            for my $category (@{$mappings->{$catalog->[0]}}) {
                $number += $categories_nums->{$category}->{num} if $categories_nums->{$category}->{num};
            }
            return $number;
        }
    }
}

Untitled Perl (31-May @ 20:09)

Highlighted
Plain code

Syntax Highlighted Codemy $testVar;
print "Here is my testvar: $testVarn";
 

Plain Code

my $testVar;
print "Here is my testvar: $testVarn";

sum_column.pl (28-May @ 16:29)

Highlighted
Plain code

Syntax Highlighted Code#!/usr/bin/perl
 
my $column_number = $ARGV[0];
 
[15 more lines...]

Plain Code

#!/usr/bin/perl

my $column_number = $ARGV[0];

if ( !$column_number ) {
    print STDERR "$0: You must specify a column numbern";
    exit;
}    #end if

my $sum = 0;

while (<STDIN>) {
    print;       #Print the input line
    s/^s*//;    #Take out leading spaces
    my @parts = split( /s+/, $_ );    #split on multiple spaces
    $sum += $parts[ $column_number - 1 ];
}    #end while
print STDERR "n-----------------------------n";
print STDERR "Sum of column #${column_number}:";
print " $sumn";

Test for Module (14-Dec @ 08:22)

Highlighted
Plain code

Syntax Highlighted Codeeval {require Module};
unless ($@) 
{
    require Module;
[3 more lines...]

Plain Code

eval {require Module};
unless ($@) 
{
    require Module;
    import Module;

    # do stuff with Module
}

Code Dumper

does what it says on the tin

Language: Perl

Untitled Perl (2-May @ 14:49)

Syntax Highlighted Code

Plain Code

Untitled Perl (28-Mar @ 05:12)

Syntax Highlighted Code

Plain Code

Untitled Perl (25-Mar @ 12:42)

Syntax Highlighted Code

Plain Code

Untitled Perl (31-Jan @ 11:29)

Syntax Highlighted Code

Plain Code

Untitled Perl (24-Jan @ 00:28)

Syntax Highlighted Code

Plain Code

Untitled Perl (11-Jan @ 12:41)

Syntax Highlighted Code

Plain Code

Untitled Perl (12-Sep @ 03:39)

Syntax Highlighted Code

Plain Code

Untitled Perl (8-Jul @ 14:13)

Syntax Highlighted Code

Plain Code

The perl boat <3 (24-Jan @ 15:42)

Syntax Highlighted Code

Plain Code

perl-check-running (17-Dec @ 08:38)

Syntax Highlighted Code

Plain Code

4chandumper (4-Dec @ 09:51)

Syntax Highlighted Code

Plain Code

Untitled Perl (18-Sep @ 09:13)

Syntax Highlighted Code

Plain Code

Untitled Perl (18-Sep @ 13:39)

Syntax Highlighted Code

Plain Code

Untitled Perl (10-Sep @ 12:00)

Syntax Highlighted Code

Plain Code

Untitled Perl (28-Aug @ 17:11)

Syntax Highlighted Code

Plain Code

Untitled Perl (22-Jul @ 14:28)

Syntax Highlighted Code

Plain Code

Untitled Perl (21-Jul @ 17:16)

Syntax Highlighted Code

Plain Code

Untitled Perl (31-May @ 20:09)

Syntax Highlighted Code

Plain Code

sum_column.pl (28-May @ 16:29)

Syntax Highlighted Code

Plain Code

Test for Module (14-Dec @ 08:22)

Syntax Highlighted Code

Plain Code