n******n 发帖数: 12088 | 1 很简单,但我很久没碰perl了,懒得去翻书。
输入是文本文件,每一行格式是:
first_name last_name phone_number
例如:Barack Obama 4085106500
输出是另一个文本文件,上述一行变四行:
First Name: Barack
Last Name: Obama
Phone Number: 4085106500
<空行> |
F**e 发帖数: 593 | 2 直接awk不就行了?
awk '{print $1"\n"$2"\n"$3"\n"}' file_name
【在 n******n 的大作中提到】 : 很简单,但我很久没碰perl了,懒得去翻书。 : 输入是文本文件,每一行格式是: : first_name last_name phone_number : 例如:Barack Obama 4085106500 : 输出是另一个文本文件,上述一行变四行: : First Name: Barack : Last Name: Obama : Phone Number: 4085106500 : <空行>
|
c******n 发帖数: 4965 | 3 perl -ane ' print map { ("First name", "last name", "phone" ) [ $_] . " "
. @F[$_] ."\n" } ( 0 .. 2 ) ' ur_input.txt
【在 n******n 的大作中提到】 : 很简单,但我很久没碰perl了,懒得去翻书。 : 输入是文本文件,每一行格式是: : first_name last_name phone_number : 例如:Barack Obama 4085106500 : 输出是另一个文本文件,上述一行变四行: : First Name: Barack : Last Name: Obama : Phone Number: 4085106500 : <空行>
|
n******n 发帖数: 12088 | 4 好,先盖个章。明天验证了发包子。
【在 F**e 的大作中提到】 : 直接awk不就行了? : awk '{print $1"\n"$2"\n"$3"\n"}' file_name
|
n******n 发帖数: 12088 | 5 盖章。
"
【在 c******n 的大作中提到】 : perl -ane ' print map { ("First name", "last name", "phone" ) [ $_] . " " : . @F[$_] ."\n" } ( 0 .. 2 ) ' ur_input.txt
|
c*****g 发帖数: 1137 | 6 sigh, 程序员cheap啊..
【在 n******n 的大作中提到】 : 盖章。 : : "
|
F**e 发帖数: 593 | 7 awk '{print "First Name: "$1"\n""Last Name: "$2"\n""Phone Number: "$3"\n"}'
file_name
我都验证过了,绝对只要copy&paste
【在 n******n 的大作中提到】 : 好,先盖个章。明天验证了发包子。
|
n******n 发帖数: 12088 | 8 分享才是自由软件的精神嘛,否则大家反复发明轮子。
【在 c*****g 的大作中提到】 : sigh, 程序员cheap啊..
|
n******n 发帖数: 12088 | 9 Fine和creation每人5个包子都已经发出。
另外有没有什么脚本程序库能搜现成的类似小程序啊?
【在 n******n 的大作中提到】 : 分享才是自由软件的精神嘛,否则大家反复发明轮子。
|
i********a 发帖数: 789 | |
r***e 发帖数: 10135 | 11 search.CPAN.org
【在 n******n 的大作中提到】 : Fine和creation每人5个包子都已经发出。 : 另外有没有什么脚本程序库能搜现成的类似小程序啊?
|
F********g 发帖数: 753 | |
w******a 发帖数: 782 | |