Articles from November 2006

 
 

Perl File IO

I was amazed to see how simple Perl makes it to read the lines of a file into an array.

#!/usr/bin/perl
open(I, “flavors.txt”);
@flavors = <I>;

With just two lines of code, you are ready to do some string munching. You can then run through the elements in the array with a loop similar to the following.

for($i=0; $i<@flavors.length; $i++) {
@flavors[i] =~ s/•//;
}

I would enjoy seeing some other ways to iterate through the array.

cURLing Google for Fun and Profit

Here is an example of brute force engine searching. It does nothing more than perform a large number of searches in a very short time. Beware this is not a very nice thing to do and it is a terrible waste of network, and CPU resources. This is given as an example of the power of cURL. This script is written in PHP and uses the libcurl libraries.
[code lang="php"]
$base_url = "http://www.google.com/search";
$ch = curl_init();

for($i=0; $i<20; $i++) {
$url = $base_url . "?q=$i";
curl_setopt($ch, CURLOPT_URL, $url);
curl_exec($ch);
}

curl_close($ch);
?>
[/code]

Octal Notation in Regex

I recently needed to replace the non-standard extended characters that ms-word uses for quotes in over 80 pages. The octal notation available in regular expressions proved to be very helpful. To use octal in a regular expression just escape the three number code like \200.
[code lang="php"]
#!/usr/bin/php -q
for($id = 1; $id<82; $id++) {
$text=mysql_result($result,0,"content");
$new_text = ereg_replace("â\200\234","\"",$text);
$text = $new_text;
$new_text = ereg_replace("â\200\235","\"",$text);
$text = $new_text;
$new_text = ereg_replace("â\200\223","-",$text);
$text = $new_text;
$new_text = ereg_replace("â\200\231","'",$text);
$text = $new_text;
$new_text = ereg_replace("â\200\230","'",$text);
$text = $new_text;
$new_text = ereg_replace("â\200","",$text);
$text = $new_text;
$new_text = ereg_replace("â","\"",$text);
$text = $new_text;
$new_text = ereg_replace("\r\n","\n",$text);
$escaped_text = mysql_escape_string($text);
}
?>
[/code]


Mmm, I am really impressed with NOVO coffee. Very good! Maybe it's just because I've been drinking the Folgers coffee at the office.

Just saved $290 by changing the damn radiator myself

Doh, I ran out of propane halfway through a brew session. That added an extra hour to an already long brew day.

Follow me on Twitter