注册求助；如何删除txt文档每行未尾的统计数(已解决！请围观)

pkd19800128

  有系统导出的数据格式如下面的样本文件，需要去掉每行未尾的统计数字，由于数据较大用excel导进导出处理很麻烦，想用perl解决，望各位大侠抽些时间，帮忙写个代码，谢谢各位先！

系统导出的样本文件： a.txt
11 26 55 79 89 92    105
11 23 59 73 89 82      55
01 12 13 14 15 16      42
01 02 03 09 20 52      51
01 22 23 29 40 55      23
11 22 43 59 61 77      11
01 02 03 09 10 18    132
01 32 63 69 70 99        1
01 02 03 09 10 20        2
12 22 23 39 40 51     121
01 02 03 09 10 23      33
01 02 03 09 10 24      12
01 02 03 09 10 25        9
01 02 03 09 10 30        3
01 02 03 09 10 33    156
01 02 03 09 12 15        5

想要的结果： b.txt
11 26 55 79 89 92     
11 23 59 73 89 82      
01 12 13 14 15 16      
01 02 03 09 20 52      
01 22 23 29 40 55      
11 22 43 59 61 77      
01 02 03 09 10 18   
01 32 63 69 70 99        
01 02 03 09 10 20        
12 22 23 39 40 51   
01 02 03 09 10 23      
01 02 03 09 10 24      
01 02 03 09 10 25        
01 02 03 09 10 30        
01 02 03 09 10 33   
01 02 03 09 12 15        

kk861123

1. perl -pe "s/\s+\S+$//" a.txt > b.txt

复制代码

jeppeter

回复 1# pkd19800128


    直接用awk 来做更合适

1. awk '{for(i=1;i<NF;i++){printf("%s ",$i)} printf("\n")}'

复制代码

kernel69

为什么要加一个n的参数那？-pe应该就搞定了
回复 2# kk861123


   

kk861123

回复 4# kernel69


    谢谢，已修正

pkd19800128

谢谢几位大侠！本人小白一个，
只知道这样可进入运行#!/usr/bin/perl
请问如何运行这个代码？ perl -pe "s/\s+\S+$//" a.txt > b.txt
awk更没接触过求指点？

kernel69

直接在终端下执行就行了
回复 6# pkd19800128


   

iakuf

kk861123 发表于 2013-03-16 16:35

加 -i 更新合适，都不需要重定向。基本用 Perl 做起来远比 awk 方便。

1. perl -i.bak -pe "s/\s+\S+$//" a.txt

复制代码

pkd19800128

终端下执行perl -pe "s/\s+\S+$//" a.txt > b.txt 生成的b.txt不符合要求，没有去掉统计数……

谢谢kernel69让我了解了这类一行脚本的运行方法

望哪位大侠抽个时间帮忙写个perl代码！终端下执行不方便

kk861123

回复 9# pkd19800128


    你的数据貌似在结尾还会有空格？给你个脚本 - -

1. #!/usr/bin/perl -lp -i'.bak'
   
2. s/\s+\S+\s*$//;

复制代码