Re: FN-FORUM perl problem

date posted 24th January 2001 17:25

At 16:53 24/01/01 , you wrote:
>Can anyone interperet this subroutine as I know little about perl.


Looks like a primitive text-->html parser



># STRIP SUBROUTINE
>sub strip {
>
> my($cheese)= @_;

$cheese contains the string passed to the subroutine



> $cheese =~ s///g;

Removes all cases of


> $cheese =~ s/
//g;

Replaces all line feeds with


> $cheese =~ s/
//g;

Replaces all carriage returns with


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

Removes all pipe (|) characters


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

Replaces all double quotes with "


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

Replaces the literal %95 with


> return ($cheese);


Returns the parsed string


>thanks in advance

Thanks me for my help