跪求：txt文件格式，有7列，將第7列的數(shù)字 除以65536取余數(shù)還是放在原位置

bfzy1212

txt文件格式如下,就是用Cell_ID這一列除以65536取余數(shù)還是放在原位置，跪求幫助：
DateTime        Longitude        Latitude        PCCPCH_RSCP        PCCPCH_C/I        LAC        Cell_ID
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863
48:15.2        103.5139983        30.587255        -67        16        61736        134998863

結(jié)果如下：
DateTime        Longitude        Latitude        PCCPCH_RSCP        PCCPCH_C/I        LAC        Cell_ID
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239
48:15.2        103.5139983        30.587255        -67        16        61736        60239

bfzy1212

請大家?guī)兔?/td>

zhlong8

在命令行

1. perl -pe "s/(\d+)$/$1 % 65536/e" filename

復制代碼

xfilesliuli

#!/usr/bin/perl -w
use strict;
$^I=".bak";

my $file="/tmp/xxx/file";
push @ARGV,$file;
while(<>){
        s/(\d+)$/$1%65536/ge;
        print;
}

jason680

回復 1# bfzy1212

$ perl -i -lape '{if($.!=1){$F[$#F]%=65536}}' txt