<?xml version="1.0" encoding="UTF-8"?>
<!-- generator="wordpress/2.2" -->
<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/"
	>

<channel>
	<title>webHauser Blog</title>
	<link>http://blog.webhauser.com</link>
	<description>Welcome to webHauser weblog</description>
	<pubDate>Mon, 14 Jul 2008 12:32:05 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.2</generator>
	<language>en</language>
			<item>
		<title>3D engines list for game development</title>
		<link>http://blog.webhauser.com/2008/07/14/3d-engines-list-for-game-development/</link>
		<comments>http://blog.webhauser.com/2008/07/14/3d-engines-list-for-game-development/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 12:32:05 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Computer Graphics]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/3d-engines-list-for-game-development/</guid>
		<description><![CDATA[
3D Game Studio A6
Blender 
Blitz 3D 
Bullet SDK
Ca-3DE
CatMother
Campaign Suite
DarkBasic, DarkBasic Pro
Flat Four F4
Half Life 2 SDK
Hypermatter SDK
IrrLicht
JtGame
Kaboom
Obsidian
Ogre
Orion 3D
panardvision
Prophecy 3D
Realimation
Reaper 3D
Revolution 3D
Superscape VRT, Visualiser, Viscape, VisLite
Tokamak Physics
Newton Game Dynamics
Wild Magic

]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/3d-engines-list-for-game-development/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Convert stdin text to HTML output</title>
		<link>http://blog.webhauser.com/2008/07/14/convert-stdin-text-to-html-output/</link>
		<comments>http://blog.webhauser.com/2008/07/14/convert-stdin-text-to-html-output/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:12:45 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/convert-stdin-text-to-html-output/</guid>
		<description><![CDATA[#!/bin/perl
#az stdio input textfile-t html-ben menti ki
print "\n&#8221;;
while () {
	chop ($_);
	print $_ . &#8220;\n&#8221;;
}
print &#8220;\n&#8221;; 
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/convert-stdin-text-to-html-output/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Web server cgi script sending out HTTP header</title>
		<link>http://blog.webhauser.com/2008/07/14/web-server-cgi-script-sending-out-http-header/</link>
		<comments>http://blog.webhauser.com/2008/07/14/web-server-cgi-script-sending-out-http-header/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:10:43 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/web-server-cgi-script-sending-out-http-header/</guid>
		<description><![CDATA[#! /usr/bin/perl
BEGIN {
print "Status: 200 OK\nContent-Type: text/html\n\n";
}
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/web-server-cgi-script-sending-out-http-header/feed/</wfw:commentRss>
		</item>
		<item>
		<title>How to extract email addresses from HTML sources?</title>
		<link>http://blog.webhauser.com/2008/07/14/how-to-extract-email-addresses-from-html-sources/</link>
		<comments>http://blog.webhauser.com/2008/07/14/how-to-extract-email-addresses-from-html-sources/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:08:55 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/how-to-extract-email-addresses-from-html-sources/</guid>
		<description><![CDATA[#!/usr/bin/perl
$cimek=1;
while () {
    if (/[\w.-]+\@(?:[\w-]+\.)+\w+/) {
		print &#8220;$cimek: $&#038;\n&#8221;;
		$cimek=$cimek+1;
	}
}
print &#8220;Total $cimek.\n&#8221;;
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/how-to-extract-email-addresses-from-html-sources/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Printing ASCII table</title>
		<link>http://blog.webhauser.com/2008/07/14/printing-ascii-table/</link>
		<comments>http://blog.webhauser.com/2008/07/14/printing-ascii-table/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:05:55 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/printing-ascii-table/</guid>
		<description><![CDATA[#!/usr/bin/perl
for $i (32..127) {
	printf qq/kod=%3d. hex=%02X ( /, $i, $i;
	print chr $i, " )\n";
}
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/printing-ascii-table/feed/</wfw:commentRss>
		</item>
		<item>
		<title>How to use different long number formats?</title>
		<link>http://blog.webhauser.com/2008/07/14/how-to-use-different-long-number-formats/</link>
		<comments>http://blog.webhauser.com/2008/07/14/how-to-use-different-long-number-formats/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:04:51 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/how-to-use-different-long-number-formats/</guid>
		<description><![CDATA[foreach $i (0xfffe,1_000_000, 0xfffeeaa1) {
printf "%12u\n", $i;
} 
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/how-to-use-different-long-number-formats/feed/</wfw:commentRss>
		</item>
		<item>
		<title>One in a Billion pseudo random probability test</title>
		<link>http://blog.webhauser.com/2008/07/14/one-in-a-billion-pseudo-random-probability-test/</link>
		<comments>http://blog.webhauser.com/2008/07/14/one-in-a-billion-pseudo-random-probability-test/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:03:38 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/one-in-a-billion-pseudo-random-probability-test/</guid>
		<description><![CDATA[#!/usr/bin/perl
srand;
$c=0;
for ($i=0; $i&#60;1e6; $i++) {$c++ if rand(1e9) < 1} print "One in a Billion occured $c times!\n";
print "\nMachines with randbits=15 it's about 30.\nChecking perl -V:randbits\n";
exec("perl -V:randbits\n");
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/one-in-a-billion-pseudo-random-probability-test/feed/</wfw:commentRss>
		</item>
		<item>
		<title>How to play music from Windows command line?</title>
		<link>http://blog.webhauser.com/2008/07/14/how-to-play-music-from-windows-command-line/</link>
		<comments>http://blog.webhauser.com/2008/07/14/how-to-play-music-from-windows-command-line/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 11:00:30 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/how-to-play-music-from-windows-command-line/</guid>
		<description><![CDATA[#!perl
use Win32::Sound;
my $wavfile = $ARGV[0];
die "Usage: sound32 wavefile\n" if $wavfile !~ /\.wav$/i;
Win32::Sound::Volume( '100%' );
Win32::Sound::Play( $wavfile );
Win32::Sound::Stop();
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/how-to-play-music-from-windows-command-line/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Ekicrypt credit card merchant transfer code test case</title>
		<link>http://blog.webhauser.com/2008/07/14/ekicrypt-credit-card-merchant-transfer-code-test-case/</link>
		<comments>http://blog.webhauser.com/2008/07/14/ekicrypt-credit-card-merchant-transfer-code-test-case/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 10:58:11 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/ekicrypt-credit-card-merchant-transfer-code-test-case/</guid>
		<description><![CDATA[#!/usr/bin/perl
use LWP::Simple;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$pTS=sprintf("%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
$pPID="IEB0001";
$pTRID="0000000000000001";
$pUID="IEB0001";
$pAMO="1000";
$pCUR="HUF";
$pLANG="HU";
$pURL = "http://www.webhauser.com/teszt.html";
$cleartext = "PID=$pPID".
	"&#038;MSGT=10".
	"&#038;TRID=$pTRID".
	"&#038;UID=$pUID".
	"&#038;AMO=$pAMO".
	"&#038;CUR=$pCUR".
	"&#038;TS=$pTS".
	"&#038;AUTH=0".
	"&#038;LANG=$pLANG".
	"&#038;URL=$pURL";
@args = ("-p","new/","-s",'"'.$cleartext.'"');
system("ekide",@args);
]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/ekicrypt-credit-card-merchant-transfer-code-test-case/feed/</wfw:commentRss>
		</item>
		<item>
		<title>Very efficient method of sorting hashes</title>
		<link>http://blog.webhauser.com/2008/07/14/very-efficient-method-of-sorting-hashes/</link>
		<comments>http://blog.webhauser.com/2008/07/14/very-efficient-method-of-sorting-hashes/#comments</comments>
		<pubDate>Mon, 14 Jul 2008 10:53:55 +0000</pubDate>
		<dc:creator>webHauser</dc:creator>
		
		<category><![CDATA[Perl]]></category>

		<guid isPermaLink="false">http://blog.webhauser.com/2008/07/14/very-efficient-method-of-sorting-hashes/</guid>
		<description><![CDATA[One of the more interesting items Randal covered was the Schwartzian Transformation. Simply put, the Schwartzian Transformation is a very efficient way to sort hashes.
Here it is, in it&#8217;s entirety:
#!/usr/bin/perl
@sorted_files =
  map { $_->[0] }
  sort { $a->[1] < => $b->[1] }
  map { [ $_, -s $_ ] }
  < [...]]]></description>
		<wfw:commentRss>http://blog.webhauser.com/2008/07/14/very-efficient-method-of-sorting-hashes/feed/</wfw:commentRss>
		</item>
	</channel>
</rss>
