[Perl] Wo ist der Syntaxfehler?
Verfasst: 14.11.2008 22:18
Ahoi!
Bei dem Versuch, RSet() in CGI/Perl nachzuprogrammieren tritt immer ein Syntaxfehler auf. Ich finde ihn einfach nicht. Ihr?
Es muss etwas mit der else-Zeile zu tun haben; schreibe ich da einfach nur else statt elseif($len < 0), dann erscheint der Syntaxfehler.
Ansonsten scheint die Prozedur einwandfrei zu arbeiten, sie füllt und kürzt korrekt.
Hier noch schnell die Fehlermeldung:
Bei dem Versuch, RSet() in CGI/Perl nachzuprogrammieren tritt immer ein Syntaxfehler auf. Ich finde ihn einfach nicht. Ihr?
Code: Alles auswählen
sub rset # string, length, fillWithString
{
my $result=shift;
my $len=(shift||0)-length($result);
my $fillWith=shift||" ";
my $fillLen=length($fillWith);
#return $len;
if($len > 0) # fill
{
return $fillWith x($len/$fillLen).$result;
}
elseif($len < 0) # truncate
{
return substr($result, length($result)+$len+1); # negieren, da $len negativ
}
}Ansonsten scheint die Prozedur einwandfrei zu arbeiten, sie füllt und kürzt korrekt.
Hier noch schnell die Fehlermeldung:
CGI::Carp qwq(fatalsToBrowser) hat geschrieben:syntax error at purebasic.pm line 34, near ") # truncate
{"
syntax error at purebasic.pm line 37, near "}"
Compilation failed
