perl接受传递参数的几种方法
答案:2 悬赏:10
解决时间 2021-03-15 03:35
- 提问者网友:无悔疯狂
- 2021-03-14 09:30
perl接受传递参数的几种方法
最佳答案
- 二级知识专家网友:摧毁过往
- 2021-03-14 10:26
1.使用一个参数读取shell传递来的多个参数:目录下:
a.log
b.log
c.logdota.pldota.pl的内容如下:
#! /usr/bin/perl
use Getopt::Std;
use warnings;
use strict;
sub read_from_sh($) {
my $file = shift;
my @files = ();
open F, $file or die "Could not open $file: $!";
while (
next if /^\s*$/;
push @files, $_;}close F or die "Could not close $file: $!";
return @files;}my @files;my %opts = ();
getopts("s:", \%opts);
if ($opts{'s'}) {
@files = read_from_sh($opts{'s'});}else {@files = @ARGV;}for my $file (@files) {
print "file: $file\n";}运行的shell如下:
find -name '*log' | /usr/bin/perl dota.pl -s -结果如下:file:a.logfile:b.logfile:c.log或者直接塞给perl:/usr/bin/perl dota.pl a.log b.log结果同上
2.向perl程序传递多个参数:
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use vars qw($opt_a $opt_b $opt_c);
getopts('a:b:c:');
print "\$opt_a =; $opt_a\n" if $opt_a;
print "\$opt_b =; $opt_b\n" if $opt_b;
a.log
b.log
c.logdota.pldota.pl的内容如下:
#! /usr/bin/perl
use Getopt::Std;
use warnings;
use strict;
sub read_from_sh($) {
my $file = shift;
my @files = ();
open F, $file or die "Could not open $file: $!";
while (
push @files, $_;}close F or die "Could not close $file: $!";
return @files;}my @files;my %opts = ();
getopts("s:", \%opts);
if ($opts{'s'}) {
@files = read_from_sh($opts{'s'});}else {@files = @ARGV;}for my $file (@files) {
print "file: $file\n";}运行的shell如下:
find -name '*log' | /usr/bin/perl dota.pl -s -结果如下:file:a.logfile:b.logfile:c.log或者直接塞给perl:/usr/bin/perl dota.pl a.log b.log结果同上
2.向perl程序传递多个参数:
#!/usr/bin/perl -w
use strict;
use Getopt::Std;
use vars qw($opt_a $opt_b $opt_c);
getopts('a:b:c:');
print "\$opt_a =; $opt_a\n" if $opt_a;
print "\$opt_b =; $opt_b\n" if $opt_b;
全部回答
- 1楼网友:绝望伪装
- 2021-03-14 11:05
我想你的前面应该有这样写吧
my $q = new cgi; 或者 my $q = new->cgi();
而之後的, 应该是写做
$q->param ( .... ) ;
而不是 param () ...
因为 param() 是 cgi 这个类里面的方法,
所以你不能直接写 param();
这样 perl 会认为你呼叫 main:: 里面的 param() 方法, 那当然是不行了
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯