Re: FN-FORUM perl problem

date posted 24th January 2001 17:23

> # STRIP SUBROUTINE
> sub strip {

> my($cheese)= @_;

Pass parameters into function and store as $cheese.

> $cheese =~ s///g;

Replace all "" with "".

> $cheese =~ s/
//g;

Replace all carriage returns with "".

> $cheese =~ s/
//g;

Replace all soft carriage returns (?) with "".

> $cheese =~ s/|//g;

Removes all occurences of "|" character.

> $cheese=~ s/["]/"/g;

Changes all " symbols to the HTML equivalent.

> $cheese =~ s/%95//g;

Replaces the "%95" character (bullet point?) with "".

> return ($cheese);

And returns the parsed string to whatever called the function in the first
place.

Hope that helps,

--andrew dunn
[EMAIL REMOVED]
http://www.suibhne.net