Perl：文件输入到已排序的文件输出

发布于 2024-12-12 02:50:09 字数 228 浏览 0 评论 0原文

我的 Perl 代码需要帮助。我需要能够读取每行一个单词且至少 50 行的文件。我有一个代码可以打印文件中的每一行，但是如何对这些项目进行排序，然后输出到一个新文件中。

while(<>){
chomp;
print "$_ :is in the file";
}

我正在努力弄清楚如何接收一个文件并将其放入另一个文件（我认为 <> 逐行解析文件）。

原文

I need help with my perl code. I need to be able to read in a file with one word on each line and at minimum 50 lines. I have a code to print each line from the file but how do I take these items sort them and then out put to a new file.

while(<>){
chomp;
print "$_ :is in the file";
}

I am struggling to figure out how to take in a file and (I think the <> parses the files line by line) out put it to another file.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

剑心龙吟 2024-12-19 02:50:09

对于更实用的方法，作为一句话：

perl -e '$, = "\n"; print sort map { chomp; $_ } <>' input.txt > output.txt

此 print 排序编辑版本的映射ping 通过 chomp，分隔（$,) 通过换行符。

作为写入预定文件的独立脚本：

#!/usr/bin/env perl -w

$, = "\n";

open(my $output, ">", "output.txt")
  or die "Cannot open output.txt: $!\n";

print $output sort map { chomp; $_ } <>;

close $output;

For a more functional approach, as a one-liner:

perl -e '$, = "\n"; print sort map { chomp; $_ } <>' input.txt > output.txt

This prints a sorted version of mapping each line through chomp, separated ($,) by newlines.

As a standalone script which writes to a predetermined file:

#!/usr/bin/env perl -w

$, = "\n";

open(my $output, ">", "output.txt")
  or die "Cannot open output.txt: $!\n";

print $output sort map { chomp; $_ } <>;

close $output;

回复收藏 0 原文

抹茶夏天i‖ 2024-12-19 02:50:09

perl -we 'print sort <>' input.txt > output.txt

分解：

当我们使用菱形运算符时，文件input.txt被打开以供读取
列表上下文中的<>
<> 返回文件中要 sort
sort 排序的所有行按字母顺序排列行并将列表返回到 print
print 打印排序后的列表
shell 将 perl 命令的输出重定向到文件
输出.txt

perl -we 'print sort <>' input.txt > output.txt

Breakdown:

the file input.txt is opened for reading when we use the diamond operator
<>
<> in list context returns all the lines in the file to sort
sort sorts the lines alphabetically and returns the list to print
print prints the sorted list
The shell redirects the output from the perl command to the file
output.txt