Reg. Regular Expression...

cnsabar

Hi All,

what's wrong in this code...

Reguired Output: \\DirPath\Dir1\Dir2\File2.ext

Expand|Select|Wrap|Line Numbers

  
$FilePath='

\\DirPath\Dir1\Dir2\File1.ext

\\DirPath\Dir1\Dir2\File2.ext

\\DirPath\Dir1\Dir2\File3.ext

';
 
if($FilePath=~m#\\\\DirPath\\Dir1\\Dir2\\File2.ext#)

{

print "File Path: $&\n";

}

else

{

print "Path Not Found";

}

I do know whats wrong in this code. I didn't get the expected output.

Looking for ur suggestions.

Thanks,
Sabarish.

toolic

This works for me:

Expand|Select|Wrap|Line Numbers

if($FilePath=~m#\\DirPath\\Dir1\\Dir2\\File2.ext#)

The 4 leading backslashes are too many; 2 works.

Reg. Regular Expression...

re: Reg. Regular Expression...

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about