如何用perl 在TXT文件中在第一列插入数值并删除 固定列后面其他的数值
展开全部
!#usr/bin/perl -w
use strict;
my $file=shift;
open IN,"<",$file;
while(<IN>){
my @line=split/\t/,$_;
print "插入数值\t$line[0]\$line[1]\n"#不输出固定列后面的数值即可
}
use strict;
my $file=shift;
open IN,"<",$file;
while(<IN>){
my @line=split/\t/,$_;
print "插入数值\t$line[0]\$line[1]\n"#不输出固定列后面的数值即可
}
更多追问追答
追问
不好意思 我是新手 能再详细点么 我在插入数值那 写入数值 “1” 后面 “0” 和“1”那写我要不输出的列的列数是么？？？ 但是在哪加入我要改写的文本文件啊？？？ 是在"<"把这个改成我的文件名么？？？？
追答
是要写你输出的列数 不输出的不写就可以了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
