J
jac
hi everyone...
i have this code..:
--------------------------------
my $pointer="encode";
my $dir="/home/elizar/files";
open (ELI, "$dir/silabs") || die "Can't open file. Reason $! \n";
open (ZAR, ">$dir/silabs.new") || "Can't write file. Reason: $! \n";
while (<ELI>) {
# print "$_";
if ($_ =~ m/$pointer/)
{
$_ =~ s/$ww/$ww+1/g;
}
print ZAR $_ ;
}
close (ZAR);
close (ELI);
system "cp $dir/silabs $backup/silabs_$date";
system "mv $dir/silabs.new $dir/silabs";
----------------------------------
what i want it to replace $ww with $ww+1, that is, if $ww=20,
replaced it with 21.. its not working.. its been bugging me..
but when:
$_ =~ s/20/21/g;
works fine.
What am i missing?
THanks!
jac
i have this code..:
--------------------------------
my $pointer="encode";
my $dir="/home/elizar/files";
open (ELI, "$dir/silabs") || die "Can't open file. Reason $! \n";
open (ZAR, ">$dir/silabs.new") || "Can't write file. Reason: $! \n";
while (<ELI>) {
# print "$_";
if ($_ =~ m/$pointer/)
{
$_ =~ s/$ww/$ww+1/g;
}
print ZAR $_ ;
}
close (ZAR);
close (ELI);
system "cp $dir/silabs $backup/silabs_$date";
system "mv $dir/silabs.new $dir/silabs";
----------------------------------
what i want it to replace $ww with $ww+1, that is, if $ww=20,
replaced it with 21.. its not working.. its been bugging me..
but when:
$_ =~ s/20/21/g;
works fine.
What am i missing?
THanks!
jac