How about something like this?
CREATE OR REPLACE FUNCTION evergreen.lpad_number_substrings(text, text, integer) RETURNS text LANGUAGE plperlu AS $function$ my $string = shift; my $pad = shift; my $len = shift;
$string =~ s/([0-9]+)/$pad x ($len - length($1)) . $1/eg;
return $string; $function$
How about something like this?
CREATE OR REPLACE FUNCTION evergreen. lpad_number_ substrings( text, text, integer)
RETURNS text
LANGUAGE plperlu
AS $function$
my $string = shift;
my $pad = shift;
my $len = shift;
$string =~ s/([0-9]+)/$pad x ($len - length($1)) . $1/eg;
return $string;
$function$