<?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>Birgit-Nietsch.de/Weblog &#187; Perl</title>
	<atom:link href="http://www.birgit-nietsch.de/wordpress/tag/perl/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.birgit-nietsch.de/wordpress</link>
	<description></description>
	<lastBuildDate>Fri, 13 Jan 2012 10:06:31 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3.1</generator>
		<item>
		<title>find_dupes.pl</title>
		<link>http://www.birgit-nietsch.de/wordpress/2007/02/12/find_dupespl/</link>
		<comments>http://www.birgit-nietsch.de/wordpress/2007/02/12/find_dupespl/#comments</comments>
		<pubDate>Mon, 12 Feb 2007 13:52:43 +0000</pubDate>
		<dc:creator>Birgit</dc:creator>
				<category><![CDATA[Blog]]></category>
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://www.birgit-nietsch.de/wordpress/?p=37</guid>
		<description><![CDATA[` ############################################################ # find_dupes.pl: Welche evtl. identischen Dateien habe ich? ############################################################ use strict; use File::Find; my %CheckedSums; my @xxlFiles; my $too_large = 20000000; my $Newline = "&#92;n"; ############################################################ # Ausgabe: Ergebnisliste ############################################################ sub print_dupes { my $trennlinie = "-" x 20 . "$Newline"; print "Dateien wurden untersucht.$Newline"; print "Möglicherweise identisch:$Newline", $trennlinie; my $keine = "(Keine [...]]]></description>
		<wfw:commentRss>http://www.birgit-nietsch.de/wordpress/2007/02/12/find_dupespl/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>extcnt.pl</title>
		<link>http://www.birgit-nietsch.de/wordpress/2007/02/09/extcntpl/</link>
		<comments>http://www.birgit-nietsch.de/wordpress/2007/02/09/extcntpl/#comments</comments>
		<pubDate>Fri, 09 Feb 2007 12:20:04 +0000</pubDate>
		<dc:creator>Birgit</dc:creator>
				<category><![CDATA[Blog]]></category>
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://www.birgit-nietsch.de/wordpress/?p=36</guid>
		<description><![CDATA[Eine kleine Spielerei, um festzustellen, mit welchen Dateitypen man sich grad seine Festplatte vollgemüllt hat: ` ############################################################ # extcnt.pl: Welche Dateitypen verbrauchen wieviel Plattenplatz? ############################################################ use strict; use File::Find; my $Bytes; my %ExtSizes; ############################################################ # Ausgabe: Abschnittsüberschrift ############################################################ sub print_head { print &#34;-&#34; x 46, &#34;&#92;n&#34;; print $_, &#34;&#92;n&#34;; printf(&#34;%-22s %22s&#92;n&#34;, &#34;Dateiendung&#34;, &#34;Bytes&#34;); print &#34;-&#34; [...]]]></description>
		<wfw:commentRss>http://www.birgit-nietsch.de/wordpress/2007/02/09/extcntpl/feed/</wfw:commentRss>
		<slash:comments>7</slash:comments>
		</item>
	</channel>
</rss>

