История изменений
Исправление Deleted, (текущая версия) :
fix:
perl -lne '$i=1 if /^"\d+"/; $& eq $d ? do {print $& if $j++,$j==1} : ($j=0); /^"\d+"/ && $i ? $i=0 : print; $d=$&'
Исправление Deleted, :
ошибочка:
perl -lne '$i=1 if /^"\d+"/; $& eq $d ? do {print $& if $j++,$j==1} : ($j=0); /^"\d+"/ && $i ? $i=0 : print; $d=$&'
Исходная версия Deleted, :
ошибочка:
perl -lne '$i=1 if /^"\d+"/; $& eq $d ? do {print $& if $j++,$j==1} : ($j=0); /^"\d+"/ && $i ? $i=0 : print; $d=$&'