关于如何提取文件名

learnscript

1. 
   
2. $ofile_prefix = "test.doc";
   
3. $EXTENSION_SEP = ".";
   
4. $ofile_prefix =~ s/(.*)$EXTENSION_SEP(.*)/$1/; print "$ofile_prefix\n";
   

复制代码

我想用上边那段PERL代码来提取文件名, 例如原来是的test.doc, 提取后就是test, 但我现在得到的去是test.do.  到底是哪不对啊?

shute

1. 
   
2. #为什么不直接
   
3. $ofile_prefix =~ s/(.*)\.(.*)/$1/;
   

复制代码

apile

$ofile_prefix = "test.doc";
$EXTENSION_SEP = '\.';  
$ofile_prefix =~ s/(.*)$EXTENSION_SEP(.*)/$1/; print "$ofile_prefix\n";

用"\."....