perl - 在 Perl 中查找并替换文本文件中的字符串

Question

我真的不知道该怎么做。试了很多方法，不知道为什么都不行。这是我尝试过的示例:

{
    open my $fh1, '<', 'hex1.txt';
    open my $fh2, '<', 'hex2.txt';

    until ( eof $fh1 or eof $fh2 ) {

        my @l1 = map hex, split //, <$fh1>;
        my @l2 = map hex, split //, <$fh2>;

        my $n = @l2 > @l1 ? @l2 : @l1;

        my @sum = map {
            no warnings 'uninitialized';
            $l1[$_] + $l2[$_];
        } 0 .. $n - 1;

        @sum = map { sprintf '%X', $_ } @sum;

        open my $out, '>', 'hexsum.txt';
        print {$out} @sum, "\n";
    }
    close $fh1;
    close $fh2;
}

{
    open my $IN,  "<", 'hexsum.txt';
    open my $OUT, ">", 'sym.txt';
    while ( my $linie = <$IN> ) {
        $linie =~ s/40/20/g;
        print $OUT $linie;
    }
    close $IN;
    close $OUT;
}

{
    my $input = do {
        open my $in, '<', 'hexsumspace.txt';
        local $/;
        <$in>;
    };

    open my $out, '>', 'sym.txt';
    print $out pack 'H*', $input;
}

我如何在发现值 40 和值 20 的任何地方更改它？

Answer 1

use strict;
use warnings;

open my $OUT, ">", 'output.txt';
open my $IN, "<", 'input.txt';
while (my $line = <$IN>) {
    $line =~ s/40/20/g;
    print $OUT $line;
}
close $IN;
close $OUT;