如何操作文件中的列表?

时间:2011-12-12 01:18:41

标签: perl replace

我想在每行上带一个带有名字的文本文件,例如:

姓名1
姓名2
姓名3

并为以下格式的Android数组做好准备:

<item>Name 1</item>
<item>Name 2</item>
<item>Name 3</item>
<item>etc.</item>

阵列很长,超过1000个项目。现在,我意识到我实际上是在请求某人为我编写代码。我曾经对perl有点精通,但却对它失去了联系。

那里有没有人会不介意帮我这个?

2 个答案:

答案 0 :(得分:5)

这可以直接从命令行:

完成
perl -ne 'chomp; print "<item>$_</item>\n"' oldfile > newfile

如果你真的需要一个程序:

while (<>) {
    chomp;
    print "<item>$_</item>\n";
}

答案 1 :(得分:5)

与@ sidyll类似,但更短:

perl -lpe '$_="<item>$_</item>"' oldfile > newfile