求助：名单列表格式转换

huazhorg

请问：用什么命令，可以将这样一个名单列表：Armstrong, A. R.; Armstrong, G.; Canales, J.; Bruce, P. G. （一些文献里的格式）
转换成这种格式： A. R. Armstrong and G. Armstrong and J. Canales and P. G. Bruce （latex识别的格式）
因为我写文章时经常遇到要将上面那种转换成下面这种格式，用手慢慢调感觉很累，特别是名单列表很长的时候。
如果用一个命令一次性转换就好了，特请高手相助，谢了。

kk5234

回复 1# huazhorg

1. awk -F",|;" '{print $2,$1,"and",$4,$3,"and",$6,$5,"and",$8,$7}' file
   
2. A.R. Armstrong and G.  Armstrong and J.  Canales and P.G.  Bruce

复制代码

是这样吗？

huazhorg

kk5234 发表于 2012-05-28 21:52
回复 1# huazhorg 是这样吗？

感觉这样不够灵活，只能适用本句话。如果换成这个：

Li, W.;  Bai, Y.;  Yang, Z. H.; Feng, X.; Lu, X. H.; Laak, N. K.; Chan, K. Y., Liu, C.
就不行了吧
关键是每个人的名字，可能简写为2个字母，如X. H. Lu, 有的则只有一个字母，如 Liu, C.
另外，还两个名字的简写字母之间有空格，例如，X. H. Lu, 其中 X. 与 H. 之间是有空格的。
所以还需要一个通用的句法。

huazhorg

设想功能：
1.能自动识别为每个分号；隔开的字段为一个人名 ; Yang, Z. H.;
2.去掉两端的分号 Yang, Z. H.
3. 将，隔开的两个部分，顺序倒换：Z. H., Yang
4. 去掉中间的逗号, Z. H. Yang
5. 对整个姓名列表操作：W. Li and Y. Bai  and Z. H. Yang and X. Feng .....
6. 能对任何姓名列表适用。

huazhorg

顶啊，没有哪位大侠能解决吗？

mpstat

huazhorg 发表于 2012-05-28 22:38
感觉这样不够灵活，只能适用本句话。如果换成这个：

Li, W.;  Bai, Y.;  Yang, Z. H.; Feng, X.; Lu ...

1. 
   
2. 
   
3. sed -r 's/ ?(\w+),(( \w\.)+)/\2 \1/g;s/;/ and/g'

复制代码

huazhorg

mpstat 发表于 2012-05-29 15:19

你这个方法我很满意，谢谢。

jils2013

1. [root@localhost shell]# cat list
   
2. Li, W.;  Bai, Y. C. D.;  Yang, Z. H.; Feng, X.; Lu, X. H.; Laak, N. K.; Chan, K. Y.; Liu, C.
   
3. [root@localhost shell]# awk 'BEGIN{RS=";|\n";FS=".";}
   
4.         {gsub(" ","",$0);
   
5.          lastname=substr($0,1,index($1,",")-1);gsub(lastname",","",$0);
   
6.          for(i=NF-1;i>0;i--)if(firstname==""){firstname=$i}else{firstname=firstname"."$i};
   
7.          if(str==""){str=firstname". "lastname}else{str=str" and "firstname". "lastname};
   
8.          firstname="";}
   
9.          END{print str}' list
   
10. W. Li and D.C.Y. Bai and H.Z. Yang and X. Feng and H.X. Lu and K.N. Laak and Y.K. Chan and C. Liu
    

复制代码

蛋疼一个awk的，逻辑有点绕，应该有比较简单的

huazhorg

6楼的这个比较简洁点，容易改造，我改成了这样的：
cat namelist.sh
#!/bin/sh
echo -n "Enter the namelist: "
read var1
echo "$var1 " >tmpfile
sed -r 's/ ?(\w+),(( \w\.)+)/\2 \1/g;s/;/ and/g' tmpfile
rm tmpfile

./namelist.sh
Enter the namelist:
Li, W.;  Bai, Y. C. D.;  Yang, Z. H.; Feng, X.; Lu, X. H.; Laak, N. K.; Chan, K. Y.; Liu, C.
W. Li and D.C.Y. Bai and H.Z. Yang and X. Feng and H.X. Lu and K.N. Laak and Y.K. Chan and C. Liu

huazhorg

现在发现6楼也有点小毛病，比如：
./namelist.sh
Enter the namelist:
Lu, X. H.; van der Laak, N. K.; Chan, K. Y.
结果显示为：
X. H. Lu and van der N. K. Laak and K. Y. Chan
(应该为... N. K. van der Laak ...)