Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码
读文件:实现代码如下:#!perlopen filetxt,"/path/a.txt";#filetxt为文件句柄,用于和文件a.txt建立链接。文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名。print ;#此处print函数用于显示文件a.txt的内容。<>为取行操作符,
读文件:实现代码如下:#!perlopen filetxt,"/path/a.txt";#filetxt为文件句柄,用于和文件a.txt建立链接。文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名。print ;#此处print函数用于显示文件a.txt的内容。<>为取行操作符,
实现代码如下:'===================================== '获得文件后缀 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)":Err.Cle