Retired web pages - Perl Programming

Training, Open Source computer languages

Perl • PHP • Python • MySQL • Apache / Tomcat • Tcl • Ruby • Java • C and C++ • Linux • CSS

For 2023 (and 2024 ...) - we are now fully retired from IT training.
We have made many, many friends over 25 years of teaching about Python, Tcl, Perl, PHP, Lua, Java, C and C++ - and MySQL, Linux and Solaris/SunOS too. Our training notes are now very much out of date, but due to upward compatability most of our examples remain operational and even relevant ad you are welcome to make us if them "as seen" and at your own risk.

Lisa and I (Graham) now live in what was our training centre in Melksham - happy to meet with former delegates here - but do check ahead before coming round. We are far from inactive - rather, enjoying the times that we are retired but still healthy enough in mind and body to be active!

I am also active in many other area and still look after a lot of web sites - you can find an index ((here))

Retired web pages

Posted by admin (Graham Ellis), 29 August 2004

How do you replace a URL on your website and keep your search engine placement intact, and maintain continuity for anyone who's bookmarked the page and / or arrived via a search?

When we replace a page, we don't simply scrap the old one - we also provide an onward reference in the old location for a year or so. Here's the script that generates the onward reference:

Code:

sub makereplaced {
@gone = @_;
print "making replaced pages\n";
open (FHI,"alternative");

while (($_=pop(@gone)) or ($_=<FHI>)) {
($was,$becomes) = split;
$becomes ||= "resources/replaced.html";
open (OUT,">$t2/$was");

# refresh = needs to be added to following ...

$html = <<"SIMPLE";
<head>
<meta http-equiv="Refresh" content="7; URL=/$becomes">
<title>Replaced Page</title></head>
<body bgcolor=white>
<H2>Replaced Page</H2>
This page has been retired. Your browser should call up the replacement
in a few seconds, but if it doesn't please select one of the links below
yourself. Thank you.<BR><BR>
Please follow <a href="/$becomes">this link</a> for the alternative page.<P>
Please follow <a href="/index.html">this link</a> for our home page.<P>
<HR>
© 2004, Well House Consultants
</body>
SIMPLE

print OUT $html;

}

}

Note:

1) that we can specify replacements in a file and / or as a list of parameters to this script.

2) the replaced page automatically refreshes forward to the new page via a meta tag, but there's a link too from crawlers and other browsers to follow

3) This page inlcudes NO CLUE AT ALL as to what was on the replaced page. This is intentional as we don't want it re-indexed and re-bookmarked - we want that for the NEW page!

This page is a thread posted to the opentalk forum at www.opentalk.org.uk and archived here for reference. To jump to the archive index please follow this link.

You can Add a comment or ranking to this page

Public Training Courses

Running regularly at our UK training Centre.
[Schedule] - [About] - [Book]

Other Forum Posts

Reading multiple lines after a pattern match

Time out setting

how to make permanent button

Field comparison

hostname substitution to form url in xml

Earth to Graham

Perl.exe Entry Point Not Found

Help on this perl requirement

Error while using use srict

Local and GMT Time Difference

Command to find LOC

find and replace

group the similar item

Perl and mySQL select probmes

working with csv columns in Perl

parsing using 2d array

code for accessing columns

Counting the occurance of an element ian array

how to read log and display in csv file using perl

Adding comma(,) after every number+ perl

Regarding how to use time interval in ms.

Using perl how to open the browser page

Module or Library File

question about array

working data sorting

dd command along with ftp in perl

redirest FTP output to a text file using perl

Renaming and Editing Multiple files

read file character by character

Using a character string count

how to extract the abbreviation from a given text

Yet another question about merging files

perl Script for connecting remote computer

counts ans summary the duplicates

merge two CSV file's data in one CSV File

copying the contents within the links

Server Side Includes

finding position other than 1st using index

Replacing parts of lines

problem in do until loop

how to join two sets of data?

Matches and mismatches in perl

Perl and SSH2 problem

Please Help on Perl Scripting.

how to get clusters

How to download files in Perl

How to get the mean?

How to take the data from array

Dealing with a large number of dictionaries.

Creating a random series of numbers with perl.

PERL Script to extract the data from word pad.

reading multiple lines

first 2 words only!!!!!!!!!!!!

removing and counting duplicates in file

to make work faster??

populating hash from a file??

discard the first line

input from another program

help on data retrival

fragment of data extraction

to find the matches

csv file to table file

to move in a line

Perl and HMTL Code Fix

error in execution.

Help convert from c shell to perl

filehandlers in perl

Error with CGI on Tomcat

search for a word and store next 2 decimal numbers

Help on perl module

A question about user input

LWP::UserAgent Get a page after authenicating SSL

wats wrong in this expression

How to read a Word file and parse data

reguler exprssion

USE USERNAME FROM LOGIN FORM TO THE 3rd PAGE WEB ?

how to get jus the dna sequnce

creating relations between tables

how to parsse this

How Convert Cross Link ID using Perl

send a variable from perl to html

Calling a perl script from another perl script

adding comas and newline into write out data

How to check this? :(

ssh using exec()

whats the error?

re-arranging file info and written into another fi

executing command

Erasing an array..

Mechanism of foreach iteration..

Comin out of a directory..

Back references

modifying files..

any option other than substr

using reg exp with index()

display content in file to listbox

graphing with perl

find modified file since a specific date

Setting up multiple directories

HTML Tokeparser problem

How to install a module in local linux machine

how to link html file from perl program

Replace block of HTML

how to read and display from csv file using perl

Parent process unable to read messages from child

trying to create test file of existing cgi page --

CGIWrap encountered an error  

A case of a missing file that is somehow refrenced

Variable call subroutine?

Modifying a perl file upload script to handle 10 f

Extracting difference in hours...

unable to calculate file size greater than 1 GB us

merging files with similar records

Module to grab html pages

Perl - Bit Manipulation

How to write a module?

Extract first 20 words

parsing of 8bit binary data bitwise  

Conversion of Hex bytes to binary and vice versa

Help in regular expression

Brain Hurts .. Forcing PERL to write to a logfil

Parsing of Hex bytes in Perl

reading latest file

Column alignment

detecting bots shoppers

Summation of file size according to user

Perl - remove unwanted lines

parsing outlook public folders

passing a variable from PERL into an HTML form

Simple Exact string match

Perl to export tab delimted file to Quattro Pro

single to multiple users

Importing a regular expression from a file

Upgrading ActiveState Perl

Perl help needed

Net::FTP and forks, Win32

Moved: Just try to solveit, if you can solve

FTP GET for a large file from mainframe.

Finding Modified dir's top level (Windows

DBI module missing

Calling external programs

Connecting to MySQL over an unreliable network

Emailing from Perl on Windows platforms

Slicing a long number

Perl and .NET Cryptography

Linebreaking in html

help with getOpts

help with creating 2D array in perl requested

stuck making a small change to a script

cannot move file using file::copy module

perl code for btree

detecting browser cookies

More details link to reveal a data column

Perl CGI scripts with SSI in Tomcat

How to clean up week old log files using perl

how to close a comport in perl?

SSI inside an SSI

Running Perl CGI scripts under Apache Tomcat

Very Very Urgent

Happy Christmas

Regular Expression Help

reading a text file and extracting info

Removing blank columns in csv file

Missing modules problem on host

vnukelog from within Perl

Perl and Guestbook

Perl and excel file HELP PLZ

setting Sticky bit on perl script

Please find me a solution with this problem

amazing Perl "one liner"

Detecting if file is Macintosh, Windows or Unix

RegEx in scalar

IO::Socket::INET same port

Tk button auto repeat

How to create a file with specific date and time

Send variable to another file

Using Grep to search through an array ?

replace text in a large text file

Is this possible?

sequence file into a numeric file

Cleaning out files for a specified user

How to use Perl references?

Use Perl to create symlinks

Issue with Grep

work on files in a directory

Eights and nines

please help us to beta-test new Perl Editor

Problem with localtime

problem installing perl modules

CHMOD a perl script created file

Finding the latest version number

Writting a script to break a file

Attach text file to email

Unliked characters

sorting the spread sheet

Hash of FileNames and FileHandlers

Playing Wav/Mp3s when users visit my Perl site

How to split a file but not line by line

Executing External commands on Unix

Sorting a list of hashes

convert xyz cordinates to distance

Like a real navigator ?

Is this a hash in an SQL insert statement?

Reduce the time taken for Huge Log files

Passing several lists to a sub

Moved: UK Perl Job

updating a file

Simple script to strip out MD5 checksums

how to tokenize in perl

FILE CONVERSION TO AN ARRAY OF ARRAYS

Delete specific file in directory.

Filter Large Log Files.

HTML code in Perl

Help with this code please

Perl Regex One-Liner To Substitute Multiline Text

Question regarding %_ ?

perl coding standards

segment a text using Perl (help TreeTagger)

get input onchange into link

Is there most correct way save http request as xml

shortest match between XML tags

Safety of actevex by ActiveState PerlCtrl

Read all but the first line from a file

change a perl prog

using one installation of perl from many machines

converting from c-shell

Single quoted command. OK in test, fails in CGI

How to Modify the Windows Registry

Dialling codes for Ireland - a quick Perl Script

Eliminate single blank lines

HTML link define variable for search script?

Fonctionnement Perl/Tkto

Send a sound...

how to compare word for word

Retired web pages

Perl / Database

User creation and password setting in Perl code

Processing email "bounce backs"

Extracting some fields from a data File

Need some help with CGI script to automate ssh

Gradual output from cgi script

public beta testing of EnginSite Perl Editor.

Ping from Perl?

Interpolating text from a file

merging two files

extracting from an ascii file

(bmp, ...) 2 jpg

Excel Download Perl CGI

How to generate an error message and exit

convert a MS Word doc into multiple HTML pages

Using Perl to compile Java

Capturing repeating values in reg exp!

mod_perl config problem with apache ?

References and variables in Perl - a summary

Monitoring a Perl program

Operating on every scalar in a list

patterns in patterns

empty file on upload

Help please with Perl + regular expressions

Editing multiple files

Image attributes from external server?

Finding Internet Explorer version number

Identifying a web site visitor

Perl & a Database

Authentication problems

HTML entity encoding

Elusive bug, modified yabb post.pl

Reading the Registry (Microsoft Windows)

Microsoft windows - what version is running?

"AND" and "OR" in regular expressions

perl modules for c libraries

Removing duplicate lines with a regular expression

Perl script to Auto config Browser

CDS regions: hashes vs. Set::IntSpan

Odd variable naming question

Moved: calling system() in cgi

detecting drives

Sensing when a user leaves a web site

Aaaaaaargh! I am losing my head!

Extracting for notification

Capturing STDERR with backtics

Text formatting

Question about converting time

cross referencing

RegEx problem - finding EOL

Array references

Language parsing

Calling one cgi script from within another

Looking for the Paragraph subroutine

Cannot install perl module on Linux RH 8

Server response

Looking for book examples

Installing Perl 5.8 from rpm

Use of qq{ to prevent Mysql injection

() [] {} or <> ?

Greedy v Global on regular expressions

Overwriting files

return part of a string that matches a pattern?

New line characters - beware!

Deleting a file

Do something at least once!

Finding all matches to a Regular Expression

Variable formatting - beyond printf?

Another large text file example

Say what you mean in regular expressions

Reformatting question

Running another app with a changed environment

How pass a variable from a form to a subroutine

crypt function~disallow the '/' character

Finding big files in or below a directory

Text strings - single or double quotes?

Technical Overview - Perl 6

Regular Expression Efficiency

Fastest way to replace chars

Short Perl/Tk example

how to create a two-dimensional array?

change file contents to a character array

What is "tieing"?

System calls with perl2exe

reading rc files

CPAN Module without root

New Perl release

What does "-e" mean in an if?

Sample Regular Expressions

Emailing from a Perl program

Testing if a variable is numeric

Use of this forum - ask those "odd" questions

Follow us on ...

© WELL HOUSE CONSULTANTS LTD., 2025: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho