哪位大虾帮帮我，要简洁一点的！

yilingongzhu

字符串：     a|b|c|d|e|f|g|h|
如何循环变成：
1:a|b|c|d|?|?|?|?|
2|b|c|d|e|?|?|?|
3|?|c|d|e|f|?|?|
4|?|?|d|e|f|g|?|
5|?|?|?|e|f|g|h|
6:a|?|?|?|?|f|g|h|
7:a|b|?|?|?|?|g|h|
8:a|b|c|?|?|?|?|h|

谢谢！

ly5066113

try:

1. $ echo 'a|b|c|d|e|f|g|h|' | awk 'BEGIN{FS=OFS="|"}{s=$0;for(i=1;i<=8;i++){for(j=1;j<=4;j++){k=i+j+3;if(k>8)k=k%8;$k="?"}print i":"$0;$0=s}}'
   
2. 1:a|b|c|d|?|?|?|?|
   
3. 2:?|b|c|d|e|?|?|?|
   
4. 3:?|?|c|d|e|f|?|?|
   
5. 4:?|?|?|d|e|f|g|?|
   
6. 5:?|?|?|?|e|f|g|h|
   
7. 6:a|?|?|?|?|f|g|h|
   
8. 7:a|b|?|?|?|?|g|h|
   
9. 8:a|b|c|?|?|?|?|h|

复制代码

xiaopan3322

回复 2# ly5066113
先收藏再学习……awk真无敌啊

yinyuemi

1. echo "a|b|c|d|e|f|g|h|" |awk '{split($1,a,"|")}{for (i=1;i<=8;i++) {printf i":";{for (j=1;j<=8;j++) {printf("%s|", (i-j>4||(i-j>-4 &&i-j<1)?a[j]:"?"))}{print ""}}}}'
   
2. 1:a|b|c|d|?|?|?|?|
   
3. 2:?|b|c|d|e|?|?|?|
   
4. 3:?|?|c|d|e|f|?|?|
   
5. 4:?|?|?|d|e|f|g|?|
   
6. 5:?|?|?|?|e|f|g|h|
   
7. 6:a|?|?|?|?|f|g|h|
   
8. 7:a|b|?|?|?|?|g|h|
   
9. 8:a|b|c|?|?|?|?|h|
   

复制代码

jason680

字符串：     a|b|c|d|e|f|g|h|
如何循环变成：
1:a|b|c|d|?|?|?|?|
2|b|c|d|e|?|?|?|
3|?|c|d|e| ...
yilingongzhu 发表于 2011-01-05 19:40

# echo 'a|b|c|d|e|f|g|h|' | perl -F'\|' -ane '{$"="|";sub x{($x,@x)=@_;$x[$_%8]="?" for($x+3..$x+6);print"$xx"}x($_,@F)for(1..}'
1:a|b|c|d|?|?|?|?|
2|b|c|d|e|?|?|?|
3|?|c|d|e|f|?|?|
4|?|?|d|e|f|g|?|
5|?|?|?|e|f|g|h|
6:a|?|?|?|?|f|g|h|
7:a|b|?|?|?|?|g|h|
8:a|b|c|?|?|?|?|h|

yilingongzhu

感谢以上各位的不吝赐教！十分感谢！
awk很强大，我要学习了！！！