fixed width fields

[Jim]

This should be an easy one but I'm having a brain cramp.

I have a string: 2-s1.0-49FR-WSJ0-TWC1-XXXX-12345-00. I want to
replace the 12345 with $i. When $i equals "1" how can I make it
"00001"?

 

[peter pilsl]

This should be an easy one but I'm having a brain cramp.

I have a string: 2-s1.0-49FR-WSJ0-TWC1-XXXX-12345-00. I want to
replace the 12345 with $i. When $i equals "1" how can I make it
"00001"?

perldoc -f sprintf

example:

$a="2-s1.0-49FR-WSJ0-TWC1-XXXX-12345-00";
$i=234;

$b=sprintf("%05i",$i);
$a=~s/-\d{5}-/-$b-/;

print $a,"\n"

peter

 

[Vlad Tepes]

This should be an easy one but I'm having a brain cramp.

I have a string: 2-s1.0-49FR-WSJ0-TWC1-XXXX-12345-00. I want to
replace the 12345 with $i. When $i equals "1" how can I make it
"00001"?

$str =~ s/12345/sprintf "%05d", $i/e;

 

[Barry Kimelman]

[This followup was posted to comp.lang.perl.misc]

This should be an easy one but I'm having a brain cramp.

I have a string: 2-s1.0-49FR-WSJ0-TWC1-XXXX-12345-00. I want to
replace the 12345 with $i. When $i equals "1" how can I make it
"00001"?

$data = sprintf "%05d",$i;