sashaphanes · October 22, 2012 17:02
diff --git a/addZeroes.pl b/addZeroes.pl
 #!/usr/bin/perl -s

 #Q19. Write a simple perl statement to add leading 0s for the integers which is less than 10000. 
 #Assume the integers are in the range of 1 to 9999.


 while (<>) {
    $_ =~ s/([0-9]+)/sprintf('%05d',$1)/ge;
 }
	#!/usr/bin/perl -s

	#Q19. Write a simple perl statement to add leading 0s for the integers which is less than 10000.
	#Assume the integers are in the range of 1 to 9999.


	while (<>) {
	$_ =~ s/([0-9]+)/sprintf('%05d',$1)/ge;
	}