Question

Using the code below, I want to remove the .log at the end. I seem to be doing everything right according to perlrequick. Where did I mess up?

test.pl

my $file = "ooout.log";
print $file."\n";
my $file =~ s/\.log//g;
print $file."\n";

output

$ perl test.pl
ooout.log

$

Answer 1

You’re redeclaring my $file — remove the my prefix to fix this. This would be caught if you started your script with

use strict;
use warnings;

You would have seen:

"my" variable $file masks earlier declaration in same scope at