How to replace the last 2 characters in a string

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to replace the last 2 characters in a string by bobf (Monsignor) on Apr 25, 2006 at 04:25 UTC
If you want to replace the rightmost 2 digits, one way is by using substr: `my $extracted_digits = substr( $var, -2, 2, $newdigits );` [download] For your specific example: `use strict; use warnings; my $var = 200504250955; my $newdigits = 67; print "$var\n"; # 200504250955 my $extracted = substr( $var, -2, 2, $newdigits ); print "$var\n"; # 200504250967 print "$extracted\n"; # 55` [download]	[reply] [d/l] [select]
Re: How to replace the last 2 characters in a string by McDarren (Abbot) on Apr 25, 2006 at 04:27 UTC
Let me re-phrase before I answer the question, in case I don't understand. "I wan't to replace the last two digits in a string with 67" In that case: `$string =~ s/\d\d$/67/;` [download] May I suggest perlre and perlretut for more information.	[reply] [d/l]
Re: How to replace the last 2 characters in a string by Samy_rio (Vicar) on Apr 25, 2006 at 04:28 UTC
Try this, `use strict; use warnings; my $timestmpa_value = "200504250955"; $timestmpa_value =~ s/.{2}$/67/; print $timestmpa_value;` [download] You should view How (Not) To Ask A Question Regards, Velusamy R. eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@\|6%,53!-9@2~j';	[reply] [d/l] [select]
Re: How to replace the last 2 characters in a string by gube (Parson) on Apr 25, 2006 at 04:40 UTC
`#!/usr/local/bin/perl use strict; use warnings; my $timestmpa_value = "200504250955"; $timestmpa_value =~ s#\d{2}$#67#; print $timestmpa_value` [download]	[reply] [d/l]
Re: How to replace the last 2 characters in a string by ashokpj (Hermit) on Apr 25, 2006 at 05:04 UTC
try this one. it code will change all 55 into 67 at any place. `my $timestmpa_value = "200554250955"; $timestmpa_value =~ s#55#67#g; print $timestmpa_value` [download]	[reply] [d/l]