- 论坛徽章:
- 8
|
本帖最后由 kernel69 于 2013-12-12 11:23 编辑
来个perl吧- $ cat p.pl
- #!/usr/bin/env perl
- while(<DATA>) {
- @F = split/'/;
- print join "'", @F[0..2],"X" x length $F[3],@F[4..6],"X" x length $F[7],$F[8];
- }
- __DATA__
- 121 insert into user values('张三','112323198111112932','18611382732','4428991233299999')
- 130 insert into user values('李四','22900220100228291X','13901028374','5187111192828888')
- 140 insert into user values('王五','30100219491231829X','15810192837','6222020211102937776')
- $ ./p.pl
- 121 insert into user values('张三','XXXXXXXXXXXXXXXXXX','18611382732','XXXXXXXXXXXXXXXX')
- 130 insert into user values('李四','XXXXXXXXXXXXXXXXXX','13901028374','XXXXXXXXXXXXXXXX')
- 140 insert into user values('王五','XXXXXXXXXXXXXXXXXX','15810192837','XXXXXXXXXXXXXXXXXXX')
- $
复制代码 搞个命令行的perl,就因为是单引号'是分割符,怎么也出不来效果,还是对shell解析不太了解
@yestreenstars 怎么修改成命令行的?- pi@raspberrypi ~/perl $ cat data
- 121 insert into user values('张三','112323198111112932','18611382732','4428991233299999')
- 130 insert into user values('李四','22900220100228291X','13901028374','5187111192828888')
- 140 insert into user values('王五','30100219491231829X','15810192837','6222020211102937776')
- pi@raspberrypi ~/perl $ perl -F/\'/ -lane 'print join "\047", @F[0..2],"*" x length $F[3],@F[4..6],"*" x length $F[7],$F[8]' data
- 121 insert into user values('张三','******************','18611382732','****************')
- 130 insert into user values('李四','******************','13901028374','****************')
- 140 insert into user values('王五','******************','15810192837','*******************')
- pi@raspberrypi ~/perl $
复制代码 回复 1# trubee
|
|