gpt4 book ai didi

perl - 如何使用perl获取每条数据记录的第一行?

转载 作者:行者123 更新时间:2023-12-02 01:11:51 25 4
gpt4 key购买 nike

<分区>

数据记录如下:

  1aaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaa
__Data__
1bbbbbbbbbbbbbbb
bbbbbbbbbbbbbbbb
bbbbbbbbbbbbbbbb
__Data__
1ccccccccccccccc
cccccccccccccccc
cccccccccccccccc

Perl 代码:

 $/="__Data__";

open READFILE,"<","a_test.txt" or die "Unable to open file $file";
while(<READFILE>)
{
if(/^([^\n]*)\n([^\n]*)\n/sm)
{
print "$1\n";
}
}
close(READFILE);

这段代码只输出1aaaaaaaaaaaa 而不是其他记录的其他第一行。我敢肯定还有其他方法可以做到这一点,但是使用这种代码格式,我怎样才能让其他记录只显示它们的第一行。理想的结果是:

 1aaaaaaaaaaaaaa
1bbbbbbbbbbbbbb
1cccccccccccccc

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com