任何人都可以帮我匹配perl中的一个点

Question

  if( $file =~ /.txt/ or $file =~ /.pl/){
        open(readFile,"<$file") ;
        @m=<readFile>;
        open(writeFile, ">$file") ;
        print  writeFile" following files are updated ";
        print writeFile  @m; 
        close writeFile ;
     }  

此代码与此代码不匹配。 Txt它只匹配txt我能做些什么来匹配点

Answer 1

默认情况下，

.匹配除换行符之外的任何字符。 要从字面上匹配.，您需要在正则表达式中将其转义。

if( $file =~ /\.txt/ or $file =~ /\.pl/) {