in reply to Upper / Lower case extensions

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
Re: How can I make this code work ?
by Tomte (Priest) on Jul 30, 2002 at 11:31 UTC
    $file =~ s/\.dat//i;
    see:perlre
      Or alternately: $file =~ s/\.(dat|DAT)//; (although why you would want to *not* cope with .DaT I don't know)