情况
我正在创建一个简单的模板文件,以帮助在*nix系统上通过命令行执行各种任务的未来脚本。作为其中的一部分,我可能需要要求用户输入需要根据源代码中提供的正则表达式进行验证的数据。
问题
当我尝试通过命令行运行Perl代码时,出现了错误。我试图将正则表达式传递到repeat子例程中,但不确定如何确切地做到这一点。我知道我可以使用eval来执行字符串,但由于惯例,我想避免这样做。
错误信息:
Use of uninitialized value $_ in pattern match (m//) at scripts/template line 40.
Use of uninitialized value $resp in concatenation (.) or string at scripts/template line 37.
代码:
#!/usr/bin/env perl
use strict;
use warnings;
use Cwd;
use Term::ANSIColor;
use Data::Dumper;
my $log = "template.log";
my $task = "template";
my $cwd = getcwd();
my $logPath = $cwd . "/". $log;
print ucfirst($task) . " utility starting...\n";
system("cd ~/Desktop");
system("touch " . $log);
&writeLog("Test");
sub writeLog {
open(my $fh, '>>', $logPath) or die "Could not open file '$log' $!";
print $fh $_[0] . localtime() . "\n";
close $fh;
return 1;
}
sub ask {
my $question = $_[0];
my $input = $_[1];
my $resp = <>;
chomp($resp);
}
sub repeat {
my $pat = $_[0];
my $resp = $_[1];
print $pat . "\n";
print $resp . "\n";
}
&repeat(/foo|bar/i, "y");
我尝试过以下方法:
基于以下资源:
- Match regex and assign results in single line of code
- How to assign result of a regex match to a new variable, in a single line?
sub repeat {
my $pat =~ $_[0];
my $resp = $_[1];
if($pat !~ $resp) {
print "foo\n";
} else {
print "bar\n";
}
}
非常感谢您提供的任何帮助!
&repeat(/foo|bar/i, "y");
并不是传递一个正则表达式,而是传递了$_ =~ /foo|bar/i
的结果。 - foibs