nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

regex help

brvhrt

i have been working in java for while and i kinda forget how to program in perl i guess any way Smiley Wink

i want to get 3 variables out of this path
$store .
$ docroot
$ filepath after docroot

could you guys help me enhancing this

Thanks



$vpath = "//server/storexxx/main/web.com/branchxxx/WORKAREA/editorial/docrootxxx/stories/test.html";
($store, $docroot, $workarea , $file) = ($vpath =~ /(.*\/main\/)(.*)(\/WORKAREA\/editorial\/)(.+)/);


$vpath =~ m/^(\/[^\/]+)\/.+$/;
$mount_path = $1;

print " mount_path $mount_path \n";

print " Network is $Network \n";
print " doctoor is $docroot \n";
print " file is $file \n";

Find more posts tagged with

Comments

pammi

You want some thing like this

$bname =~ s/^.*\/default\/main\/(.*)$/$1/;

brvhrt

You want some thing like this

$bname =~ s/^.*\/default\/main\/(.*)$/$1/;

thanks for the reply but that is not what i want , i dont want to substitute and also my store changes so i need to capture that as a variable , plus ur $1 will be all the path after main and that is not what i want ,

please read my post again. Smiley Wink

Adam Stoller

With the following code:

my $vpath = "//server/storexxx/main/web.com/branchxxx/WORKAREA/editorial/docrootxxx/stories/test.html";
my ($store, $docroot, $workarea , $file) = ($vpath =~ m|(.*/main/)(.*)(/WORKAREA/.*?/)(.+)|);
print "STORE: $store\nDOCROOT: $docroot\nWORKAREA: $workarea\nFILE: $file\n";

I get the following results:

STORE: //server/storexxx/main/
DOCROOT: web.com/branchxxx
WORKAREA: /WORKAREA/editorial/
FILE: docrootxxx/stories/test.html

What are you looking for as results that differ from the above?

brvhrt

With the following code:

my $vpath = "//server/storexxx/main/web.com/branchxxx/WORKAREA/editorial/docrootxxx/stories/test.html";
my ($store, $docroot, $workarea , $file) = ($vpath =~ m|(.*/main/)(.*)(/WORKAREA/.*?/)(.+)|);
print "STORE: $store\nDOCROOT: $docroot\nWORKAREA: $workarea\nFILE: $file\n";

I get the following results:

STORE: //server/storexxx/main/
DOCROOT: web.com/branchxxx
WORKAREA: /WORKAREA/editorial/
FILE: docrootxxx/stories/test.html

What are you looking for as results that differ from the above?

Goti

i want in $store = storexxx ; only
$docroot = docrootxxx ; only
$file = /stories/test.html ; only

Adam Stoller

Goti

i want in $store = storexxx ; only
$docroot = docrootxxx ; only
$file = /stories/test.html ; only

Okay - then try:

my $vpath = "//server/storexxx/main/web.com/branchxxx/WORKAREA/editorial/docrootxxx/stories/test.html";
my ($store, $docroot, $file) = ($vpath =~ m|^//.*?/(.*?)/.*/WORKAREA/.*?/(.*?)(/.*)$|);
print "STORE: $store\nDOCROOT: $docroot\nFILE: $file\n";

If it works - okay. If you understand how it works - great!

brvhrt

Okay - then try:

my $vpath = "//server/storexxx/main/web.com/branchxxx/WORKAREA/editorial/docrootxxx/stories/test.html";
my ($store, $docroot, $file) = ($vpath =~ m|^//.*?/(.*?)/.*/WORKAREA/.*?/(.*?)(/.*)$|);
print "STORE: $store\nDOCROOT: $docroot\nFILE: $file\n";

If it works - okay. If you understand how it works - great!

Thanks Adam it works pretty well, i also understood it well. very nice Smiley Happy

. i might need to make it work for my java code now Smiley Wink