> # foo.txt.bak => bak > ($extension) = $name =~ /.*\.([^.]*)/; > # or > # ($extension) = $name =~ /\.([^.]*)$/;
It doesn't work if there is no extension in $name. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
