❶ perl 读取文件夹下所有txt,并处理数据
还是昨天的那个程序，假设你的文件分为 1.txt 2.txt 3.txt，这个时候不要包含文件头，即所有的文件都是内容
程序修改为：
#$head=<>;
while(<>)
{
@line=split(/,/,$_);
$lwfs=$line[7];
$user=join('|',$line[1],$line[2],$line[3],$line[4],$line[6],$line[7]);
$info{$lwfs}{'times'}+=1;
$info{$lwfs}{'users'}{$user}+=1;
}
print"lwsf,user,times ";
foreachmy$key(keys%info)
{
$times=$info{$key}{'times'};
@users=keys$info{$key}{'users'};
$usercount=$#users+1;
print"$key,$usercount,$times ";
}
注意：读取文件头到$head变量的那句已经注释掉了。
此时运行方法为： perl my.pl 1.txt 2.txt 3.txt 就可以了
perl自己会把所有文件内容都读进来处理的
❷ perl脚本读文件最优方法请教
你的代码一下子把所有行都读到@Contant里了，自然耗内存。
这种情况要用while循环一行一行地读，参见下面的改法。
my ($filename) = "text.unl";
unless (open (RDH,$filename))
{
print "File open failed.";
}
while (my $line = <RDH>) {
push @a, $line if /aaa/;
push @b, $line if /bbb/;
push @c, $line if /ccc/;
}
close RDH or die "Cannot close $filename:$!";
❸ perl如何读入一个.txt文本中的内容,将文本里的内容放到一个数组里
很简单的，例子代码如下：
open(FD,"1.txt");
@lines=<FD>;
close(FD);
上面的代码之后，就可以使用@lines数组了，比如显示第三行的语句：
print $lines[2];
❹ perl如何遍历指定文件夹下的指定扩展名文件并读取内容
不知道你这里读取具体指什么，我就把文件名打印出来，把文件内容打印出来吧。（程序指定两个参数，第一个参数是指定的文件夹名，每二个参数是指定的扩展名。）
#!/usr/bin/perl
use strict;
use warnings;
die "Usage: $0 <dir> <extion>\n" unless @ARGV == 2;
my $Dir = $ARGV[0] ;
my $Ext = $ARGV[1] ;
opendir(DH, "$Dir") or die "Can't open: $!\n" ;
#读取指定文件夹下面的指定扩展名的文件名，保存到数组里。
my @list = grep {/$Ext$/ && -f "$Dir/$_" } readdir(DH) ;
closedir(DH) ;
chdir($Dir) or die "Can't cd dir: $!\n" ;
foreach my $file (@list){
open(FH, "$file") or die "Can't open: $!\n" ;
print "$file:\n" ;
while(<FH>){
print ;
}
print "\n";
close(FH) ;
}
❺ perl读取文件，然后替换内容，再生成新的文件。然后打包。（有分）
这个问题问的有点儿含糊，不过提供一个可能的方法供您参考。
使用 perl 的 $^| 命令，这个命令的用法解释为：
1、$^|=“” -- 设置为空代表修改文件内容；
2、$^|=“.other” -- 代表将修改后的文件保存为 filename.other
❻ 如何用perl读取txt文件中的数据
#!/usr/bin/perl
$textname="/存放路径/文件名.txt"; #例如$textname="E:/lqf.txt";
open(FILE1,$textname);#打开文件
@line=<FILE1>;#将文件的每一行读取到数组@line中，文件的每一行作为一个数组元素
close FILE1;
#保存这个文件的内容，只要对@line数组进行操作就可以了
❼ 如何用perl读取一个文件夹下的大量首列相同的txt文件，要进行列合并。
opendirD,"1"ordie$!;#把所有txt文件都放到一个叫1的文件夹中
@array=grep(/.txt/,readdirD);
foreach$list(@array){
openF,"1/$list"ordie$!;
@load=<F>;
foreach(@load){($s1,$s2)=split/s+/,$_;push@new,$s2;}
}
foreach(@new){print"$_ ";}