Stanislaw Pusep creaktive

## x.pl
($x,$y)=(1,1<<32);for(0..30){$_=unpack'B32',pack'N',($x<<=1)|($y>>=1);tr%01% J%;s%\s*$%\n%;print}

## tor-reset-ip.sh
echo -ne "AUTHENTICATE\r\nsignal NEWNYM\r\nquit\r\n"|nc localhost 9051

## red5.sh
#! /bin/sh
#
# red5 red5 initscript
#
# Author: Simon Eisenmann .
#
set -e

PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
DESC="Red5 flash streaming server"

## random-org.sh
#!/bin/bash

AGENT="Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
RANDOMORG="http://www.random.org/integers/?num=10000&min=0&max=65535&col=2&base=16&format=plain&rnd=new"
SESSION=`date +%Y%m%d%H%M%S`

for i in {1..100}
do
        echo "#${i}"
        echo -ne "AUTHENTICATE\r\nsignal NEWNYM\r\nquit\r\n" | nc localhost 9051 > /dev/null

## backup.sh
#!/bin/sh

BACKUP_PART=/backup

/sbin/mount ${BACKUP_PART}

/usr/local/bin/rdiff-backup --print-statistics --terminal-verbosity 5   \
--exclude ${BACKUP_PART}                                                \
--exclude /db/                                                          \
--exclude /tmp/                                                         \

## perl-xpath-tidy.sh
perl -MHTML::TreeBuilder::XPath -0777 -e 'print HTML::TreeBuilder::XPath->new_from_content(<>)->as_XML_indented'

## pdf-nopasswd.sh
gs -dSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sFONTPATH=xfonts;. -sPDFPassword= -dPDFSETTINGS=/prepress -dPassThroughJPEGImages=true -sOutputFile=new.pdf old.pdf

## extractor.pl
#!/usr/bin/perl
use strict;

# Para ter certeza absoluta de que nenhum warning de 'Wide character' escapou
use warnings 'all';

# Somente indica que este arquivo .pl está na codificação UTF-8!!!
use utf8;

# Ignora codificação de entrada

## gist:792158
mencoder -oac mp3lame -ovc lavc -lavcopts vcodec=mpeg4:mbd=2:trell -vf flip,mirror,scale=480:272 IMG_0021.MOV -o IMG_0021.avi

## PerlEUnicode.pod

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                creaktive
                / PerlEUnicode.pod
            
            
              Created
              January 30, 2011 23:44
            
              
                Perl e Unicode (entre outras codificações de texto)
              
          
    PERL E UNICODE (ENTRE OUTRAS CODIFICAÇÕES DE TEXTO)


INTRODUÇÃO
	#! /bin/sh
	#
	# red5 red5 initscript
	#
	# Author: Simon Eisenmann .
	#
	set -e

	PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
	DESC="Red5 flash streaming server"
	#!/bin/bash

	AGENT="Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
	RANDOMORG="http://www.random.org/integers/?num=10000&min=0&max=65535&col=2&base=16&format=plain&rnd=new"
	SESSION=`date +%Y%m%d%H%M%S`

	for i in {1..100}
	do
	echo "#${i}"
	echo -ne "AUTHENTICATE\r\nsignal NEWNYM\r\nquit\r\n" \| nc localhost 9051 > /dev/null
	#!/bin/sh

	BACKUP_PART=/backup

	/sbin/mount ${BACKUP_PART}

	/usr/local/bin/rdiff-backup --print-statistics --terminal-verbosity 5 \
	--exclude ${BACKUP_PART} \
	--exclude /db/ \
	--exclude /tmp/ \
	#!/usr/bin/perl
	use strict;

	# Para ter certeza absoluta de que nenhum warning de 'Wide character' escapou
	use warnings 'all';

	# Somente indica que este arquivo .pl está na codificação UTF-8!!!
	use utf8;

	# Ignora codificação de entrada