<?xml version="1.0" encoding="UTF-8"?><!-- generator="wordpress/2.3.3" -->
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	>
<channel>
	<title>Comments on: Scrape PHP Globals 0.1</title>
	<link>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/</link>
	<description>where the signal to noise ratio always varies</description>
	<pubDate>Fri, 05 Sep 2008 14:10:33 +0000</pubDate>
	<generator>http://wordpress.org/?v=2.3.3</generator>
		<item>
		<title>By: John Bokma</title>
		<link>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/#comment-5468</link>
		<dc:creator>John Bokma</dc:creator>
		<pubDate>Wed, 23 Aug 2006 03:53:55 +0000</pubDate>
		<guid>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/#comment-5468</guid>
		<description>Somehow WordPress ate up the Perl code I posted :-(</description>
		<content:encoded><![CDATA[<p>Somehow WordPress ate up the Perl code I posted :-(</p>
]]></content:encoded>
	</item>
	<item>
		<title>By: John Bokma</title>
		<link>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/#comment-5467</link>
		<dc:creator>John Bokma</dc:creator>
		<pubDate>Wed, 23 Aug 2006 03:51:17 +0000</pubDate>
		<guid>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/#comment-5467</guid>
		<description>FWIW:

$numArgs = $#ARGV + 1;
die($usage) if($numArgs  1) ? $ARGV[1] : 79;

can be rewritten as:

my $filename = shift;    # get first argument
( $filename eq '--help' or $filename eq '-h' ) and die $usage;
my $cols = shift;           # get second argument
defined $cols or $cols = 79;

HTH,
John Bokma</description>
		<content:encoded><![CDATA[<p>FWIW:</p>
<p>$numArgs = $#ARGV + 1;<br />
die($usage) if($numArgs  1) ? $ARGV[1] : 79;</p>
<p>can be rewritten as:</p>
<p>my $filename = shift;    # get first argument<br />
( $filename eq &#8216;&#8211;help&#8217; or $filename eq &#8216;-h&#8217; ) and die $usage;<br />
my $cols = shift;           # get second argument<br />
defined $cols or $cols = 79;</p>
<p>HTH,<br />
John Bokma</p>
]]></content:encoded>
	</item>
</channel>
</rss>
