码表格式转换的问题

i659

windows中的码表类似于下面

工a aaa
式aa aay
工aaa
工aaaa
葡萄牙aaah
工区aaar
匿aad aadk

如何用awk命令或是sed命令使得上面的格式变为:


工a
工 aaa
式 aa
式 aay
工aaa
工aaaa
葡萄牙aaah
工区aaar
匿 aad
匿 aadk

x11

用perl吧

1. 
   
2. #!/usr/bin/perl -w
   
3. foreach (<>) {
   
4.   $_ =~ /^([^a-z]*)([a-z ]*)$/;
   
5.   @a = split(" ", $2);
   
6.   for ($i=0; $i < @a; ++$i) {
   
7.     print "$1 $a[$i]\n";
   
8.   }
   
9. }
   

复制代码