Chinaunix

标题: 新人求助 [打印本页]

作者: zhuifeng_wsd 时间: 2014-02-25 11:55
标题: 新人求助
有资料如下：

- ....
....
.....
....
;

-....
...
..
...
...
;

-..
..
;

想要的结果是：
-........................................;
-..................................;
-.................................;

求指点

作者: seufy88 时间: 2014-02-25 12:00
本帖最后由 seufy88 于 2014-02-25 12:02 编辑

简单写了一个

while(<DATA>){
chomp;
if(/-/../;/){
if(/;$/){
$_.="\n";
}
print ;
}
};
__DATA__
- ....
....
.....
....
;
-....
...
..
...
...
;
-..
..
;

复制代码

作者: zhuifeng_wsd 时间: 2014-02-25 12:09
回复 2# seufy88

非常感谢，试验一下

作者: pitonas 时间: 2014-02-25 12:12
啥意思啊{:2_171:}

作者: zhuifeng_wsd 时间: 2014-02-25 12:37
回复 4# pitonas

呵呵，......表述数据啊

作者: zhuifeng_wsd 时间: 2014-02-25 14:58
回复 2# seufy88

非常感谢，成功了。有一个问题想问一下，$_指什么？是；$ 吗？那么$_.是什么意思？

作者: TrishaTie 时间: 2014-02-25 16:32
回复 6# zhuifeng_wsd
06.$_.="\n";
意思跟 $sum+=1 一样 $_=$_."\n";

作者: yestreenstars 时间: 2014-02-25 16:33

perl -lne 'BEGIN{$/=undef};s/\n//g;s/;/;\n/g;s/\n$//;print'

复制代码

作者: zhuifeng_wsd 时间: 2014-02-25 17:34
回复 7# TrishaTie

多谢解答，谢谢

作者: zhuifeng_wsd 时间: 2014-02-25 17:37
回复 8# yestreenstars

膜拜大神，看不懂{:2_174:}

作者: mcshell 时间: 2014-02-25 22:10

perl -ne 'chomp;!/;/?print :print "$_\n"' file

复制代码

作者: rubyish 时间: 2014-02-26 01:38

#!/usr/bin/perl
$/ = "\n\n";
while (<DATA>) {
s /\n//g;
print "$_\n";
}
__DATA__
-123
45
678
;
-abc
de
fg
;
-AB
CD
;

复制代码

作者: zhuifeng_wsd 时间: 2014-02-26 08:57
回复 12# rubyish

简洁

作者: zhuifeng_wsd 时间: 2014-02-26 08:57
回复 11# mcshell

看不懂{:2_169:}

作者: kernel69 时间: 2014-02-28 18:53

perl -pe '/^;/ or s/\n//'

复制代码

回复 1# zhuifeng_wsd

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)