xero, xero harrison, harrison, nu, x-e.ro, whois.x-e.ro, blog.x-e.ro, code.x-e.ro, lab.x-e.ro, img.x-e.ro, etc.x-e.ro, feeds.x-e.ro, fontvir.us, fontvirus, font, fonts, git, portfolio, program, programming, code, coding, codes, codez, dev, develop, developer, qoob, open qoob, openqoob, framework, code, api, lab, laboratory, experiment, experiments, demo, netart, net art, unixporn, unix porn, unixp0rn, unixpr0n, images, photos, etc, random https://blog.x-e.ro Sat, 30 May 2026 14:14:01 -0400 https://blog.x-e.ro open[qoob] https://blog.x-e.ro/random_page_perl_script https://blog.x-e.ro/random_page_perl_script

<p>place this code in a file called index.cgi, chmod it to 775, and place it in a directory of html files. this script will pick one of the files in the specified directory at random, and print it to the screen. refresh the page for a new random one.</p> <pre class="brush: perl">#!/usr/bin/perl print "Content-type: text/html\n\n"; #print "<pre>"; $basep = "/wwwroot/path2/randomdir"; srand(time ^ $$); #print "got random time...\n"; @files = `ls $basep/*.html`; #print "got file list...\n"; #foreach (@files) { print "-----$_\n";} $file = rand(@files); #print "got random file...$phrase\n"; $nupath = "$files[$file]"; #print "got new path...$nupath\n"; open(LOG, $nupath) or die "$!\n"; while () { print $_; } close (LOG); #print "</pre>"; exit;</pre>

xero harrison 2003-11-18T16:27:00-05:00