Re: Re: Using expressions in arrays for pattern matching

Nice, but I have one nitpick:

my $thisout = substr($i, 0, index($i, ".")) . ".txt"
[download]

What about names like "my.file.rpt" (pretty common style on *nix)?

Since we are already through with $i (let's call it $file from now on), we can do:

$file =~ s/\.rpt$/.txt/i; #case insensitive
open OUTPUT, ">$file";
[download]

Comment on Re: Re: Using expressions in arrays for pattern matching Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Using expressions in arrays for pattern matching by melora (Scribe) on Dec 02, 2003 at 00:22 UTC
I like that better, thanks for the nitpick!	[reply]