Wie erzeuge ich einen [SPACE=?] *TAG*

[Xonder]

Hallo

Hätte eine Frage wie ich einen *TAG* erzeugen kann!?

So kann ich in meinem Forum mit [SPACE] Leerzeichen erzeugen:

##############################################
sub remove_cutecode {
 my $message = shift;

$message =~ s/[SPACE]//g;

return $message;
}

sub decode_cutecode {
 my $message = shift;

$message =~ s/([SPACE])/            /isg;

return $message;
}
##############################################

Wäre es möglich mit [SPACE=8] acht Leerzeichen zu erzeugen ... [SPACE=4] dann sollen es 4 Leerzeichen sein..
Wie müßte hier das gegenstück ausschauen ? (sub decode_cutecode)

##############################################
Sub remove_cutecode {
 my $message = shift;

$message =~ s/([SPACE=)(\S+?)(])/$2/isg;

return $message;
}
##############################################

mfg XTC

[Norbert Kölln]

Moin, moin!

So sollte es klappen (wenn ich Deine Frage richtig verstanden habe):

$message =~ s/[SPACE=(\d+)]/" " x $1/ige;

Alles klar?

Norbert

[Xonder]

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

[Xonder]

Hi

Habe es jetzt Kapiert ;-)

FUNZT einwandfrei .... SUPER & THX

mfg Xonder