match extentions

[MoshiachNow]

HI,

A simple one.

I want to match only files that have extentions ".vps" , ".ps" , ".sep" only.
Have failed doing so with the code:

next if ($myfile != /\.ps|\.sep|\.vps/);

Will appreciate advise.
Thanks


Long live king Moshiach !

http://www.noahide.com

 

[Salem]

Use [tt][blue]!~[/blue][/tt] not [tt][red]!=[/red][/tt] as the matching operator.



--
If you dance barefoot on the broken glass of undefined behaviour, you've got to expect the occasional cut.

 

[MoshiachNow]

Thanks a lot !

Long live king Moshiach !

http://www.noahide.com

 

[stevexff]

Probably a good idea to use the $ anchor and the i modifier to avoid accidental false positives and upper case file extensions

next if ($myfile !~ /(\.ps|\.sep|\.vps)$/i);

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[brigmar]

I was about to say that
but a little improvement, nonetheless, is to move the '.' outside of the option grouping.

next if ($myfile !~ /\.(ps|sep|vps)$/i );

At least, it reads cleaner (to me).