脚本语言
perl如何用一个数组储存多个文件句柄？
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区最近工作需要要处理大量的文件，格式基本相同，处理的操作也相同。
想用一个文件句柄数组来存储文件句柄
比如：
但是，有几个问题：
1. 这样打印的东西就是： 文件句柄数组中的内容： “A”“B”
2. 而且不能加上： use strict
3. 但是如果只定义一个变量如 ： $filehandler = "A" 时，结果没有问题
请大家提出解决方案
想用一个文件句柄数组来存储文件句柄
比如：
my @filehandler = qw("A" "B");
my @file_directory = qw(D:/Cuijian/ID_conversion.pl D:/Cuijian/ID_conversion.pl);
my $i = 0;
for($i = 0; i$ < length(@filehandler); $i++)
{
open($filehandler[$i], "$file_directory[$i]")|| die "cannot open the file at $!"; # ask here
while($filehandler[$i])
{
print $_;
}
}
但是，有几个问题：
1. 这样打印的东西就是： 文件句柄数组中的内容： “A”“B”
2. 而且不能加上： use strict
3. 但是如果只定义一个变量如 ： $filehandler = "A" 时，结果没有问题
请大家提出解决方案
...全文
相关推荐
Perl之读取文本文件
Perl之读取文本文件,按照给定的关键字读取文件内容并输出。
Perl基础学习02之数组和哈希
数组（ Arrays） 以@开头，类似python中列表（list），例如数组array1表示为@array1。 例如，array1.pl #!/usr/bin/perl use strict; use warnings; my $out="test"; #数组定义 my @array1=(1,"apple",$out);#一个列表中可储存不同类型的数据，可引用外部变量 print ...
Perl中怎样从数组中删除某个值？
主要介绍了Perl中怎样从数组中删除某个值？本文讲解如何把数组的元素赋值为undef,然后在从数组中删除元素,需要的朋友可以参考下
perl脚本大全
perl脚本大全
Perl脚本实现递归遍历目录下的文件
主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下
