<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Patterns &#187; perl</title>
	<atom:link href="http://kb.huptas.net/category/development/perl/feed/" rel="self" type="application/rss+xml" />
	<link>http://kb.huptas.net</link>
	<description>Technical patchwork to ease my brain</description>
	<lastBuildDate>Sat, 08 Aug 2009 23:10:21 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0</generator>
		<item>
		<title>Perl: Base64 encoding a string</title>
		<link>http://kb.huptas.net/2007/03/04/perl-base64-encoding-a-string/</link>
		<comments>http://kb.huptas.net/2007/03/04/perl-base64-encoding-a-string/#comments</comments>
		<pubDate>Sun, 04 Mar 2007 14:36:23 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=123</guid>
		<description><![CDATA[# perl -e 'use MIME::Base64; print encode_base64('mystring');']]></description>
		<wfw:commentRss>http://kb.huptas.net/2007/03/04/perl-base64-encoding-a-string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>OneLiners: Search and replace massive</title>
		<link>http://kb.huptas.net/2006/04/09/oneliners-search-and-replace-massive/</link>
		<comments>http://kb.huptas.net/2006/04/09/oneliners-search-and-replace-massive/#comments</comments>
		<pubDate>Sun, 09 Apr 2006 14:19:33 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=101</guid>
		<description><![CDATA[find . -type f &#124; xargs perl -pi -w -e &#8216;s/iso-8859-1/UTF-8/g;&#8217;]]></description>
		<wfw:commentRss>http://kb.huptas.net/2006/04/09/oneliners-search-and-replace-massive/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>add newline every n-th characters</title>
		<link>http://kb.huptas.net/2006/01/24/add-newline-every-n-th-characters/</link>
		<comments>http://kb.huptas.net/2006/01/24/add-newline-every-n-th-characters/#comments</comments>
		<pubDate>Tue, 24 Jan 2006 13:27:50 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=86</guid>
		<description><![CDATA[# add newline every 60 characters $var =~ s/(.{60})(?!n)/$1n/g if ($var);]]></description>
		<wfw:commentRss>http://kb.huptas.net/2006/01/24/add-newline-every-n-th-characters/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>create files</title>
		<link>http://kb.huptas.net/2005/08/16/create-files/</link>
		<comments>http://kb.huptas.net/2005/08/16/create-files/#comments</comments>
		<pubDate>Tue, 16 Aug 2005 09:28:58 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=72</guid>
		<description><![CDATA[perl -e 'for ($i=1; $i < = 120; $i++) { $ret = `touch -t 20040816 1000 file$i` }']]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/08/16/create-files/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>DBI&#124;DBD::Oracle and HP-UX</title>
		<link>http://kb.huptas.net/2005/05/30/dbidbdoracle-and-hp-ux/</link>
		<comments>http://kb.huptas.net/2005/05/30/dbidbdoracle-and-hp-ux/#comments</comments>
		<pubDate>Mon, 30 May 2005 14:37:19 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=33</guid>
		<description><![CDATA[Bottom line: You need to recompile Perl with &#8216;-lcl&#8217; and &#8216;-lpthread&#8217; switches. http://dbi.perl.org/ itrc forum itrc forum #2 bottom line After unpacking perl source you can build it with $ sh Configure -des -Dprefix=/opt/local/perl- -Uinstallusrbinperl -A prepend:libswanted='cl pthread ' $ make $ make test # make install]]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/05/30/dbidbdoracle-and-hp-ux/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Perl print matched pattern</title>
		<link>http://kb.huptas.net/2005/05/25/perl-print-matched-pattern/</link>
		<comments>http://kb.huptas.net/2005/05/25/perl-print-matched-pattern/#comments</comments>
		<pubDate>Wed, 25 May 2005 08:40:58 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=27</guid>
		<description><![CDATA[&#8220;Is Perl Just Another Hack&#8221; =~ /\w+ (\w+) (\w+) (\w+)(er) (\w+)/; print $1; # Prints Perl &#8211; the thing captured by the first brackets. print $2; # Prints Just &#8211; the thing captured by the second brackets. print $3; # Prints Anoth &#8211; the thing captured by the third brackets. print $4; # Prints er [...]]]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/05/25/perl-print-matched-pattern/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Perl Basic Script Template</title>
		<link>http://kb.huptas.net/2005/05/18/script-template/</link>
		<comments>http://kb.huptas.net/2005/05/18/script-template/#comments</comments>
		<pubDate>Wed, 18 May 2005 09:44:24 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=21</guid>
		<description><![CDATA[#!/usr/bin/perl -w =head1 NAME $RCSfile$ =head1 VERSION $Id$ =head1 DESCRIPTION Text einfuegen. =head1 AUTHOR $Author$ =cut use strict; use Cwd; use File::Basename; ########################################################## # Skriptname: $RCSfile$ # Autor: $Author$ # Beschreibung: # Parameter: # Dateien: # History: $Log$ ########################################################## my $scriptName = basename($0); my $baseDir = getcwd; my $cfgFile = $baseDir.'/'.fileparse($scriptName, qr/\.[^.]*/).'.cfg'; my %cfgData; ########################################################## [...]]]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/05/18/script-template/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>File::Basename</title>
		<link>http://kb.huptas.net/2005/05/18/filebasenam/</link>
		<comments>http://kb.huptas.net/2005/05/18/filebasenam/#comments</comments>
		<pubDate>Wed, 18 May 2005 08:32:05 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">http://kb.huptas.net/?p=20</guid>
		<description><![CDATA[use File::Basename; print basename($0);]]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/05/18/filebasenam/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>split single file into multiple files</title>
		<link>http://kb.huptas.net/2005/04/12/split-single-file-into-multiple-files/</link>
		<comments>http://kb.huptas.net/2005/04/12/split-single-file-into-multiple-files/#comments</comments>
		<pubDate>Tue, 12 Apr 2005 15:41:45 +0000</pubDate>
		<dc:creator>Dustin</dc:creator>
				<category><![CDATA[perl]]></category>

		<guid isPermaLink="false">https://localhost:9001/wordpress/?p=7</guid>
		<description><![CDATA[#!/usr/bin/perl use strict; use FileHandle; my $filecounter = 1; my $fh; while (my $line = ) { if ($line =~ m/^\s*#/si) { if ($fh) { close($fh); } $fh = nextfile(); } unless($fh) {$fh=nextfile()}; print $fh $line; } sub nextfile { my $filename="file".$filecounter++.".ldif"; my $fh=FileHandle::new(); open $fh,">".$filename; return $fh; }]]></description>
		<wfw:commentRss>http://kb.huptas.net/2005/04/12/split-single-file-into-multiple-files/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
