Perl：哈希和正则表达式中的键问题

Question

很抱歉发布另一个与我之前发布的问题类似的问题。我意识到我的问题不是很清楚，这可能会导致答案中出现一些误解。所以我想重新表述并再次询问。

我的任务是读入 2 个文件（基本配置文件和配置文件）。两个文件都可以有任意行数。行的顺序不必按顺序排列。我需要忽略“！”之后的事情和“^”。然而，我被困在忽略“！”的部分。和“^”。我能够将每一行存储到哈希中的键中（没有“！”或“^”之后的内容），但当我进行比较时它失败了。

例如，如果文件中有一行“hello！123”，我需要在哈希中仅存储“hello”，并将字符串“hello”与另一个哈希中的另一个键进行比较。如果另一个哈希中有一个“hello”键，我需要将其打印出来或将其放入另一个哈希中。我的程序只能将“hello！123”行中的“hello”放入其中，但在与另一个哈希中的另一个键进行比较时，该部分失败了。

我通过编写另一个简短的程序来检查我的正则表达式，该程序只接受用户输入并删除“！”之后的内容。和“^”符号并与另一个哈希的另一个键进行比较。

这是我的错误代码：

my %common=();
my %different=();
#open config file and load them into the config hash
open CONFIG_FILE, "< script/".$CONFIG_FILENAME or die;
my %config;
while (<CONFIG_FILE>) {
    chomp $_;
    $_ =~ s/(!.+)|(!.*)|(\^.+)|(\^.*)//;
    $config{$_}=$_;
    print "_: $_\n";
    #check if all the strings in BASE_CONFIG_FILE can be found in CONFIG_FILE
    $common{$_}=$_ if exists $base_config{$_};#stored the correct matches in %common
    $different{$_}=$_ unless exists $base_config{$_};#stored the different lines in %different
}
close(CONFIG_FILE);

有人遇到和我一样的问题吗？你会做什么来解决它？

Answer 1

我不太确定 Sakura 的问题是什么，但我认为可能是您在应该找到 $config 和 $base_config 之间的匹配项。我怀疑这可能是由于前导/尾随空格造成的，建议您编写

while (<CONFIG_FILE>) {
  s/[!^].*//;           # Remove comments
  s/^\s+//;             # and clear leading
  s/\s+$//;             # and trailing whitespace
  next if length == 0;  # Ignore empty lines
  $config{$_} = $_;
  print "_: $_\n";
  if ( $base_config{$first} ) {
    $common{$first} = $first;
  }
  else {
    $different{$first} = $first;
  }
}

您还需要确保在比较其值之前 $base_config 具有相同的处理方式。

Answer 2

my %common=();
my %different=();
#open config file and load them into the config hash
open CONFIG_FILE, "<", "script/".$CONFIG_FILENAME or die;
my %config;
while (<CONFIG_FILE>) {
    chomp;

    my ($first,$last) = (split(\!| \^,$_,2);

    $config{$first}=$first;

    print "_: $first\n";

    #check if all the strings in BASE_CONFIG_FILE can be found in CONFIG_FILE
    if ( exists $base_config{$first} ) {
            $common{$first}=$first; #stored the correct matches in %common
    } else {
        $different{$first}=$first; #stored the different lines in %different
    }
}
close(CONFIG_FILE);

这是我采取的方法 - 请注意代码未经测试，我刚刚醒来:)你可能需要修复一些事情（猜测在分割线附近......）但想法是有效的。