怎么实现如下需求,谢谢

blackold

动作没有beginner-bj快，眼光没有Tim犀利，我只能找个借口了，要不多没面子。

cxfcxf

强哦....这个算法很强

我的算法比起来真是麻烦太多了
$/="\n\n";
while (<DATA>) {
    chomp;
    if (/\-name.*?(\".*\")/) {
        my $string = $1;
        s/(intelligent\/)/$1$string/g;
        print "$_\n\n\n";
    }
}

blackold

你这个写得不好看啊。

1. $ perl -lpe '@a=split;if (/addgroup/) {$n=$a[-2]." $a[-1]";}elsif (/addparam/) {$a[2].=$n;$_=join " ",@a;}' urfile

复制代码

这个相对简洁些。

肯定还有更简洁的。

[ 本帖最后由 blackold 于 2009-10-22 13:39 编辑 ]

cxfcxf

对的 你这个算法 和我算法不一样 和tim的算法一样 强很多

blackold

还是学shell吧，可以学算法

cxfcxf

我已经误入歧途了...
一般题 awk sed做不出 就用perl来弄了...因为觉得perl的思路就是程序思路 可以分解的很开一步一步做..
用awk sed 总觉得跳跃性和约束性太强...每个规矩都不一样 别说awk里面再加数组了....
这是逃避啊

MYSQLER

原帖由 blackold 于 2009-10-22 12:12 发表
你这个写得不好看啊。
$ perl -lpe '@a=split;if (/addgroup/) {$n=$a[$#a-1]." $a[$#a]";}elsif (/addparam/) {$a[2].=$n;$_=join " ",@a;}' urfile
这个相对简洁些。

肯定还有更简洁的。

嗯，不错，黑哥还学perl呢?

blackold

ly5066113

用 -a 参数，就可以直接使用@F，而不用split了。

blackold

好，学习学习! 谢谢Tim的指点!