perl file extension - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

perl file extension

inkedinked Posts: 2Member
hi all, just a little problem, have this code that checks the format of a file name:
[code]
if($file !~ m/^[a-zA-Z_](w{1,7})?/)
{
die("Incorrect format!
");
}
[code]

this checks for a filename that starts with an underscore or letter character.
It then goes on to check for a further 7 characters.
The file extension however should be optional, so if the user doesnt enter .txt, it is added to the filename by perl.
Can anyone provide me with a hint or point me in the right direction on how i would achieve this, thanx

Comments

  • leeb003leeb003 Posts: 12Member
    You could use another logical check for the extension being present or not and add it if it's not present, like this:
    if ($file !~ /.txt$/) {
    $file = $file . ".txt";
    }
Sign In or Register to comment.