Hallo
Wie sollte das jetz ausschauen? ... SO !?
##########################################################
sub remove_cutecode {
my $message = shift;
$message =~ s/[SPACE=(\d+)]/" " x $1/ige;
return $message;
}
sub decode_cutecode {
my $message = shift;
$$message =~ s/[SPACE=(\d+)]/$1/ige;
return $message;
}
#########################################################
Moin, moin!
So sollte es klappen (wenn ich Deine Frage richtig verstanden habe):
$message =~ s/[SPACE=(\d+)]/" " x $1/ige;
Alles klar?
Norbert