我以前学过些编程,学完不知道怎么用,就没有做过相关的工作,现在又开始学习PERL语言了,但还是不知道怎么用,求大神推荐些书籍,看哪些书能提高perl,如果在工作中如何使用,我现在做linux产品的测试工作。
我看的应该是小骆驼,个人觉得里面的知识点都掌握了,不过还不知道怎么用到工作中。
打个比方,说错别骂我,随便写一个关于文件的例子:
#! /usr/bin/perl -w
use strict;
use warnings;
opendir (OD,"<$ARGV[0]") or die "can't open $ARGV[0] :$!\n";
my @myfiles = glob("*");
my $count = @myfiles;
my $i;
for($i=0;$i<$count;$i++)
{
open(OP,"<$myfiles[$i]") or die ": $!\n";
my @file_line = $myfiles[$i];
foreach(@file_line)
{
if (/name/ig)
{
print"$_\n";
}
}
close OP;
}
closedir OD;
这段代码是随意写的,只希望把大部分知识点都写出来,也不知道对不对,比如就是打开一个目录下所有的文件,把带有name的字样行打印出来。这是打印就方便的,但没有什么意义,如果是修改内容也能写,不过写个程序的时间,我可以直接打开文件修改啊,就不用程序了,我想了解自动化测试(linux),请大神推荐书籍,感 谢!
我看的应该是小骆驼,个人觉得里面的知识点都掌握了,不过还不知道怎么用到工作中。
打个比方,说错别骂我,随便写一个关于文件的例子:
#! /usr/bin/perl -w
use strict;
use warnings;
opendir (OD,"<$ARGV[0]") or die "can't open $ARGV[0] :$!\n";
my @myfiles = glob("*");
my $count = @myfiles;
my $i;
for($i=0;$i<$count;$i++)
{
open(OP,"<$myfiles[$i]") or die ": $!\n";
my @file_line = $myfiles[$i];
foreach(@file_line)
{
if (/name/ig)
{
print"$_\n";
}
}
close OP;
}
closedir OD;
这段代码是随意写的,只希望把大部分知识点都写出来,也不知道对不对,比如就是打开一个目录下所有的文件,把带有name的字样行打印出来。这是打印就方便的,但没有什么意义,如果是修改内容也能写,不过写个程序的时间,我可以直接打开文件修改啊,就不用程序了,我想了解自动化测试(linux),请大神推荐书籍,感 谢!