hledání



tagy



jazyky

perl 13
php 289
text 40
xml 7
css 3
javascript 4
python 3
bash 3
m68k 2
csharp 2
java 18
java5 1
html4strict 9
plsql 1
smalltalk 2
smarty 1
tsql 1
mirc 1
freebasic 1
haskell 1
blitzbasic 1
matlab 1
snippet generovani grafu »

poslední pasty

345039485039845093845

  1. waz.13@hotmail.com
perl 1 řádků | 2009-02-06 20:38:08

Proxy tester

Simple perl threaded proxy tester....
  1. #!/usr/bin/perl -w
  2.  
  3. # ------------------------------------------------------------
  4.  
  5. use strict;
Tagy:
perl 113 řádků | 2009-01-01 12:44:25 | air.kadlec@seznam.cz

LWP Perl file uploader

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4. use warnings;
Tagy:
perl 24 řádků | 2008-09-25 03:24:11 | air.kadlec@seznam.cz

How to escape variable in regular expression

  1. # using \Q in regex
  2.  
  3. $string = "Placido P. Octopus";
  4. $regex = "P.";
Tagy:
perl 7 řádků | 2008-08-26 06:03:46

BlogDump.pm

  1. #!/usr/bin/perl
  2.  
  3. package BlogDump;
  4.  
  5. use strict;
Tagy:
perl 98 řádků | 2008-05-29 22:57:37 | air.kadlec@seznam.cz

Article.pm

  1. #!/usr/bin/perl
  2.  
  3. package Article;
  4.  
  5. use strict;
Tagy:
perl 69 řádků | 2008-05-29 22:57:08 | air.kadlec@seznam.cz

Blog spam creator !

BlogPeer.pm, http://www.isecure.cz/2008/05/29/stane-se/...
  1. #!/usr/bin/perl
  2.  
  3. package BlogPeer;
  4.  
  5. use strict;
Tagy:
perl 325 řádků | 2008-05-29 22:54:00 | air.kadlec@seznam.cz

domain regex

simple regex domain check...
  1. ^([a-z][a-z0-9\-]+(\.|\-*\.))+[a-z]{2,6}$
Tagy:
perl 1 řádků | 2008-04-23 03:41:58 | air.kadlec@seznam.cz

Odstranění diakritiky v perlu

Nikoliv jediná cesta, ale zatím zafungovala všude. Modul se musí instalovat :-/...
  1. #!/usr/bin/perl
  2.  
  3. use Text::Unaccent;
  4.  
  5. print unac_string('UTF-8', 'Příliš žluťoučký kůň');
Tagy:
perl 6 řádků | 2008-02-07 18:37:55 | air.kadlec@seznam.cz

awstats dir process

jmeno souboru → /etc/awstats/awstats.domena.cz.conf...
  1. #!/usr/bin/perl
  2.  
  3. # (c) sh@isecure.cz 2007
  4.  
  5. use strict;
Tagy:
perl 30 řádků | 2008-02-04 21:10:50 | air.kadlec@seznam.cz

Automatic DBI column hash association

  1. my $sth = $self->dbh->prepare( qq{ SHOW TABLE STATUS WHERE name = "$table" } )
  2. or die "Can't prepare SQL statement: $DBI::errstrn";
  3.  
  4. $sth->execute()
  5. or die "Can't execute SQL statement: $DBI::errstrn";
Tagy:
perl 11 řádků | 2008-02-04 21:01:16 | air.kadlec@seznam.cz

Regex checking HH:MM time format

24h format. Allowed are values between 00:00 - 23:59, there _can_ be zero as first char like 08:25...
  1. /^([01]?d|2[0-3]):[0-5]d$/
Tagy:
perl 1 řádků | 2008-02-04 21:00:15 | air.kadlec@seznam.cz

scrapPeer.pm package skeleton

Perl package skeleton for scrapping with log dispatcher...
  1. # (c) 2007 sh(a)isecure.cz
  2.  
  3. package scrapPeer;
  4. use strict;
Tagy:
perl 73 řádků | 2008-02-04 20:06:33 | air.kadlec@seznam.cz