作者cutecpu (可爱中央处理器)
看板RegExp
标题Re: [问题] 长度固定的写法..(perl/php皆可)
时间Tue Oct 4 10:55:06 2011
#!/usr/bin/perl
while(<DATA>){
# 用 "\t" 补齐结尾後面不足长度的部份
s/^$/"\t" x 39/e;
s/^(.{5})$/$1 . "\t" x 34/e;
s/^(.{11})$/$1 . "\t" x 28/e;
s/^(.{25})$/$1 . "\t" x 14/e;
s/^(.{32})$/$1 . "\t" x 7/e;
# 用 "\t" 代替中间有栏位是空值的部份
s/^ {5}/"\t" x 5/e;
s/^(.{5}) {6}/$1 . "\t" x 6/e;
s/^(.{11}) {14}/$1. "\t" x 14/e;
s/^(.{25}) {7}/$1. "\t" x 7/e;
# 栏位中间加上逗号
s/^(.{5})(.{6})(.{14})(.{7})(.{7})$/$1,$2,$3,$4,$5/;
# 去掉 "\t"
s/\t//g;
# 印出结果
print;
}
__DATA__
123 j12345mc1235987ccccc aaaaxxxxxxx
12345a345cd2187ankjdkj219zxnmzxn2109890
12345a345cd2187ankjdkj219zxnmzxn
12345a345cd2187ankjdkj219
12345a345cd
12345
a345cd 2109890
2187ankjdkj219zxnmzxn
zxnmzxn
※ 引述《squalll (追求梦想~)》之铭言：
: 没想到还会回来回这一篇....
: 最近才发现这样写有些资料有问题
: 因为资料栏位中不一定会有资料,
: 最後一个栏位如果是空白的话这样输出就会错误
: 12345a345cd2187ankjdkj219zxnmzxn2109890
: 123 j12345mc1235987ccccc aaaaxxxxxxx
: 12344123222 123ascv
: 这样到第三笔输出的时候会变得很奇怪
: 预期应该会变成
: 12345,a345cd,2187ankjdkj219,zxnmzxn,2109890
: 123 ,j12345,mc1235987ccccc, aaaa,xxxxxxx
: 12344,123222,,123ascv,
: 但是实际上第三笔资料会变成
: 12344123222,123ascv之类的..
: 我的REGEXP目前是这样写
: foreach $thing (@list){
: $thing =~ s/(.{5})(.{6})(.{7})(.{8})(.{9})/$1,$2,$3,$4,$5/;
: ....
: }
: 主要应该是因为s/match一串非空白字元，并以找到的字串为结尾
: 所以当我最後一栏资料为空白的时候就会发生错误了
: 不知道有没有人遇过类似的问题? 该如何解决呢
: 我的资料是连续的..该怎麽写才可以取出度定长度的值(包含空白)
: 谢谢m(_ _)m
: ※ 引述《squalll (放逐?)》之铭言：
: : 有一堆连续的资料
: : 12345 a345cd 2187ankjdkj219 zxnmzxn 2109890
: : 123 j12345 mc1235987ccccc aaaa xxxxxxx
: : 中间有空白分隔,不过因为长度都固定,想问取固定长度的regular怎麽写呢
: : 希望能转换成这样,第一栏就固定取长度五个,第二栏六个,第三栏14个..之类的!
: : 输出结果:
: : 12345,a345cd,2187ankjdkj219,zxnmzxn,2109890
: : 123 ,j12345,mc1235987ccccc, aaaa,xxxxxxx
: : 谢谢大家 :)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.59.164.109
1F：推 godspeedlee:假如空白栏位的空白字元长度不定,那这就是解答了 10/04 14:19
2F：推 godspeedlee:不过这要长度不为0的状况下:P 10/04 14:25
3F：推 godspeedlee:另外,「.」也会match空白字元,您的解法中某些「.」 10/05 00:40
4F：→ godspeedlee:替换成\S比较好喔 10/05 00:40
5F：推 godspeedlee:还有就是「空白的栏位」的数量要等於「空白字元」 10/05 00:45
6F：→ godspeedlee:的数量的情况下您的解法才会成立..^^ 10/05 00:46
7F：推 godspeedlee:不过能想到这样写也是很厉害~ 10/05 00:53