#!perl -lp my%h;while(/@{['\D+(\d+)'x4]}/g){for$;($1..$1+$3-1){$h{1,$_}.=$&for$2..$2+$4-1}}$_=join$",map{$_,($t=s//.*/gr)+map/$t/,%h}ab,ac,bc,abc
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page