多行按分隔符取域

t069064449

有个函数student，我想把原有逻辑注释掉，并重写下，即把这个函数的每个参数都取出来赋给一个结构体，由于每个程序员开发的不同导致这些参数可能不在一行中，但肯定是以逗号隔开的，
原：
abc = int student(name,sex,
         height,
         weight,
         address);

我的目标：
/*comment by xxx
abc = int student(name,sex,
         height,
         weight,
         address);
comment by xxx*/
/*add beg by xxx
A.stu_name = name;
A.stu_sex = sex;
A.stu_weight = weight;
A.stu_add = address;
abc = int student(A.stu_name,A.stu_sex,A.stu_weight,A.stu_add);
add end by xxx*/
请问怎么实现？（主要是问怎样把不在同一行的数据按照某种分隔符取出来）

t069064449

有人没，怎么弄

sunzhiguolu

回复 2# t069064449
能否把你希望提取的内容贴出来看下。

sunzhiguolu

没见你的示例文件中包含函数啊，那个 student 不是一个 int 类型的 Struct 吗?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $/ = ';';
   
6. while (<DATA>){
   
7.     next if (!/\bstudent\(([^()]+)/);
   
8.     print join ("\t", grep {/\A\w/} split (/\s*,\s*/, $1)), "\n";
   
9. }
   
10. 
    
11. __DATA__
    
12. /*comment by xxx
    
13. abc = int student(name,sex,
    
14.          height,
    
15.          weight,
    
16.          address);
    
17. comment by xxx*/
    
18. /*add beg by xxx
    
19. A.stu_name = name;
    
20. A.stu_sex = sex;
    
21. A.stu_weight = weight;
    
22. A.stu_add = address;
    
23. abc = int student(A.stu_name,A.stu_sex,A.stu_weight,A.stu_add);
    
24. add end by xxx*/

复制代码

perl abc.pl
------------------------------
name    sex     height  weight  address
A.stu_name      A.stu_sex       A.stu_weight    A.stu_add

jason680

回复 1# t069064449

what do you want ...

$ awk -vRS="\0" -F' *, *' '{gsub("^[^(]+[(]|).+$|\n","");$1=$1;for(n=1;n<=NF;++n)print "$"n"="$n}' FILE
$1=name
$2=sex
$3=height
$4=weight
$5=address

$ awk -vRS="\0" -F' *, *' '{gsub("^[^(]+[(]|).+$|\n","");$1=$1;for(n=1;n<=NF;++n)print "A.stu_"$n" = "$n";"}' FILE
A.stu_name = name;
A.stu_sex = sex;
A.stu_height = height;
A.stu_weight = weight;
A.stu_address = address;

t069064449

说的简单一点吧。有个1.txt，内容为
abc = int student(name,sex,
         height,
         weight,
         address);
我现在想取出每一个student(,,,,)中每个逗号隔开的量，应该怎么做？

t069064449

回复 6# jason680

可以的，谢谢