Regex

Enthu

hi all,

can anybody tell me how to get desired o/p when

my $output = "http://www.dir1.com/dir2/dir3" ;
OR
my $output = "dir1/dir2/dir3" ; ##### it can be dir1/dir2/dir3/dir4 or dir1/dir2
(value of $output can be one of the above)

# INSERT regex here

so that I will have
$output = http:://www.dir1.com ;

Adam Stoller

If I understand your request - it's pretty basic:# my $var = "http://somestring/somedir/somedir";
# or my $var = "dir1/dir2/dir3";
if ($var =~ m|^(http://[^/]+)|){
$var = $1;
}
elsif ($var =~ m|^([^/]+)|){
$var = "http://www.$1.com";
}
print "$var\n";Is that what you were looking for?

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com