paster

waz.13@hotmail.com

#!/usr/bin/perl -w
 
# ------------------------------------------------------------
 
use strict;

#!/usr/bin/perl
 
use strict;
use warnings;

# using \Q in regex
 
$string = "Placido P. Octopus";
$regex  = "P.";

#!/usr/bin/perl
 
package BlogDump;
 
use strict;

#!/usr/bin/perl
 
package Article;
 
use strict;

#!/usr/bin/perl
 
package BlogPeer;
 
use strict;

^([a-z][a-z0-9\-]+(\.|\-*\.))+[a-z]{2,6}$

#!/usr/bin/perl
 
use Text::Unaccent;
 
print unac_string('UTF-8', 'Příliš žluťoučký kůň');

#!/usr/bin/perl
 
# (c) sh@isecure.cz 2007
 
use strict;

  my $sth = $self->dbh->prepare( qq{ SHOW TABLE STATUS WHERE name = "$table" } )
    or die "Can't prepare SQL statement: $DBI::errstrn";
 
  $sth->execute()
    or die "Can't execute SQL statement: $DBI::errstrn";

/^([01]?d|2[0-3]):[0-5]d$/

#   (c) 2007 sh(a)isecure.cz
 
package scrapPeer;
use strict;