perl或者awk依次每10字符截取字符串

while?(<DATA>)?{

if?(/>(\d+)/)?{

$d?=?$1;

$_?=?<DATA>;

chomp;

for?$i(0..length($_)-10)?{

print?">$d($i)\n",?substr($_,?$i,?10),?"\n";

}

}

}

__DATA__

>1

aaaassssdddd

>2

hhhhjjjjkkkk