请问大神，单用awk能输出与正则表达式匹配的内容吗？

sxingbai

回复 10# jason680

比如这段文字：
及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）

想要提取“疾”字所在的句子以及最后括号以其中的内容
目前采用的方法是：
awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'

抱歉，我不是不举例，只是我更想要通用的方法而不是根据情况通过变更分隔符的方法实现。
再次感谢！

sxingbai

回复 10# jason680

比如这段文字：
及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）

想要提取“疾”字所在的句子以及最后括号以其中的内容
目前采用的方法是：
awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'

抱歉，我不是不举例，只是我更想要通用的方法而不是根据情况通过变更分隔符的方法实现。
再次感谢！

sxingbai

回复 10# jason680
比如这段文字：
载衔恨颇深。及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）

比如要提取“疾”字所在的句子以及最后的括号以及其间的内容，我目前采用的方法是：
awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'

抱歉，我不是不想举例，而是想知道通用的方法而不是根据文本情况用变更分隔符的方法实现。
再次感谢！

sxingbai

回复 10# jason680
比如这段文字：
载衔恨颇深。及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）

我这样写：
awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'

没有举例，主要是不想涉及分隔符，而求得一种通用方法。
多谢！

sxingbai

1. 比如这段文字：
   
2. 载衔恨颇深。及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）
   
3. 
   
4. 我这样写：
   
5. awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'
   
6. 
   
7. 没有举例，主要是不想涉及分隔符，而求得一种通用方法。
   
8. 多谢！
   

复制代码

回复 10# jason680

sxingbai

回复 10# jason680

怎么不能回复？

sxingbai

比如这段文字：
载衔恨颇深。及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾。既无禄俸，家复贫乏，孀孤百口，丐食取给。萍寄诸州，凡十五六年，其牧守稍薄，则又移居，故其迁徙者，盖十余州焉。元载以罪诛，除揆睦州刺史，入拜国子祭酒、礼部尚书，为卢杞所恶。德宗在山南，令充入蕃贫会盟使，加左仆射。行至凤州，以疾卒，兴元元年四月也，年七十四。（节选自《旧唐书·李揆传》）

我这样写：
awk '{while(match($0,/([^。？！：]*疾[^。？！：]*)(.+)(（.+）)/,arr)){print arr[1],arr[3];sub(/([^。？！：]*疾[^。？！：]*)/,"")}}'

没有举例，主要是不想涉及分隔符，而求得一种通用方法。
多谢！

sxingbai

抱歉，因为传输错误，上传了这么多次

jason680

回复 11# sxingbai

How about this way for 通用的方法 ...

$ awk -f get_xxx.awk FILE
及载登相位，因揆当徙职，遂奏为试秘书监，江淮养疾 （节选自《旧唐书·李揆传》）
行至凤州，以疾卒，兴元元年四月也，年七十四 （节选自《旧唐书·李揆传》）

$ cat get_xxx.awk
function get_char(){
  if(match($0,"(（.+）)",m)){
    sub("(（.+）)","")
    return m[1]
  }
  return "";
}
function print_all(str,key,char){
  while(match(str,"([^。？！：]*"key"[^。？！：]*)",m)){
    str = substr(str,RSTART+RLENGTH);
    #sub(key,"<"key">",m[1]);
    print m[1],char;
  }
}
{
  char = get_char();
  print_all($0,"疾",char);
}

sxingbai

回复 19# jason680

多谢！