如何告訴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。關於這一點的好處是，當你有新的命令時，你不會改變處理循環，而只處理你打算處理的命令。此外，您可以直接從配置構建該調度表。