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

summergs

Hi All,

I have a perl script that is returning my workarea value: /default/main/branchname/subbranchname/WORKAREA/work

I am trying to strip everything except the subbranchname. Can some HELP?!? Thanks!

Find more posts tagged with

Comments

akshathp

Is this what you were looking for?

my($flpath) = "/default/main/branchname/subbranchname/WORKAREA/work";
$flpath =~ m/^\/default\/main\/.*\/(.*?)\/WORKAREA.*$/;

Hope this helps!

Akshat Pramod Sharma

Migrateduser

I think

[\\/]([\\/]+)[\\/](WORKAREA|EDITION|STAGING)

summergs

Thanks for the response! I was not able to get anything to work so I thought I would attach my ipl file. Any help would be GREATLY appreciated!

akshathp

Uh-oh...that's because your environment is on Windows platform. So the path is not matching...
Use this :

my($flpath) = "y:\\default\\main\\branchname\\subbranchname\\WORKAREA\\work";
$flpath =~ m/^y:\\default\\main\\.*\\(.*?)\\WORKAREA.*$/;

Hope this helps!

Akshat Pramod Sharma

summergs

Didnt work. Is there something wrong with my perl?

akshathp

Could you please post the error you are getting if any?
And what is the original value of your brchvalue varibale?
Also, is this the complete code of your ipl file? If yes then where is your http header statement. Print statement will fail without it.
Akshat Pramod Sharma

summergs

FYI...OS Windows2000,TeamSite 552)
I am running this script via inline command from a DCT to a select box (just to see the variables)
Displaying the WORKAREA environment variable yields: /default/main/branchname/subbranchname/WORKAREA/work
Displaying the user defined variable with the regex yields the same: /default/main/branchname/subbranchname/WORKAREA/work

Driving me nutz ;-)
p.s. Durgesh said hello

akshathp

Can you change the if statement in your code?
It says if ($key eq IW_WORKAREA)
whereas it should say
if ($key eq "IW_WORKAREA")

Note the quotes.

Akshat Pramod Sharma

summergs

No luck. I tried this to extract the subbranch info but nothing is being returned.

$ENV{TEMP} = 'C:\TEMP';
$ENV{SYSTEMROOT} = 'C:\WINNTADV';

$output = "<?xml version='1.0' encoding='UTF-8'?>\n";
$output .= "<substitution>\n";
foreach $key (sort keys %ENV){ $value=$ENV{$key};
if ($key eq "IW_WORKAREA") { $value =~ /^\\default\\main\\WORKAREA\\(\S+)(?{ $test = $^N })\\WORKAREA.*$/;
$output .= " <option label='$test' value='$value'/>\n"; }}
$output .= "</substitution>\n";print $output;exit();

akshathp

I see in your this code you are matchin wrong path. Before making any changes, can you print all values of your ENV and verify what is it setting?
Then we can figure out the way to get this resovled.

Also in your this modified regex, you are using ^ with \\ and default. This basically means, value starting with \default. Is this really the case for you? How come you have a backslash and no drive letter. And if the ENV is setting in terms of forward slash then also this needs to be changed.

Hence, you should first display all variables and see what are the real values before running the regex.

Akshat Pramod Sharma

summergs

Yes. I have tried many versions (as you have noticed) I did, in fact, look at the enviroment variable and it is:
/default/main/branchname/subbranchname/WORKAREA/work

This is what i predicated my regex on... Does that help?

akshathp

2 points:
1. If that is the case then the original regex I suggested should work.
2. Can you verify by the view source or contant display message if it is ever entering into the IF condition? Maybe it is not entering at all?

Akshat Pramod Sharma

Adam Stoller

Try:

...
my $areavpath = $ENV{IW_WORKAREA} || "";
my $brchvalue = ($areavpath =~ m!^/([^/]+)/WORKAREA/.*$!) ? $1 : "";
...

If you're worried about which way the slashes are pointing - change the first line:

(my $areavpath = $ENV{IW_WORKAREA} || "") =~ tr|\\|/|;

--fish
Strolling Prime Minister of no fixed address