Still cant get to you chris
-Original Message-
From: Manav Mathur [mailto:[EMAIL PROTECTED]
Sent: Wednesday, January 19, 2005 9:44 PM
To: Chris Knipe
Subject: RE: regex needed
Sure thing. I have put my updated scripts in perl.org. As I love making
mistakes :( , you must refer to the lat
Further to my previous message.
after fixing the ~= I get the following.
I know $screenOutput has a value because I see the html contained in the file Im
reading on the screen its just not doing the substitution.
please advise.
Colin
-Original Message-
From: Johnstone, Colin
Sent: M
I need to remove HTML scripts from some pages.
I have to replace
<*script*>* with blanks. This includes all
javascript/vbscript
in between the tags
I'm using the * as guidelines to show it must match several variations.
Thoughts ? Ideas? Suggestions?
Thanks !
Jon
--
To unsub
From: "Jon Shoberg" <[EMAIL PROTECTED]>
> I need to remove HTML scripts from some pages.
>
> I have to replace
>
> <*script*>* with blanks. This includes all
> javascript/vbscript
> in between the tags
>
> I'm using the * as guidelines to show it must match several
> va
Hi all,
Here's my suggestion - tested it and works.
#!/usr/bin/perl
my $str = "Account \@id='1' or \@id='2' or \@id='3' or \@id='4'";
my $v = $str; #use if you need to keep $str intact
if ($v =~ s/\@id='(\d)'/$i{$1}=$1;/eg) {
print "1 = $i{'1'}\n" if defined $i{'1'};
print "2
> Thank you for your reply. I made the changes you suggested, however some
> of them did not work, these where the following results;
>
> # while (defined($line=)){ *produced only line 1*
> # while(){ *produced NO lines*
> # print SORTCODE @fields[0..33,2
