需要将 file2 中与 file1 第一列匹配的字符串替换为 file1 第二列

Question

所以，如果标题没有意义，这就是我想做的：

我有 file1：

66.115.135.84:123.123.123.1
66.115.135.85:123.123.123.2
66.115.135.86:123.123.123.3
66.115.135.87:123.123.123.4
66.115.135.88:123.123.123.5
66.115.135.89:123.123.123.6
66.115.135.90:123.123.123.7
66.115.135.91:123.123.123.8
66.115.135.92:123.123.123.9
66.115.135.93:123.123.123.10
66.115.135.94:123.123.123.11
66.115.135.95:123.123.123.12
66.115.135.96:123.123.123.13
66.115.135.97:123.123.123.14

如你所见，它是 ip 地址，用“：”分隔

File2 基本上是一个 apache 虚拟主机条目，或 httpd .conf 文件。这并不重要。只需知道 file2 包含 file1 第一列中某处的 IP 地址即可。并且需要将它们替换为 file1 的第二列。

出于某种原因，这个简单的问题让我感到困惑。我尝试过一些非常粗糙的事情，但总是陷入困境。

我知道我可以使用 awk 将它们分开，并且我知道我可以将其通过管道传输到 sed 中以对 file2 进行操作。

但我似乎无法理解将第 1 列“映射”到第 2 列的最佳方法，以便这实际上可以发生。

我愿意使用 perl、ruby、python，或者实际上任何实现此目的的方法，并且我非常希望简要说明如何解决此问题。

请要求任何澄清，我很乐意提供。

非常感谢！

Answer 1

将 file1 中的 IP 对读取到哈希中，例如 $ip{$old} = $new。我假设没有重复的IP。通过 file2 查找 IP，并使用正则表达式，例如：

s#($IPregex)# $ip{$1} // $1 #eg;

编写类似以下内容的代码：

use autodie;

open my $fh, '<', "file1";
my %ip;
while (<$fh>) {
    chomp;
    my ($key, $val) = split /:/, $_, 2;
    $ip{$key} = $val;
}

open $fh, '<', "file2";
my $rx = qr/\b\d{0,3}\.\d{0,3}\.\d{0,3}\.\d{0,3}\b/;

while (<$fh>) {
    s#($rx)# $ip{$1} // $1 #eg;
    print;
}

根据需要重定向到输出文件。 IP 可能需要更好的正则表达式。

Answer 2

perl  -ne '/(.*):(.*)/; (exists $ips{$1}) ? (print "$ips{$1}\n") : ($ips{$1} = $2);' f1 f2

这会循环遍历文件 f1，然后循环遍历文件 f2。它将它们按照“：”字符分开，如果我们之前没有见过前半部分，请将其粘贴到散列中。如果我们之前看过前半部分，请打印我们存储在哈希中的值。

Answer 3

sed -e "s:$(sed -e ':a;$!N;s/\n/:g;s:/g;ta' file1):" file2

内部 sed 为外部 sed 创建一个多表达式正则表达式以应用于 file2..
要安全地就地更新原始文件，您可以通过 sponge 将输出传输到 ir（来自包 moreutils）。

Answer 4

awk '
  FILENAME == ARGV[1] {
    split($0, ary, /:/)
    map[ary[0]] = ary[1]
    next
  }
  {
    for (i=1; i<=NF; i++) {
      if ($i in map)
        $i = map[$i]
    }
    print
  }
' file1 file2 > file2.new

Answer 5

我使用perl。我们将其命名为mapper.pl。将映射文件作为参数，然后将 stdin 映射到 stdout。所以你像这样使用它

perl mapper.pl file1 < file2 > file2.new

mapper.pl 程序是这样的：

use strict;
use warnings;

# Prototypes
sub readMap($);

# Main program
{
    if( scalar(@ARGV) != 1 )
    {
        die "usage: mapper.pl mapfile";
    }
    my %map = readMap( $ARGV[0] );
    while( my $line = <STDIN> )
    {
        foreach my $old ( keys(%map) )
        {
            my $old_re = $old;
            # Escape metacharacters
            $old_re =~ s/\W/\\
amp;/g;
            $line =~ s/$old_re/$map{$old}/g;
        }
        print $line;
    }
} # END main

sub readMap($)
{
    my $mapname = $_[0];
    my %map;
    open( MAPFILE, "<$mapname" ) || die "open($mapname): $!";
    while( my $line = <MAPFILE> )
    {
        if( $line =~ /^\s*([^:]+):(.*?)\s*$/ )
        {
            $map{$1} = $2;
        }
        else
        {
            warn "Invalid line: $line";
        }
    }
    close( MAPFILE );
    return( %map );
} # END readMap

Answer 6

感谢所有精彩的答案！

我受到他们的启发，创建了一个 ruby​​ 版本：（它可以使用一些工作/减少，它还不是很 ruby​​esque，但它可以工作）

#!/usr/bin/ruby
#replaces old ips for new ips in virt file
@orig_ips=Array.new
@new_ips=Array.new
File.open("/home/kevin/scripts/ruby_scripts/test.virt", "r").each do |line|
  if line =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/
    @orig_ips.push(line.split.last.chop)
  end
end

File.open("/home/kevin/scripts/ruby_scripts/new_ip_list", "r").each do |line|
  @new_ips.push(line.split.last)
end

f = File.open("/home/kevin/scripts/ruby_scripts/test.virt")
working_file = f.read
for count in 0..@orig_ips.count - 1  do
  old = @orig_ips[count]
  new = @new_ips[count]
  working_file.gsub!(old, new)
end
puts working_file