求助：shell 脚本实现每行插入特定行的0

lin_sence

请教各位大牛，我有一个文件，内容是别人通过脚本处理另外一个原始测试log得到的。这个文件的内容记录了原始测试log里面数据1所在的行数，如下所示,第一列就表示原始log里面1所在行数，如下，第一个1出现在423行，第二个1出现在430行，以此类推。
423 1
430 1
433 1
438 1
...   ...

每次测试的结果都不同，所以得到的这个文件里面，1的所在的行数都是不确定的，不过从上到下都是递增的。原始的测试log里面除了记录1就是记录0.
我想把这个文件恢复成如下：从出现的第一个1开始，后面的1之间都用0填充。上面的示例，就会恢复成如下：
423 1
424 0
425 0
426 0
427 0
428 0
429 0
430 1
431 0
432 0
433 1
434 0
435 0
436 0
437 0
438 1
...   ...
不知道通过shell脚本怎么实现上述的功能，还请各位大牛帮忙，谢谢～

haooooaaa

1. awk 'a{while(++a<$1)print a,0}{a=$1}1'

复制代码

sunzhiguolu

1. perl -anle 'if(!$l){print;$l=$F[0];next}print "$l 0" until(++$l>=$F[0]);print "@F"' f

复制代码

423 1
424 0
425 0
426 0
427 0
428 0
429 0
430 1
431 0
432 0
433 1
434 0
435 0
436 0
437 0
438 1

lin_sence

真的可以，太牛了！非常感谢！！ 回复 2# haooooaaa


   

lin_sence

我试了下，好像有语法错误，是我哪里没弄对吗？我的windows装了activeperl，图中那个src.log文件就是我的log文件

回复 3# sunzhiguolu


   

sunzhiguolu

回复 5# lin_sence


   

lin_sence

perl 是之前有试过可以用的

回复 6# sunzhiguolu


   

sunzhiguolu

回复 7# lin_sence

1. Z:\>perl -anle "if(!$l){print;$l=$F[0];next}print qq($l 0) until(++$l>=$F[0]);print qq(@F)" f
   

复制代码

423 1
424 0
425 0
426 0
427 0
428 0
429 0
430 1
431 0
432 0
433 1
434 0
435 0
436 0
437 0
438 1
   

lin_sence

可能是我环境的问题吧，还是不行的


看了下你的结果，428和430 之间少了一个429，430重复了一个...如果明天有时间帮忙再看下，先睡啦～谢谢你！论坛有这么多热心的牛人，好感激！
回复 8# sunzhiguolu


   

sunzhiguolu

回复 9# lin_sence
是我马虎了, 谢谢您的提醒, 很高兴能够为您帮上忙.   
if (!$l)   是小写的字母 L, 把所有的变量名换掉就好了. 再试下.