打开文本文件并使用Perl将其读入数组的最简单方法
在这个问答内容中，您提到了使用Perl读取文本文件并将其读入数组的最简单方法。以下是一个简单的示例，说明如何使用Perl读取文本文件并将其读入数组：
#!/usr/bin/perl
use strict;
use warnings;
# 打开文件
open(my $fh, '<', 'file.txt') or die "Can't open file: $!";
# 读取文件内容并将其存储在数组中
my @lines = <$fh>;
# 关闭文件
close($fh);
# 输出数组中的每一行
foreach my $line (@lines) {
print $line;
}在这个示例中，我们首先使用open函数打开文件，然后使用<$fh>操作符将文件内容读入数组@lines中。最后，我们遍历数组并输出每一行。
请注意，这个示例中的文件名是file.txt，您需要将其替换为您要读取的文件名。
相关·内容
2回答
在寻找东西的时候，我偶然发现了这个答案，。
我想知道为什么变量$first_line只包含输入文件的第一行。
守则：
#!/usr/bin/env perl
use strict;
my $filename = shift;
open my $in_fh, '<', $filename
or die "Cannot open $filename for reading: $!";
my $first_line = <$in_fh>;
open my $out_fh, '>', "$filename.tmp&
浏览 4提问于2016-04-11得票数 1
回答已采纳
5回答
如何在perl中比较两个文本文件并删除匹配的内容并传递到输出？
perl、file、compare
我有两个文本文件text1.txt和text2.txt，如下所示
text1
ac
abc
abcd
abcde
text2
ab
abc
acd
abcd
输出
ac
abcde
当第二个文件中有匹配时，我需要比较这两个文件并从text1中删除内容。
我要Perl中的代码。目前我正在尝试下面的代码。
#!usr/bin/perl
use strict;
use warnings;
open (GEN, "text1.txt") || die ("cannot open general.txt")
浏览 7提问于2013-02-06得票数 2
4回答
我正在编辑我的问题以添加更多细节
该脚本执行命令并将输出重定向到文本文件。
然后，该脚本解析文本文件以匹配以下字符串“Standard 1.1.1.1”
文本文件中的输出为：
Host Configuration
------------------
Profile Hostname
-------- ---------
standard 1.1.1.1
stan
浏览 0提问于2014-06-03得票数 3
2回答
输出出现字符串的行号。
file、perl、text
我试图确定一个字符串出现多少次，Apples出现在文本文件中，以及它出现在哪一行。
脚本输出不正确的行号，而是连续输出数字(1,2，.)而不是这个词的正确行。
file.txt
Apples
Grapes
Oranges
Apples
目标输出
Apples appear 2 times in this file
Apples appear on these lines: 1, 4,
相反，如下代码所示，我的输出是：
Apples appear 2 times in this file
Apples appear on these lines: 1, 2,
Pe
浏览 0提问于2018-09-13得票数 0
回答已采纳
2回答
我正在使用以下代码读取一个文件：
open ($myfile, "<file.txt") or die "Could not open the file";
@lines = <$myfile>;
foreach $line (@lines){
print $line;
}
close myfile;
该文件的内容如下：
Crossroads Blues
Terraplane Blues
Come on in My Kitchen
Walking Blues
Mister Jelly Roll Maker
Last Fair De
浏览 6提问于2016-08-20得票数 0
回答已采纳
3回答
perl数组打印为GLOB(#x#)
perl、split
我有一个文件，其中包含一个用分号分隔的电子邮件地址列表，它的配置很像这样(但要大得多)： $ cat email_casper.txt
casper1@foo.com; casper2@foo.com; casper3@foo.com; casper.casper4@foo.com;
#these throw outlook error :
#casper101@foo.com ; casper100@foo.com
#cat /tmp/emailist.txt | tr '\n' '; '
#cat /tmp/emallist.txt | perl -nl
浏览 55提问于2019-01-31得票数 1
2回答
perl中令人困惑的文件句柄
arrays、perl、filehandle
我一直在使用下面的脚本，但仍然不能理解这两种不同的文件句柄表单背后的含义。任何洞察力都将受到高度赞赏。
#! usr/bin/perl
use warnings;
use strict;
open (FH, "example.txt") or die $!;
while (<FH>) {
my @line = split (/\t/, $_); {
print "@line","\n";
}
}
输出与预期一致：@line数组包含来自第1,2,3行的元素...来自example.txt。因为我被告知o
浏览 6提问于2015-06-06得票数 0
3回答
在perl中向文本文件添加标题
perl、filehandle
我有一个文本文件，下面的行作为示例
This is line
This is line with test
This is ine with 2test
This is line 2
This is line 3
This is line with 3test
This is line 4
This is line with 4test
现在我需要一个代码来修改文本文件，如下所示：
Lines with test
This is line with test
This is ine with 2test
This is line with 3test
This is line with 4te
浏览 1提问于2014-01-16得票数 1
回答已采纳
10回答
我把一行的总数作为用户输入，然后从文件中删除那些line号。
我看到了这个learn.perl.org/faq/perlfaq5.html#How-do-I-count-the-number-of-lines-in-a-file-，然后我就厌倦了下面的简单逻辑。
逻辑：
得到总行数
将其减去用户输入的数字。
打印线条
这里是我的代码:
#!/usr/bin/perl -w
use strict;
open IN, "<", "Delete_line.txt"
or die " Can not open the file
浏览 13提问于2012-10-02得票数 2
回答已采纳
2回答
通过Linux脚本或falcon更新文本文件中的日期和时间: Hadoop
linux、perl、hadoop、oozie、falcon
我有一些文本文件和下面的条目：
Name type startTime Endtime comments
my I 01-03-2016 02-03-2016 zoom
my F 01-03-2016 02-03-2016 zoom2
abd F 03-03-2016 04-03-2016 zoom5
my I 01-03-2016 02-03-2016 zoom6
如果当前日期是3月18日:输出应该是: output：
Name type startTime Endtime comments
my
浏览 2提问于2016-03-18得票数 0
回答已采纳
4回答
从文本文件perl降序对第二个字段进行排序
perl、sorting、file-io、text-files、numeric
我有一个以制表符分隔的文本文件，格式、名称和年龄如下所示：
chris 19
bobby 29
doofus 67
我想拉入文本文件，然后通过第二个字段进行排序。我可以拉入文本文件，并格式化数据，但我无法对其进行正确排序，因此删除了我拥有的排序代码……
这是一个简单的文件拉取:我如何修改它？
open (FILEHERE, 'ages.txt');
while (<FILEHERE>) {
chomp;
my($n, $s) = split("\t");
print "$a\t $s";
}
close (FIL
浏览 0提问于2012-11-21得票数 1
回答已采纳
6回答
根据关键字将文件内容拆分为两个数组
arrays、perl、split
我有一个文件，其中包含以下内容
line1
line2
line3
line4
.endm
line5
line6
line7
line8
.endm
我想在.endm中拆分这个文件，并将内容放入两个不同的数组中。输出将是
@array1=(line1,line2,line3,line4);
@array2=(line4,line6,line7,line8);
我试着用
@array = split(".endm",my_file.txt);
print("Array1 = $array[1]\nArray2 = $array[2]\n);
但这只是打印出最后一个.en
浏览 0提问于2013-09-21得票数 3
4回答
在perl中将文件加载到维度数组中
arrays、perl、multidimensional-array
我正在尝试创建一个perl脚本，以便将文件内容加载到一个维度数组中，但它似乎不起作用。任何帮助都将不胜感激！
这是我正在尝试的，但它不起作用。
#!/bin/perl
use List::Util qw(first);
@filelist = ("file1", "file2", "file3");
sub Load_File{
my $File_Name = shift;
open my $handle, '<', $File_Name;
chomp( my @lines = <$handle>)
浏览 6提问于2016-03-04得票数 0
回答已采纳
1回答
提高Perl搜索文件脚本的性能
regex、perl、perl-data-structures
我最近注意到，我用Perl编写的一个快速脚本被修改、重新分配并在40MB+文本文件中使用，在批处理环境中存在显著的性能问题。
当遇到一个大文本文件时，作业每次运行大约12个小时，我想知道如何提高代码的性能？如果我把文件塞进内存中，如果这样做，就会打破作业对文件中行号的依赖。任何建设性的想法都会受到极大的赞赏，我知道这份工作在文件中循环了太多次，但如何减少呢？
#!/usr/bin/perl
use strict;
use warnings;
my $filename = "$ARGV[0]"; # This is needed for regular batch use
m
浏览 1提问于2013-08-29得票数 1
回答已采纳
4回答
对Perl脚本的改进有什么建议？
perl
我已经创建了一个Perl脚本，用于读取包含一些数字的文件。我想消除重复项并将新列表保存到一个文件中。下面是我的脚本：
use strict;
my $arg = "<abs path to>\\list.txt";
open (FH, "$arg") or die "\nError trying to open the file $arg : $!";
print "Opened File : $arg\n";
my $line = "";
my @lines = <FH>;
close
浏览 0提问于2013-05-28得票数 0
回答已采纳
3回答
如何从作为数组元素的文件句柄读取一行
perl、file-io
我的perl脚本接受任意数量的文件，打开它们，并从每一行读取一行。但这不管用。这是我的密码。
#!/bin/perl
$numfile = scalar @ARGV;
for ($i = 0; $i < $numfile; ++$i)
{
open $fh[$i],"<",$ARGV[$i];
$line[$i] = <$fh[$i]>;
}
for ($i = 0; $i < $numfile; ++$i)
{
print "$i => $line[$i]";
}
知道为什么这不管用吗？在
浏览 0提问于2014-06-27得票数 2
回答已采纳
2回答
在perl中打开多行文本文件
perl、variables、multiline
我有以下文本文件
Hello my
name is
Jeff
我想用perl打开它。但是，当使用此代码时
use strict;
use warnings;
open(my $fh, "<", "input.txt") or die "cannot open input text!";
my $text= <$fh>;
print $text;
输出文本仅为Hello my。我如何使它打印我所有的输入文字行，而不仅仅是第一个？
浏览 4提问于2018-01-16得票数 0
回答已采纳
我一直试图让这个Perl脚本删除文件中的数字行，并且遇到了一些问题。我是一个Perl，只在这一次作业中使用它。不过，我已经做了很多研究，这段代码看起来应该能工作，但是没有从文本文件中删除数字
01现在是
02时间
03移走
04号码
我的脚本只是删除了整个文件内容。有人能告诉我我的逻辑或语法有什么问题吗？
#!/usr/bin/perl
open my $in, '<', "rmv_num_lines.txt" or die "Can't read from file.\n"; # open for reading
@a
浏览 3提问于2014-11-21得票数 0
回答已采纳
2回答
perl脚本中的读写操作
linux、perl
我是Perl脚本的新手。
我想对一个文件进行读写操作。我将以读写模式(+<)打开一个文件，并将其写入文件。现在，我想读取我之前写入的文件。下面是我的代码：
#!/usr/bin/perl
`touch file.txt`; #Create a file as opening the file in +< mode
open (OUTFILE, "+<file.txt") or die "Can't open file : $!";
print OUTFILE "Hello, welcome to File handling
浏览 0提问于2012-06-06得票数 2
回答已采纳
2回答
如何根据两列的相似性来组织表？
perl、sorting
下表显示了我拥有的一个以制表符分隔的文件。
1 2 3
A Jack 01
A Mary 02
A Jack 03
B Mary 04
B Mike 05
B Mary 06
C Mike 07
C Mike 08
C Jack 09
我想解析这个文本文件，并创建多个基于列1和2的文本文件。每个文本文件将包含数据(列3)，其中列1和2是相同的。因此，在此示例中，数据将按如下方式组织：
> file1.txt
A Jack 01
A Jack 03
> file2.txt
A Mary 02
浏览 1提问于2013-12-31得票数 1
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频
腾讯云开发者
