小编jen*_*lee的帖子

每当我输入内容时,代码总是告诉我它存在.但我知道有些输入不存在.怎么了？

#!/usr/bin/perl

@array = <>;
print "Enter the word you what to match\n";
chomp($match = <STDIN>);

if (grep($match, @array)) {
    print "found it\n";
}

我的perl代码需要帮助.我需要能够在每行中读取一个单词且至少50行的文件.我有一个代码来打印文件中的每一行,但我如何对这些项进行排序然后将它们放到一个新文件中.

while(<>){
chomp;
print "$_ :is in the file";
}

我正在努力弄清楚如何接收文件和(我认为<>逐行解析文件)将其放入另一个文件.

如果我们可以在Perl中执行此操作,那也没关系.我不知道这是否可能,但这是我想要做的.我试图获得内存使用的内存百分比(可能有更好的方法,请告诉我)

我有这个bash命令

free -m | grep "Mem: " | awk '{print ($3/$2)*100}' 

这将返回一个数字,但我想要做的是将一个变量设置为命令的输出.

So var1= Output of the above command