regular expression

[teroy]

Hi Guys,
I have the following string

my $test="

http://www.vicnet.net.au

check out this link

http://www.vicnet.net.au

it could be

http://www.vicnet.net.au";

and a regex which follows:
$test=~s/[^\/]

http://www*\b/

http:\/\/

http://www$1/gi;

what i want to happen..is if it finds

http://www i

want it to add http:// in front of it.
But..if http:// is already in front of

http://www then

don't do anything.

My above regex doesn't quite do that exactly..anyone have any ideas

TIA

troy

 

[goBoating]

#!/usr/local/bin/perl
# a little confusion in your attempt.... a little 
# explaination of your problems might be constructive.
#
#                a word boundry
#                   |
#$test=~s/[^\/][URL unfurl="true"]www*\b/[/URL] http:\/\/[URL unfurl="true"]www$1/gi;[/URL]
#          |      |                 |
#          |      |                must point back to 
#          |   any number          something in the pattern
#          |   of w's ?            in paren's.  You have no
#          |   you don't need      paren's in the pattern,
#          |   the '*'           therefore $1 is empty here.
#          |                        
#        In a character class [],
#        the up carat '^' negates
#        the class.  So, [^\/] 
#        matches anything other than
#        a '/'.  
#        
# Maybe this is what you are looking for....

$test = '[URL unfurl="true"]http://www.some_server.com';[/URL]
$test =~ s/(http:\/\/)*([URL unfurl="true"]www.*)/http:\/\/$2/is;[/URL]
#          (         )*    |             |
#           \         /    |           insert contents of
#            match zero    |           second set of
#            or more of    |           paren's from match
#            http://       |
#                       catch '[URL unfurl="true"]www followed[/URL] by anything'
#                       in $2 to put back with http://
#
# If this finds http:// on the front of the string
# it discards it.  Thus, all strings need http:// inserted
# into the front of the string.

print "$test\n";

HTH





If you are new to Tek-Tips, please use descriptive titles, check the FAQs,
and beware the evil typo.

 

[teroy]

Thankyou Goaboating...sorry my explanation was a bit incomprehensible.

Your solution nearly worked for me example

basically the url could be anywhere in the string..and it might contain http:// or it might just contain

http://www.whateva

my $test="

http://www.vicnet.net.au

check out this link

http://Www.vicnet.net.au

it could be

http://www.vicnet.net.au";

Your reg ex:
$test =~ s/(http:\/\/)*(

http://www.*)/http:\/\/$2/igs;

When i printed out $test i got the following:

http://www.vicnet.net.au

check out this link

http://www.vicnet.net.au

it could be

http://www.vicnet.net.au

I tried this....
$test =~ s#(?<!

http://)\bwww\b#http://www#gi;

Thanks for your help

-troy