如何告诉perl执行一段生成的Perl代码？

Question

我想抓住字符串cd /a/b/c并执行以下转换 （作为更大的Perl程序的一部分）。

如果cd /a/b/c存在，那么转换cd /a/b/c → chdir '/a/b/c'和执行chdir '/a/b/c'

我可以做转换;我不能告诉perl执行我的命令。

Answer 1

如果您想查找的目录事先已知。

$str = "blah blah cd /a/b/c blah"; 
if ($str =~ /cd \/a\/b\/c/){ 
    print "found\n"; 
    chdir("https://stackoverflow.com/a/b/c"); 
} 

Answer 2

#!/usr/bin/perl 

use strict; use warnings; 

while (my $line = <DATA>) { 
    if (my ($path) = $line =~ m{^cd \s+ (/? (\w+) (?:/\w+)*)}x) { 
     warn "Path is $path\n"; 
     chdir $path 
      or warn "Cannot chdir to '$path': $!"; 
    } 
} 

__DATA__ 
cd a 
cd /a/b/c 
cd /a 

输出：

Path is a 
Cannot chdir to 'a': No such file or directory at C:\Temp\k.pl line 8, line 1. 
Path is /a/b/c 
Cannot chdir to '/a/b/c': No such file or directory at C:\Temp\k.pl line 8, line 2. 
Path is /a 
Cannot chdir to '/a': No such file or directory at C:\Temp\k.pl line 8, line 3.

Answer 3

你真正想要的是一个调度表。当你遇到一个命令，像cd，你抬头的调度表相关的子程序，你映射要运行的代码有效命令：

 
%dispatch = (
    cd => sub { chdir($_[0]) }, 
    ... 
    ); 

while(<>) 
    { 
    my($command, @args) = split; 
    if(exists $dispatch{ $command }) 
      { 
      $dispatch{ $command }->(@args); 
      } 
    } 

我有这样的事情的几个扩展示例在Mastering Perl。关于这一点的好处是，当你有新的命令时，你不会改变处理循环，而只处理你打算处理的命令。此外，您可以直接从配置构建该调度表。