提取两个逗号之间的字符？

由于cut默认情况下打印非定界行，因此以下工作

cut -f2 -d, file

awk -F, 'NF > 1 { $1 = $2 } { print $1 }' file

这用于awk将文件解析为由逗号分隔的字段组成的行。

代码检测一行中何时有多个字段，如果有，则将第一个字段替换为第二个字段。然后打印未修改或由条件代码修改的第一个字段。

awk -F, 'NF == 1 {print $1}
         NF > 1 { print $2}' filename

如果没有逗号，这将只打印第一个字符串，如果有一个或多个逗号，则打印第二个字符串。

您可以Perl按以下方式执行此操作。

命令行：

$ perl -F, -pale '$_ = $F[1] // $_' out.txt

解释：

• -p在进入读取下一个或 eof 之前，将逐行读取记录并自动打印。
• -l使IRS = ORS = "\n"
• -F,做FS一个逗号。
• -a在字段分隔符上分割每条记录$_，在我们的例子中是逗号，然后将生成的字段存储在数组中@F，该数组是零索引的。
• -e暗示，紧随其后的是Perl代码，将应用于每条记录。
• $_ = $F[1] // $_表达式如下：如果$F[1]未定义第二个字段，则使用当前记录$_。然后将此表达式的结果分配给当前记录$_。
• 由于正在使用的-p切换，在读入新记录之前，将当前记录取为.perlstdout

结果：

NA
NA
NA
NA
NA
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85753
gene85752
gene85752

您也可以使用 GNU 版本的sed编辑器来执行此操作，如下所示：

$ sed -ne '
    s/,/\n/
    s/.*\n//
    s/,/\n/
    P
' out.txt