perl use FileHandle;打开多个文件

use FileHandle;
my %fh;

my @filehandlename=("A","B","C"); ##文件句柄的名字；

for my $filehandlename (@filehandlename){

　　$fh{$filehandlename}=FileHandle->new("> $filename"); ##$filename 代表输出文件的名字

　　$fh{$filehandlename}->pritn("输入的字符串")；

　　$fh{$filehandlename}->close();

}

时间： 2024-12-21 15:18:46

perl use FileHandle;打开多个文件的相关文章

正确的打开DWG格式文件用这个办法

CAD文件如今在许多的领域当中都会使用到,DWG格式文件作为最常使用的CAD文件图纸,自然经常会被我们使用到,如果我们想要对DWG格式文件进行查看和编辑,那么我们应该怎么进行操作呢?想要打开DWG格式文件,就需要使用专业的CAD文件编辑器打开.那么打开DWG格式文件正确的方法是什么? 一.什么软件可以打开DWG格式文件 打开DWG格式文件正确的方法就是使用迅捷CAD编辑器(官网:http://cad.xjpdf.com)这款专业的CAD文件编辑软件进行打开.这款软件支持多种CAD文件格式,其中就

win8不通过新打开窗口进行打开和保存文件，点击即显示文本内容，点击即保存文件

前面的一篇博客讲到通过打开新窗口进行打开和保存文件,这一篇则重点介绍怎样一步到位来进行打开和保存文件(这里还以.txt文本文件为例). 我们要打开.txt文本文件,无非是想要里面的文本内容,并且把其显示到页面里罢了,那我们能不能直接点击按钮就让文件的内容自动显示到页面上............ 而不需要经过打开新窗口这一步骤呢 同样,我们点击保存按钮,能不能就直接给文件命名为自己想要的名称,而且直接保存到自己想要的位置或者文件里........ 而不经过打开新窗口定位某一个具体的文件夹下这一步骤

ubuntu 中用vim打开txt等文件中文显示乱码的解决方法  

今晚用ubuntu 12.04 的vim编辑网页代码时,发现上面的中文显示乱码.这个html文件是我之前用gedit编辑的,在gedit里面显示正常,可是在vim下显示就是乱码了. 怎么解决ubuntu中vim显示中文乱码的问题呢? 首先,添加中文字符编码: sudo gedit /var/lib/locales/supported.d/local 在打开的文件中添加下面的中文字符集 zh_CN.GBK GBK zh_CN.GB2312 GB2312 zh_CN.GB18030 GB18030

Ubuntu下安装android studio的时候，无法进入图形界面--/usr/lib/jdk1.8.0_60/jre/lib/i386/libawt_xawt.so: libXtst.so.6: 无法打开共享对象文件: 没有那个文件或目录

详细错误描述: java.lang.reflect.InvocationTargetException    at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method)    at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:62)    at sun.reflect.DelegatingMethodAccessorImpl.i

python 同时打开两个文件以及打开文件的基本操作

同时打开2个文件 with open('ha.log','r',encoding='utf-8') as f1 , open('ha1.log','a',encoding='utf-8') as f2: for line in f1:#循环f1 逐行获取f1的内容 f2.write(line)#这样就将ha.log文件的内容 复制到f2中 seek():指定指针的位置 tell():获取指针当前位置 readline():读行 truncate([size]):截取文件,使文件大小为size f

Qt打开外部程序和文件夹需要注意的细节（Qt调用VC写的动态库，VC需要用C的方式输出函数，否则MinGW32编译过程会报错）

下午写程序中遇到几个小细节,需要在这里记录一下. ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 QProcess *process = new QProcess(this);     QFileInfo fileinfo(appUrl);     QString appPath = QApplication::applicationDirPath()+SAVEDIR+"/"+fileinfo.fileName();     bool res = proce

vim打开多个文件方式及操作

格式如下: #vim file*.txt 或者 #vim file file2 file3 查看当前编程的是那个文件,在冒号命令行下 :args 命令,类似:file [file2],以中括号里面为当前编辑的文件 : :next 转到下一个文件可以简写:n : :prev 转到上一个文件,简写无效: :last 转到最后一个文件: :first 转到最前一个文件: :w 存盘:可以配合next,prev使用,如::wn ; :wprev; 但不能配合last,first; :2next ;可以在

Qt打开外部程序和文件夹需要注意的细节（注意QProcess的空格问题，以及打开本地文件时，需要QUrl::fromLocalFile才可以）

下午写程序中遇到几个小细节,需要在这里记录一下. ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 QProcess *process = new QProcess(this);     QFileInfo fileinfo(appUrl);     QString appPath = QApplication::applicationDirPath()+SAVEDIR+"/"+fileinfo.fileName();     bool res = proce

无法打开默认电子邮件文件夹....

outlook邮箱出问题时我们通常会尝试重新配置outlook的exchange邮箱,配置好后打开邮件提示如下: 无法打开默认电子邮件文件夹.必须先使用当前的配置文件连接到microsoft exchange,然后才能将文件夹与outlook数据文件(.ost)文件进行同步. 通常我是重新安装office,安装后一般可以恢复正常, 但是也有问题依旧存在. 看到一篇博文,提供的方法: 1.找到outlook所在的文件夹,我的是C:\Program Files\Microsoft Office\Of