regular expression

mehj123

HI...

I want to retrieve the view name from an expression like this

Expand|Select|Wrap|Line Numbers

$element = "/Net/xyz/abc/viewstore/hello.vws";

i.e i want to retrieve hello.... the problem is that these slashes can sometimes be like

Expand|Select|Wrap|Line Numbers

$element = "\Net\xyz\abc\viewstore\hello.vws";

depending upon if it is windows or unix...can anyone plz help me?

KevinADC

what have you tried so far?

mehj123

Quote:

Originally Posted by KevinADC

what have you tried so far?

This is what I have tried.. But this works only for "/" slashes

Expand|Select|Wrap|Line Numbers

  
if($element =~ m/\//)

{

@el = split(/\//,$element);

$c = @el-1;

($view = $el[$c]) =~ s/\.(.*)//g;

print $view;

}

numberwhun

Quote:

Originally Posted by mehj123

This is what I have tried.. But this works only for "/" slashes

Expand|Select|Wrap|Line Numbers

  
if($element =~ m/\//)

{

@el = split(/\//,$element);

$c = @el-1;

($view = $el[$c]) =~ s/\.(.*)//g;

print $view;

}

Well, I have hard coded $element in my example below. Just uncomment the one you want to try, they both work. You can examine the split page on perldoc and see how it works. Now, all you have to do is grab the element you need from the array.

Expand|Select|Wrap|Line Numbers

 
use strict;

use warnings;
 
#my $element = "/Net/xyz/abc/viewstore/hello.vws";

my $element = "\\Net\\xyz\\abc\\viewstore\\hello.vws";
 
my @segments = split(/[\/\\]/, $element);
 
print("@segments\n");

Regards,

Jeff

mehj123

Quote:

Originally Posted by numberwhun

Well, I have hard coded $element in my example below. Just uncomment the one you want to try, they both work. You can examine the split page on perldoc and see how it works. Now, all you have to do is grab the element you need from the array.

Expand|Select|Wrap|Line Numbers

 
use strict;

use warnings;
 
#my $element = "/Net/xyz/abc/viewstore/hello.vws";

my $element = "\\Net\\xyz\\abc\\viewstore\\hello.vws";
 
my @segments = split(/[\/\\]/, $element);
 
print("@segments\n");

Regards,

Jeff

Thanks... But the value of $element is read from a file which has the lines like \Net\xyz\abc\viewstore\hello.vws .. soo is it possible to stuff the escape characters to each line in the file?

KevinADC

Quote:

Originally Posted by mehj123

Thanks... But the value of $element is read from a file which has the lines like \Net\xyz\abc\viewstore\hello.vws .. soo is it possible to stuff the escape characters to each line in the file?

You don't need to escape a backslash that is input from a file. The code Jeff posted should work to split a string on forward slashes or back slashes.

eWish

Have you tried to incorporate Jeff's example into your code. It will work no matter where the $element value is coming from.

mehj123

Thanks a lot Jeff.. It worked.

regular expression

re: regular expression

re: regular expression

re: regular expression

re: regular expression

re: regular expression

re: regular expression

re: regular expression

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about