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

jaylalam

Hi,

I need to write a regex to check '.html', '.asp' etc

Eg : Say my iw_file is \test1\test2\abcd.html

I want to write a regex to extract '.html' from the iw_file.

A quick reply is highly appreciated.

Thanks and Regards,
Jay

Find more posts tagged with

Comments

Adam Stoller

Hi,

I need to write a regex to check '.html', '.asp' etc

Eg : Say my iw_file is \test1\test2\abcd.html

I want to write a regex to extract '.html' from the iw_file.

A quick reply is highly appreciated.

Thanks and Regards,
Jay

Cross posting your inability to pick up a book and/or search for simple examples on the web is not going to make people want to help you any faster.

What do you think the regex would be?
If you make an attempt you'll probably get some assistance.

Out of curiosity - what is your 'role' in your organization?
I certainly hope it isn't a "consultant".

kaalraa

Please... do not cross-post.

For further quotes refer to http://devnet.interwoven.com/forums_vb/showthread.php?t=15905&forumid=50

Hi,

I need to write a regex to check '.html', '.asp' etc

Eg : Say my iw_file is \test1\test2\abcd.html

I want to write a regex to extract '.html' from the iw_file.

A quick reply is highly appreciated.

Thanks and Regards,
Jay

jaylalam

Hi,

Is anything wrong the following code :

foreach $gen_file (@iw_files) {
my $file = $gen_file;
if ($file =~ m/templatedata\\(.[^\\]*)\\(.[^\\]*)\\data\\(.[^\\]*)/)
{ my $generate_file = $file; print LOG "File generated is: $generate_file\n\n\n";}
else
{ my $generate_file = $file; print LOG "File1 generated is: $generate_file\n\n\n";}
print LOG "For generated is: $generate_file\n\n\n";
}

print LOG "Out generated is: $generate_file\n\n\n";

I am getting nothing printed for 'For generated' and 'Out generated', though the 'File' and File1' are getting values and gets printed.

Can you help me?

Regards,
Jay

Migrateduser

Where are you opening the filehandle? Also, you're scoping $generated_file locally and it needs to be more global than where you're declaring it.

Not to be mean, but are you new to Perl? The reason I ask is that you can put a -w flag on the command line and run it from there which will give you a good deal if information (warnings, formally) as to what problems may arise. You could/should also "use strict".

kaalraa

Why there are double slashes in between the complete path. Are you trying to escape the special character or what?

If yes, then better do the same as using backslash (\)

Hi,

Is anything wrong the following code :

foreach $gen_file (@iw_files) {
my $file = $gen_file;
if ($file =~ m/templatedata\\(.[^\\]*)\\(.[^\\]*)\\data\\(.[^\\]*)/)
{ my $generate_file = $file; print LOG "File generated is: $generate_file\n\n\n";}
else
{ my $generate_file = $file; print LOG "File1 generated is: $generate_file\n\n\n";}
print LOG "For generated is: $generate_file\n\n\n";
}

print LOG "Out generated is: $generate_file\n\n\n";

I am getting nothing printed for 'For generated' and 'Out generated', though the 'File' and File1' are getting values and gets printed.

Can you help me?

Regards,
Jay

jbonifaci

Is anything wrong the following code :

There are many things wrong with it...

1) you aren't using strict.

2) Your regex is a little quirky, why are you matching .[^\\]*? I would think you would want this chunks replaced with just [^\\]+.

3) You are setting "my $generated_file = ..." within your if statements, yet then trying to access it after it loses scope.

4) Why are you setting my $file = $gen_file? This doesn't appear to be needed, just use $gen_file.

5) There doesn't appear to be anything different between your then and else code blocks, other than a slight difference in your logging...?

~Jeff

Migrateduser

If I may continue on Jeff's train of thought,

6. You're posting on DevNet something that should take you less than a minute and given due diligence and the minimal time investment on your part to look over your code, you would/should see the occasional error, thus reducing the perception that the only reason you're posting something like this on DevNet is that you just want someone to do your work for you.

kaalraa

Apart from this...

7.) Please post your queries as per the Topics. You have asked a Perl query within the Wokflow Forum.

If I may continue on Jeff's train of thought,

6. You're posting on DevNet something that should take you less than a minute and given due diligence and the minimal time investment on your part to look over your code, you would/should see the occasional error, thus reducing the perception that the only reason you're posting something like this on DevNet is that you just want someone to do your work for you.

jaylalam

Hi All,

I am just a beginner in Perl and this is the first time I am working on perl. I am slowly getting into writing perl scripts and regex.

Its just a help and some assistance I needed to get start with. Not everyone born genius right, atleast not me. I believe this is a forum where one can get some help and assitance and I definately not expecting others to write my code. Perl is something new to me and I am seeking assitance to do only minor things right!

Thanks all for your help.

Regards,
Jay

Migrateduser

Jay,

Of course we're all beginners at something and we were all beginners at some point in whatever we're expert in now, etc., but the fact remains that Google is a wonderful tool and, as long as you don't live in China and are not trying to look up anything concerning the 1919 revolution or Tiananmen Square, there's more than a wealth of information "out there" and for someone learning a new programming language, this should be more than sufficient.

chetansethi

Cool off guys, i guess Jay has understood that and we should be a little more receptive to basic questions and use the close browser button rather than replying... I guess he has already understood the need for due deligience on his part and would take care in the future.

Migrateduser

Cool off? This is a forum -- what's the big deal? Further, there is etiquette pertaining to posts -- part of which is to give an attempt at something before posting a request for help. Not all, but many who lurk here get annoyed when someone posts a question that's either painfully obvious or reflects that s/he has not done their part in trying to figure out a solution.

Jay wants to start learning Perl. That's great but this is not the place to do that. There are countless resources on the internet to do that -- but again, this is not one of them.

chetansethi

Agree 100% with you but we dont need to repeat the same thing again and again, when he has mentioned that he would refrain from doing it again.

Cool off? This is a forum -- what's the big deal? Further, there is etiquette pertaining to posts -- part of which is to give an attempt at something before posting a request for help. Not all, but many who lurk here get annoyed when someone posts a question that's either painfully obvious or reflects that s/he has not done their part in trying to figure out a solution.

Jay wants to start learning Perl. That's great but this is not the place to do that. There are countless resources on the internet to do that -- but again, this is not one of them.

Migrateduser

I'm a beginner at perl and regex, but is this what you are looking for? I gave two examples, in case you're just looking to find it or if you are looking to strip off the file extension.


 my $fileName =  ("/default/main/b.asp");

 # find if it has the file extension.

 if(($fileName =~ /\.asp/)||($fileName =~ /\.html/)) { 
  print "found it";
 } else {
   print "not found"
 }


 # remove file extension

 $fileName =~ s/.asp//;

 print "\n".$fileName;

jbonifaci

I'm a beginner at perl and regex, but is this what you are looking for? I gave two examples, in case you're just looking to find it or if you are looking to strip off the file extension.
 my $fileName = ("/default/main/b.asp");

 # find if it has the file extension.

 if(($fileName =~ /\.asp/)||($fileName =~ /\.html/)) { 
  print "found it";
 } else {
  print "not found"
 }


 # remove file extension

 $fileName =~ s/.asp//;

 print "\n".$fileName;

Please don't ever use those regex's as they are bad and won't do what you want them to in all situations.

The first example (the match) could be combined into one, but the biggest problem is that you aren't anchoring it to the end of the string using $, so the asp match will also match aspx, etc..

The search is much worse though, as you aren't escaping the period, so it's only going to match one character. So if I my file path is:

/blah/blah/casper.asp

It's going to remove casp and leave you with:

/blah/blah/er.asp

Which is obvioulsy bad. So for the replace, you need to escape the period and also anchor it to the end of the string with $.

~Jeff

Migrateduser

This is close, but how do I use the $ properly?


 my $fileName =  ("/default/main/casper.asp");

 # find if it has the file extension.

 if($fileName =~ /[\.asp,\.html]$/) { 
  print "found it";
 } else {
   print "not found"
 }


 # remove file extension

 $fileName =~ s/\.asp$//;

 print "\n".$fileName;

Migrateduser

Use the "$" when you want to match the end of a string.

For instance:

/^.*ment$/

will match "basement" but not "mentos" because "ment" occurs at the end of basement.

The "^" matches the beginning of a string, so:

/^cas.*$/

will match "casper" but not "lucas".

Dave

Migrateduser

How about this?


 use strict;

 my $fileName =  ("/default/main/asper.html");

 # find if it has the file extension.

 if($fileName =~ /\.asp$|\.html$/) { 
  print "found it";
 } else {
   print "not found"
 }

 # remove file extension

 $fileName =~ s/\.asp$|\.html$//;

 print "\n".$fileName;

Thanks for the pointers, I am really interested in improving my RegEx. It's some pretty cool and powerful stuff.

Migrateduser

Don't forget to use the "i" flag at the end of the regex. This will cause the regular expression to be case insensitive. So, you'll be able to match .asp and .ASP, for instance:


[left]
 use strict;

 my $fileName =  ("/default/main/asper.html");

 # find if it has the file extension.

 if($fileName =~ /\.(asp|html?)$/i) { 
  print "found it";
 } else {
   print "not found";
 }

 # remove file extension

 $fileName =~ s/\.(asp|html?)$//i;

 print "\n".$fileName;[/left]

I changed a couple of things. The IF statement I wrote is a bit more concise and it also allows for an "htm" or "html" extension (note the "?" after "html"). The "i" at the end also allows us to be case insensitive. All of this is the same as the line where you're removing the file extension. Just a question, though -- I realize this might not be real code, etc., but if you were to remove either of those file extensions, wouldn't you want to do that in your IF statement? Otherwise, if you want to remove ANY file extension, your regex would need to be different.

Migrateduser

I realize this might not be real code, etc., but if you were to remove either of those file extensions, wouldn't you want to do that in your IF statement? Otherwise, if you want to remove ANY file extension, your regex would need to be different.

Correct. But, since the requirements were a little vague on what he wanted to do with the extension, I wanted to give him two examples.

Thanks for the corrections on the code, I'm sure I'll reference them in the future for upcoming projects.