作者cutecpu (可爱中央处理器)
看板Perl
标题Re: [问题] 正规表示法一问
时间Thu Jun 23 17:36:40 2011
#!/usr/bin/perl -w
while(<>){
s/([^\t]*)\t/(!$1?'NA':$1)."\t"/eg;
s/\t\n/\tNA\n/;
print;
}
※ 引述《Godkin (Nostalgie)》之铭言：
: 请问各位前辈,
: 如果我有一笔资料, 当中有某种程度的缺值(Missing values)
: 例如:
: 值 值 值 值
: 值 值 值
: 值 值 值
: 当中值跟值之间都是用tab隔开
: 现在我想把里头缺值的部分替换成"NA"或是其他字串
: 这边有办法用一行perl指令或是sed之类的方式去做字串的取代吗?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.59.164.109
1F：推 Godkin:感谢!! 06/23 17:41
2F：→ windincloud:我以为只要抓出\t\t改成\tNA\t这样就好了~ :P 06/23 19:21