http://qs1969.pair.com?node_id=311425


in reply to Re: Using expressions in arrays for pattern matching
in thread Using expressions in arrays for pattern matching

Nice, but I have one nitpick:

my $thisout = substr($i, 0, index($i, ".")) . ".txt"
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";