From: WC -Sx- Jones <[EMAIL PROTECTED]>
> Jas wrote:
>
> > if($file =~ /^(\d{8})-www\.tar\.gz$/) {
>
>
> I believe you might like this better -
>
> ...
>
> if ($file =~ /^\d{4}.*-www\.t(?:ar.)gz$/i) {
You forgot to escape the last dot and to make the ar. optional :-)
if ($file =~ /^\d{4}.*-www\.t(?:ar\.)?gz$/i) {
Now it matches either .tag.gz or .tgz as you intended. I don't think
Jas needs that though.
Jenda
===== [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =====
When it comes to wine, women and song, wizards are allowed
to get drunk and croon as much as they like.
-- Terry Pratchett in Sourcery
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
