如何使用 awk/grep 从文件中搜索存储在变量中的值

Question

这可能是微不足道的，但我在将 awk 用于简单目的时遇到问题，例如使用 tcl 脚本在文件中打印行。 我有变量 var ：

set var manager

源文件.txt：

ajay manager account 45000
sunil clerk account 25000
varun manager sales 50000
amit manager account 47000
tarun peon sales 15000
deepak clerk sales 23000
sunil peon sales 13000
satvik director purchase 80000

我想将命令放入 tcl 脚本 (awk/grep) 中，该脚本使用变量 var 在源文件中搜索字符串，然后打印包含该字符串的行的第 4 列。 我不想直接搜索经理，而是使用 var 。 我用过：

awk -v pat="$var"  {$2 ~ pat {print $4 }} sorcefile.txt

但它给了我错误提示

awk: 'pat' argument to '-v' not in var=value form

也在 tcl 脚本中：

awk '/manager/ {print $4}' sourcefile.txt

给出错误，并且

awk {/manager/ {print $4}} sourcefile.txt

效果很好 所以，需要的输出：

45000
50000
47000

我需要把命令放到一个文件里面，然后执行这个文件。

Answer 1

这是引号的位置。

$ tclsh
% set var manager
manager
+% exec awk -v pat="$var" {$2 ~ pat {print $4}} sourcefile.txt

没有输出。让我们让shell echo awk 命令而不是执行它：

% exec echo awk -v pat="$var" {$2 == pat {print $4}} sourcefile.txt
awk -v pat="manager" $2 == pat {print $4} sourcefile.txt

注意双引号如何成为那里的模式的一部分？

让我们把双引号移动一下：

% exec echo awk -v "pat=$var" {$2 == pat {print $4}} sourcefile.txt
awk -v pat=manager $2 == pat {print $4} sourcefile.txt

注意引号是怎么消失的？让我们现在执行它：

% exec awk -v "pat=$var" {$2 == pat {print $4}} sourcefile.txt
45000
50000
47000

这与Tcl rule for double quotes 相关——开头的引号必须是单词的第一个字符。

在第一种情况下，awk pat 变量的字面意思是 "manager"，并且由于没有 $2 值包含引号，因此不会发生匹配。

Answer 2

这可以简单地在 tcl 中完成

set var ...
set fi [ open "file.txt" ]
set lines [split [read $fi] "\n"]
close $fi
foreach line $lines {
        set la [ split $line ]
        if { [ lindex $la 1 ] eq $var  } {
                puts [ lindex $la 3 ]
        }

}

注意列表索引从 0 开始，awk 的 $4' 是 tcl [lindex $la 3]