博客

Cache all in Perl

use strict;
use warnings;

print "input filename :  \n";

my $filename = <STDIN>;
chomp $filename;# drop \n 

my $data = read_file($filename);

$data =~ s/ld.global/ld.global.ca/g;
write_file($filename, $data);
exit;

sub read_file {
    my ($filename) = @_;

    open my $in, '<:encoding(UTF-8)', $filename or die "Could not open '$filename' for reading $!";
    local $/ = undef;
    my $all = <$in>;
    close $in;

    return $all;
}

sub write_file {
    my ($filename, $content) = @_;

    open my $out, '>:encoding(UTF-8)', $filename or die "Could not open '$filename' for writing $!";;
    print $out $content;
    close $out;

    return;
}