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 | |
