<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	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/"
		>
<channel>
	<title>Comments on: Scrape PHP Globals 0.1</title>
	<atom:link href="http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/feed/" rel="self" type="application/rss+xml" />
	<link>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/</link>
	<description>where the signal to noise ratio always varies</description>
	<lastBuildDate>Fri, 14 Aug 2009 10:50:52 -0400</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.4</generator>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
		<item>
		<title>By: John Bokma</title>
		<link>http://randomfrequency.net/blog/2005/03/08/scrape-php-globals-01/comment-page-1/#comment-5468</link>
		<dc:creator>John Bokma</dc:creator>
		<pubDate>Wed, 23 Aug 2006 03:53:55 +0000</pubDate>
		<guid isPermaLink="false">http://randomfrequency.net/blog/2005/03/08/php-scrape-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-page-1/#comment-5467</link>
		<dc:creator>John Bokma</dc:creator>
		<pubDate>Wed, 23 Aug 2006 03:51:17 +0000</pubDate>
		<guid isPermaLink="false">http://randomfrequency.net/blog/2005/03/08/php-scrape-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 &#039;--help&#039; or $filename eq &#039;-h&#039; ) 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>
