编写一个脚本，给出其中有多少行有“X”和“Y”？

Question 1

尝试一下：

#!/usr/bin/awk -f
BEGIN {
  wordssize=split(s,words,"%");
  if (wordssize==0) {
    words[1]=s;
    wordssize=1;
  }
  characterssize=0;
}
{
  if ($0 ~ /^ *[^:][^:]* *:/) {
    character=substr($1,1,index($0,":")-1);
    for (i=length(character);substr(character,i)==" ";i--){
        character=substr(character,1,length(character)-1);
    }
  }
  if (!lines[character]) {
    lines[character]=1;
    for(i=1; i<=wordssize; i++) {
      markers[words[i] " " character]=0;
    }
    characters[++characterssize]=character;
  } else {
    lines[character]++;
  }
  for(i=1; i<=wordssize; i++) {
    line=$0;
    while ((position=index(line,words[i]))>0) {
      markers[words[i] " " character]++;
      line=substr(line,position+length(words[i]));
    }
  }
}
END {
  printf("%9s %s","Character","Lines");
  for(i=1; i<=wordssize; i++) {
    printf(" %s", words[i]);
  }
  printf ("\n");
  for (i=1;i<=characterssize;i++) {
    printf("%9s %-5d",characters[i],lines[characters[i]],markers[characters[i]]);
    for(j=1; j<=wordssize; j++) {
      printf(" %-" length(words[j]) "d", markers[words[j] " " characters[i]]);
    }
    printf ("\n");
  }
}

如果当前行以字母开头并且:，这特点变量被分配找到的名称。每行文本均针对每个字符进行计数。每次搜索的顺序（例如？) 遇到时，字符的标记计数器会增加。

如果一个角色说了几行，上面的脚本将成功计算出序列，例如？，在整个行块中。

要搜索的字符串指定为-vs=“？”。可以同时搜索多个字符串。分隔要搜索的字符串%:-vs="?% //"。

如果有多个文件名，该脚本可以一次搜索多个文件。

在输出中，字符按出现顺序列出。

考试：

$ chmod +x compteur
$ ./compteur -v s="?%//%'%t'es" Communication
Character Lines ? // ' t'es
  Antoine 2     0 1  0 0
  Eliahou 3     3 0  3 1
   Delmas 3     0 1  3 0

$ ./compteur -v s="?" Communication
Character Lines ?
  Antoine 2     0
  Eliahou 3     3
   Delmas 3     0

----

历史的第一个版本

#!/usr/bin/awk -f
{
  if ($1 ~ /^[^:][^:]*:/) {
    character=substr($1,1,index($1,":")-1);
  }
  line=$0;
  lines[character]++;
  while ((position=index(line,s))>0) {
    markers[character]++;
    line=substr(line,position+length(s));
  }
}
END {
  printf("%9s %s %s","Character","Lines",s);
  for (character in lines) {
    printf("\n%9s %-5d",character,lines[character]);
    if (markers[character]) {
      printf(" %-3s",markers[character]);
    }
  }
  printf("\n");
}

Answer

尝试一下：

#!/usr/bin/awk -f
BEGIN {
  wordssize=split(s,words,"%");
  if (wordssize==0) {
    words[1]=s;
    wordssize=1;
  }
  characterssize=0;
}
{
  if ($0 ~ /^ *[^:][^:]* *:/) {
    character=substr($1,1,index($0,":")-1);
    for (i=length(character);substr(character,i)==" ";i--){
        character=substr(character,1,length(character)-1);
    }
  }
  if (!lines[character]) {
    lines[character]=1;
    for(i=1; i<=wordssize; i++) {
      markers[words[i] " " character]=0;
    }
    characters[++characterssize]=character;
  } else {
    lines[character]++;
  }
  for(i=1; i<=wordssize; i++) {
    line=$0;
    while ((position=index(line,words[i]))>0) {
      markers[words[i] " " character]++;
      line=substr(line,position+length(words[i]));
    }
  }
}
END {
  printf("%9s %s","Character","Lines");
  for(i=1; i<=wordssize; i++) {
    printf(" %s", words[i]);
  }
  printf ("\n");
  for (i=1;i<=characterssize;i++) {
    printf("%9s %-5d",characters[i],lines[characters[i]],markers[characters[i]]);
    for(j=1; j<=wordssize; j++) {
      printf(" %-" length(words[j]) "d", markers[words[j] " " characters[i]]);
    }
    printf ("\n");
  }
}

如果当前行以字母开头并且:，这特点变量被分配找到的名称。每行文本均针对每个字符进行计数。每次搜索的顺序（例如？) 遇到时，字符的标记计数器会增加。

如果一个角色说了几行，上面的脚本将成功计算出序列，例如？，在整个行块中。

要搜索的字符串指定为-vs=“？”。可以同时搜索多个字符串。分隔要搜索的字符串%:-vs="?% //"。

如果有多个文件名，该脚本可以一次搜索多个文件。

在输出中，字符按出现顺序列出。

考试：

$ chmod +x compteur
$ ./compteur -v s="?%//%'%t'es" Communication
Character Lines ? // ' t'es
  Antoine 2     0 1  0 0
  Eliahou 3     3 0  3 1
   Delmas 3     0 1  3 0

$ ./compteur -v s="?" Communication
Character Lines ?
  Antoine 2     0
  Eliahou 3     3
   Delmas 3     0

----

历史的第一个版本

#!/usr/bin/awk -f
{
  if ($1 ~ /^[^:][^:]*:/) {
    character=substr($1,1,index($1,":")-1);
  }
  line=$0;
  lines[character]++;
  while ((position=index(line,s))>0) {
    markers[character]++;
    line=substr(line,position+length(s));
  }
}
END {
  printf("%9s %s %s","Character","Lines",s);
  for (character in lines) {
    printf("\n%9s %-5d",character,lines[character]);
    if (markers[character]) {
      printf(" %-3s",markers[character]);
    }
  }
  printf("\n");
}

Question 2

假设 shell 变量a保存您正在查找的字符串，并假设该字符串永远不是任何人姓名的一部分（如果是，则 - 模式grep需要扩展以仅在第一个之后匹配:）并假设它:永远不是任何人姓名的一部分人名并假设a不包含换行符：

cat Communication | grep -F "${a}" | awk -F ':' '{print $1}' | sort | uniq -c

不要转义的内容a，因为有-F- 选项grep。的内容a按字面意思理解（只要它不包含换行符）。

如果人名可以包含您要查找的字符串，则以下方法有效，但请记住转义其中a可能具有特殊模式匹配含义的任何字符grep（即，如果您查找.，但\.进入a，如果您寻找?、使用\?等）：

cat Communication | grep -E "^[^:]*:.*${a}" | awk -F ':' '{print $1}' | sort | uniq -c

或者，特别是回答您的三个子问题：

谁提出问题（谁的报价中有“？”），需要多长时间

cat Communication | grep -F '?' | awk -F ':' '{print $1}' | sort | uniq -c

谁打断了某人的话（他们的引言中有一个“//”）

cat Communication | grep '//' | awk -F ':' '{print $1}' | sort | uniq -c

谁做了一些省略（“t'es”而不是“tu es”（“you're”而不是“you are”）以及频率......

cat Communication | grep "'" | awk -F ':' '{print $1}' | sort | uniq -c

（我知道所有这些都是“猫的无用使用”，但它使数据流更清晰，首先然后cat通过管道进入grep。也可以使用grep -F "${a}" Communication | [...]等代替）

Answer

假设 shell 变量a保存您正在查找的字符串，并假设该字符串永远不是任何人姓名的一部分（如果是，则 - 模式grep需要扩展以仅在第一个之后匹配:）并假设它:永远不是任何人姓名的一部分人名并假设a不包含换行符：

cat Communication | grep -F "${a}" | awk -F ':' '{print $1}' | sort | uniq -c

不要转义的内容a，因为有-F- 选项grep。的内容a按字面意思理解（只要它不包含换行符）。

如果人名可以包含您要查找的字符串，则以下方法有效，但请记住转义其中a可能具有特殊模式匹配含义的任何字符grep（即，如果您查找.，但\.进入a，如果您寻找?、使用\?等）：

cat Communication | grep -E "^[^:]*:.*${a}" | awk -F ':' '{print $1}' | sort | uniq -c

或者，特别是回答您的三个子问题：

谁提出问题（谁的报价中有“？”），需要多长时间

cat Communication | grep -F '?' | awk -F ':' '{print $1}' | sort | uniq -c

谁打断了某人的话（他们的引言中有一个“//”）

cat Communication | grep '//' | awk -F ':' '{print $1}' | sort | uniq -c

谁做了一些省略（“t'es”而不是“tu es”（“you're”而不是“you are”）以及频率......

cat Communication | grep "'" | awk -F ':' '{print $1}' | sort | uniq -c

（我知道所有这些都是“猫的无用使用”，但它使数据流更清晰，首先然后cat通过管道进入grep。也可以使用grep -F "${a}" Communication | [...]等代替）

编写一个脚本，给出其中有多少行有“X”和“Y”？

实际文本

答案1

----

答案2

相关内容