regex – 如何清理字符串以用作PERL中的文件名？

通过电子邮件发送联系信息并附上简历.

我想将文件的名称更改为竞争编号和名称的组合.

如何清理生成的文件名,以便我可以保证其中没有无效字符.到目前为止,我可以删除所有空格和小写字符串.

我想删除任何标点符号(如撇号)和非字母字符(如重音符号).

例如,如果“AndréO’Hara”使用此表单提交了他的简历作业555,如果删除所有可疑字符并且我最终得到的文件名如下,我会很高兴：

555-andr-ohara-resume.doc

我可以用什么正则表达式删除所有非字母字符？

这是我到目前为止的代码：

# Create a cleaned up version of competition number + First Name + Last Name number to name the file
 my $hr_generated_filename = $cgi->param("competition")  . "-" . $cgi->param("first") . "-" . $cgi->param("last");

 # change to all lowercase
 $hr_generated_filename = lc( $hr_generated_filename );

 # remove all whitespace
 $hr_generated_filename =~ s/s+//g;

 push @{ $msg->{attach} },{
    Type        => 'application/octet-stream',Filename    => $hr_generated_filename.".$file-extension",Data        => $data,Disposition => 'attachment',Encoding    => 'base64',};