perl - 如何使用 sed/awk/perl 从数字中删除前导和尾随零?

标签 perl bash sed awk

我有这样的文件:

pup@pup:~/perl_test$ cat numbers 
1234567891
2133123131
4324234243
4356257472
3465645768000
3424242423
3543676586
3564578765
6585645646000
0001212122
1212121122
0003232322

在上面的文件中,我想删除前导零和尾随零,所以输出将是这样的

pup@pup:~/perl_test$ cat numbers 
1234567891
2133123131
4324234243
4356257472
3465645768
3424242423
3543676586
3564578765
6585645646
1212122
1212121122
3232322

如何实现?我试过 sed 来删除那些零。删除尾随零很容易,但不删除前导零。

帮帮我。

最佳答案

perl -pe 's/^0+ | 0+$//xg' numbers

关于perl - 如何使用 sed/awk/perl 从数字中删除前导和尾随零?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18714645/

相关文章:

perl - 为什么Perl子程序原型(prototype) `foo()`可以带参数?

Perl DBIx::Class - 使用 new() 时的默认值?

mysql - 我将使用什么从大量数据中删除转义的 html

linux - 如何在子shell中设置变量?

macos - 无法在 Mac OsX 上编辑 bash_profile

linux - SED变量包含美元符号

perl - perl中的单引号和双引号

regex - 用 sed 替换两个已知字符串之间的未知字符串

linux - 如何在 linux 的日志文件中获取时间范围?

c - 使用 sed 删除 C/C++ 文件中的函数体