[二星]格式化输出，欢迎各种脚本或者语言

[cnkilior]

我想EE的perl估计没有几个人能懂吧！！

python懂的人多一些，一叶的要比猫球的难懂。

awk的也很难懂。。。属于天书类的。

shell script就比较简单了。

[roylez]

死臭屁，烂大括号恶心的。

代码： 全选

#!/usr/bin/env python
# -*- coding: UTF-8 -*-
import sys
for l in open(sys.argv[1]).readlines():
    if l.strip().startswith('NAME'): name = l.strip().split('=')[1]
    if l.strip().startswith('PHONE'):   print l.strip().split('=')[1] +','+name

[eexpress]

晦涩的pl。只是作者思路清晰的。其实本身也清晰。

py适合大家一起写，容易懂些。

awk很强，类似c。

shell的，强在调用现有资源。

[eexpress]

roylez, 也没判断2个值有效。好吧。你水平高些。只是语法复杂，还不如pl容易理解了。

[cnkilior]

晦涩的pl。只是作者思路清晰的。其实本身也清晰。

py适合大家一起写，容易懂些。

awk很强，类似c。

shell的，强在调用现有资源。

me 同意！

[c\nc]

代码： 全选

sed -n -e ':y;/^NAME/{s/^NAME=//;h};n;/^PHONE/{s/^PHONE=//;H;x;s/\n/,/;p};b y' file

这算一行的不？

[eexpress]

c\nc, 除开没判断有效性，很不错的sed了。

[adamscao]

诸位都是shell，perl，awk，sed，python的高手，在惭愧中拜服

[lilydjwg]

竟然被忽视了

[xiooli]

这个题有这么麻烦吗？
bash， 三行有效代码

代码： 全选

#!/bin/bash
if [ -f "$1" ]; then
   sed '/=/!d;s/ /___/g' "$1" > /tmp/tmpfile
   . /tmp/tmpfile 2>/dev/null && [ "$NAME" -a "$PHONE" ] && echo "$NAME,$PHONE"| sed 's/___/ /g'
fi

[BigSnake.NET]

额。第2个没输出。球猫的也没。球猫的是管道吧，没输出。文件作参数，也是“死机”。

你那样例里只有一个...

[BigSnake.NET]

多谢各位研究。

残局结束了。谢谢各位让我知道，我选择了最正确的perl。

4行有效代码。

代码： 全选

● cat t.pl
#!/usr/bin/perl

while(<>){
chomp;
$name=$',next if /NAME=/;
print $name.",".$'."\n" if /PHONE=/ && $';
}

你这压根没处理多个 CONTACT 吧...

[roylez]

多谢各位研究。

残局结束了。谢谢各位让我知道，我选择了最正确的perl。

4行有效代码。

代码： 全选

● cat t.pl
#!/usr/bin/perl

while(<>){
chomp;
$name=$',next if /NAME=/;
print $name.",".$'."\n" if /PHONE=/ && $';
}

你这压根没处理多个 CONTACT 吧...

4行码，没人懂……

[yaoms]

多谢各位研究。

残局结束了。谢谢各位让我知道，我选择了最正确的perl。

4行有效代码。

代码： 全选

● cat t.pl
#!/usr/bin/perl

while(<>){
chomp;
$name=$',next if /NAME=/;
print $name.",".$'."\n" if /PHONE=/ && $';
}

你这压根没处理多个 CONTACT 吧...

4行码，没人懂……

ee这个如果有两个相邻的 CONTACT 并且一个有 name 一个有 phone , 会撮合到一起去吧。

[c\nc]

楼主的目的已经达到了，那个文件具体啥样只有他自己知道，估计是公司机密