perl file extension

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

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


  • 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.

Howdy, Stranger!

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


In this Discussion