要检查指定的输入文件

时间:2018-08-20 04:35:27

标签: shell perl

我正在处理代码以检查给定的输入文件是否正确。 我们将向lsf提交文件(例如runfile);我们将指定一些文件作为输入,例如:

运行文件

input_file = input.txt
inputanother_file = another.tcl

input.txt

1
2
3
4

another.tcl

merge = aaa -bbb -ccc merge.txt

merge.txt

cell (1)
  { something ;
    something else ;
   }
   cell (2)
   { something ;
    something else ;
   }

我应该在runfile中搜索以获得another.tcl,在another.tcl中又有一个merge.txt文件(其中包含有关输入内容的详细信息),所以我应该检查此merge.txt是否存在。如果存在,我应该搜索inputs.txt的内容。 我已经编写了将搜索another.tcl的代码,并且它将检查merge.txt,但是我无法在input.txt中找到merge.txt的内容:

open(my $fh, '<', 'runfile') or die "Could not open runfile: $!";
system(" cat ` grep -i '.tcl' runfile | cut -f2 -d "="` | grep -i 'merge' | cut -f6 -d " " ");

0 个答案:

没有答案