$outfilePRE =~ s/.phase$//;
One other little cautionary note. In a regex (as in the s/// quoted above), the . (dot) is a "metacharacter", a regex operator that, by default, matches any character except a newline (see perlre). I don't understand the purpose of the quoted substitution, but if it's to remove a literal .phase substring extension from the end of a file name, you may be surprised:
To have the regex match a literal period character, escape the dot:c:\@Work\Perl\monks>perl -wMstrict -le "my $filename = 'foo.xyphase'; print qq{'$filename'}; ;; $filename =~ s/.phase$//; print qq{'$filename'}; " 'foo.xyphase' 'foo.x'
Good luck with this program.
Give a man a fish: <%-{-{-{-<
In reply to Re: HELP fix error in fineStructure conversion script
by AnomalousMonk
in thread HELP fix error in fineStructure conversion script
by grubent
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |