paster

function recognizeEncoding($text) {
	if(preg_match('/ě|š|č|ř|ž|ý|á|í|é|ó|ú|ů/', $text)) {
		return 'utf-8';
	} elsif(preg_match('/\x9a|\x9d|\x9e|\x8a|\x8d|\x8e/', $text)) {
		return 'windows-1250';

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

  /**
   * Random string(password) generation
   *
   * @param integer $length
   * @return string
 

function hlRows(){
	var cells = $$('tbody.hl td')
 
	for (var i=0; i < cells.length; i++)
	{

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

<?php
 
function format_filesize($bytes) {
	$s = array('B', 'Kb', 'MB', 'GB', 'TB', 'PB');
	$e = floor(log($bytes)/log(1024));

<?php
$url = 'http://cz.search.etargetnet.com/generic/generic.php?ref=XXXX&xml=1&q='.urlencode('http://'.$_SERVER['HTTP_HOST'].$_SERVER['REQUEST_URI']);
$content = file_get_contents($url);
$xml = new SimpleXMLElement($content);
?>

#!/bin/bash
 
PLACE="sh@zdroj.zla.cz:/home/sh/public_html/zdroj.zla.cz/"
PUBLIC_URI="http://zdroj.zla.cz/"

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

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

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

<?php
class myBrowser extends sfWebBrowser {
 
	protected $cache_expiration = 2592000; // 30 days default cache

schema.yml:
-----------
  artist:
    id:
    name: varchar(256)

Přejeme hezký zbytek <?                                                                                                                                                       
    if(date("G") >= 5 && date("G") < 18) echo "dne";                                                                                                         
    elseif(date("G") >= 18 && date("G") <= 21) echo "večera";                                                                                                
    else echo "noci";                                                                                                                                        
?>

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