perl 在文本文件的每一行末尾添加递增数字

6za6bjd0 于 2023-02-09 发布在 Perl

关注(0)|答案(2)|浏览(227)

我有一个文本文件，URL在单独的行中

www.example1.com 
www example2.com

我想添加一些前缀和后缀到每个网址的文本文件。

gallery-dl -g www.example1.com > link1.txt
gallery-dl -g www.example2.com > link2.txt

我怎样用命令行的Perl来做这个。我试过用sed但是失败了。我用的是Ubuntu。
我试过这个

$perl -ne 'chomp;print "gallery-dl -g $_ > link$..txt\n"' urls.txt

但是> link1.txt进入了第二个新行。

2条答案

您正在将一个Windows文本文件（以CRLF结尾的行）传递给Perl的unix构建版本（预期以LF结尾的行）。
将您的文件转换为unix文件（例如使用dos2unix）或处理CRLF行结束符（例如用s/\s+\z//替换chomp）。

perl -e '$n=1;while(<>){chomp;print "gallery-dl -g $_ > link$n.txt\n";$n++;}' url.txt