perl命令,perl命令详解
perl命令行参数怎么捕获
perl命令行参数怎么捕获? perl 获取命令行参数方法,以在windows操作系统为例,当我们在命令行中调用PERL程序的时候,我们往往会跟随一些参数,比如输入文件名,和输出文件名之类的信息。这些信息PERL会将它们存储在@ARGV数组中(和C语言一样)。比如在cmd中输入如下命令:
pp.pl -opcamfile opcamfile.ini -rcfile rcfile.txt -swapfile swapfile.tmp -outfile outfile.txt
PERL会建立一个数组@ARGV=qw/-opcamfile opcamfile.ini -rcfile rcfile.txt -swapfile swapfile.tmp -outfile outfile.txt/;然后我们想把这些信息做何用出就对应的处理数组,从数组中分离我们想要的数据就可以了。如下面的代码所示。shift的默认参数是@ARGV。
while?($#ARGV??-1)?{
if?($ARGV[0]?=~?/-opcamfile/i){
if?($ARGV[1]?!~?/-/)?{
$opcamfile?=?$ARGV[1];
shift;
}
shift;
}?elsif?($ARGV[0]?=~?/-rcfile/i)?{
if?($ARGV[1]?!~?/-/)?{
$rcfile?=?$ARGV[1];
shift;
}
shift;
}?elsif?($ARGV[0]?=~?/-swapfile/i)?{
if?($ARGV[1]?!~?/-/)?{
$swapfile?=?$AR?GV[1];
shift;
}
shift;
}?elsif?($ARGV[0]?=~?/-outfile/i)?{
if?($ARGV[1]?!~?/-/)?{
$outfile?=?$ARGV[1];
$outfile?=~?s/_sim//g;
shift;
}
shift;
}?else?{
die?'Unrecognized?argument,?Exiting...';
}
}
perl oneline的参数解释
1、基本格式:perl -参数 ‘命令' 输入文件
2、 perl -e 为必须要写的参数
3、 perl -pe 可用于读取文件每行,并按照给定的命令进行处理,最后输出;如将文件1.txt中的aaa替换为AAA: perl -pe 's/aaa/AAA/g' 1.txt
4、 perl -l 参数几乎可以跟n搭配代替perl经常用的 while(){chomp;} 语法
5、如果需要处理tab/空分割的文件的每一行内容,那么 perl -alne 参数几乎可以说是必备的,例如 while(){chomp;@F=split /\s+/,$_;print "$F[0]\n"} 相当于: perl -alne 'print $F[0]'
6、perl单行命令脚本里的变量都不需要预先声明,如想打印出每空行,并且每行以行数开头: perl -``ne 'print ++$a." $_" if /./'
7、perl单行命令有时优于sed/grep等shell命令是由于其优秀的正则匹配,通常简单的匹配可以如:匹配上的行号,模仿grep -c的功能: perl -lne '$a++ if /regex/; END {print $a+0}'
8、perl单行命令可以使用perl的模块,如使用sum函数的模块: perl -MList::Util=``sum -alne 'print sum @F'
9、perl也可以像awk一样使用END命令,如打印出文件中总单词个数
perl -alne '$t += @F; END { print $t}'
10、perl也可以使用 map{} 等函数,如打印出匹配上的单词的总个数: perl -alne 'map { /regex/ $t++ } @F; END { print $t }'
11、perl单行命令可以说是将perl的简洁用到了极致,如打印出匹配上的行: perl -``ne '/regex/ print'
12、perl单行命令能像perl一样灵活的使用则正表达式: perl -``ne 'print if /^\d+$/'
使用perl来处理数据的我们,会一点Perl one line可以有效的减少编写重复命令的时间,尤其是那些就用1-2次就不会用的脚本,尤其在window系统下不方便使用shell命令的时候。
PS. 当然在windows系统下也可以借用git模拟Unix命令环境~~~~
perl: 如下命令
用双引号:
perl -p -i.bak -w -e "s/a/b/g" fred.pl
---------------------------
C:\Documents and Settings\tperl -p -e "" fred.pl
abc
C:\Documents and Settings\tperl -p -i.bak -w -e 's/a/b/g' fred.pl
Useless use of a constant in void context at -e line 1.
C:\Documents and Settings\tdel fred.pl.bak
C:\Documents and Settings\tperl -p -i.bak -w -e "s/a/b/g" fred.pl
C:\Documents and Settings\tperl -p -e "" fred.pl
bbc
perl是怎样执行linux命令的
perl的调用方式很好几种,最常见的有两种。
举例如下;
1。my
$t1
=
`ps
-ef`;
$t1;
#这里会得到命令执行的结果,即进程信息
2。my
$ttt2
=
system("ps
-ef");
$t2;
#这里会得到命令执行是否成功的结果,成功会得到1
你用的是第二种方式调用,得到的是命令执行返回码,不是你想要的进程id