Just to show that I can use curl as well as wget: of course, now you can have fun writing it in perl for a change :-)

#!/bin/bash

And this time NO TYPOS (I hope).

#!/usr/bin/perl

# sample url http://www.hardloveart.com/34/inf8.0015.jpg
for ($i = 1; $i <=8; $i++) {
for ($j = 1; $j <= 15; $j++) {
if ($j < 10) {
$cmd = "wget www.hardloveart.com/34/inf$i/000$j.jpg -w4";
} else {
$cmd = "wget www.hardloveart.com/34/inf$i/00$j.jpg -w4";
}
`$cmd`;
}
}

About 7 megs of pix, 120 images.

Corrected Script - transposed an el and a one" (thanks to Nucleardog for pointing out I made a fuckup). Corrected script below :-)

Sorry for the hiatus (holidays, stupid dog that eats EVERYTHING, work, etc., but I'm back, and here we go with another simple script:

#!/usr/bin/perl

$site="www.met-art.com";
$dir= "g1";
$file="met-art_fl_00";
$ext=".jpg -w 4";

• Glaciers swim - like meat.
• In and Out - More meat than you can shake butter at. A stick of butter.
• of meat that looks like genitalia. - or vice versa.

More useful stuff!:

Well, I guess it had to happen - Anime porn.

And thanks and welcome to the 25 people who friended Porn Whitelist today :-) (guess I'll have to come up with something special for the 100th sooner than I would have thought ... darn)

So, here's a script to download more pix.

Posted under "Upgrades", so you can (ahem) upgrade your collection.

Yesterday I wrote that if we got this journal up to 50 people friending it, I'd post a script that get a decent chunk of pr0n.

Well, 47 friends/fans is close enough among friends so:

#!/usr/bin/perl

for ($i=105;$i<=859;$i++) {
`wget -r www.pornodonkey.com/$i/1176.html`
}

As promised, I've found something fairly large (several hundred meg - thousands of pix, both thumbnails and full-sized) for when we've got 50 people who have friended this blog. In the meantime, here's some quickie curl commands to get 5 meg of porn (or you can convert it to wget as an exercise for the reader).

curl http://www.nikkygalore.com/w200412/d10-2/pics/pp[01-20].jpg -o "nikkygalore.com.#1.jpg"

I'm not going to comment on what this is - it's not up to me to judge. That's why it's filed under "X".

Here's the perl script:

#!/usr/bin/perl

for ($i=1; $i <=48; $i++) {
for ($j=1; $j <=16; $j++) {
$url = "www.fetishhub.net/mip/gal";
if($i<10) {$url = $url . '0'; }
$url = $url . $i . '/big_';
if ($j<10) {$url = $url . '0'; }
$url = $url . $j . '.jpg';
`wget -r $url`;
}
}

Here's something different - a perl script ...

#!/usr/bin/perl

for ($i=1; $i<27;$i++) {
for ($j=1; $j<17; $j++) {
`wget -r www.sweetamateurbabes.com/teen/$i/$j.jpg`
}
}

For those of you new to perl, those are backquotes around the wget command - they tell the shell to interpet the command string, after doing variable substitution :-)

Remember American Pie? How the guys were going nuts over Stiffler's mother? I had never heard of the phrase "MILF" before - "Mother I'd Like (to) Fuck".

So, here's a (very) small leech: 1.3 meg - just type it in a terminal

wget -r http://www.milfmagazine.com/wives/153evelyn/

To make up for that small one, here's 87 meg of girls with a little extra ...

Lights, camera, and ... action. Here's a quickie to finish off the weekend, for those who are up late ...

wget -r http://www.sweetauditions.com/images -w 1