Beitrag von sascha (539 Beiträge) am Montag, 16.Juni.2003, 09:01.
convert_ in perl einbinden ????
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 16.Juni.2003, 10:23.
Re: convert_ in perl einbinden ????
ne das geht nicht, wenn du konvertieren wills dann in hexadezimal:
%umlaut=(
'Ö'=>'%d6',
'Ü'=>'%dc',
'Ä'=>'%c4',
'ö'=>'%f6',
'ü'=>'%fc',
'ä'=>'%e4',
)
sub my_convert{
my $string=shift;
foreach keys(%umlaut){
$string=~s/$_/$umlaut{$_}/g;
}
return convert_url($string);
}
if($cmd eq "all")
{
out "<a href='http://www.domain.de/baseportal/test/drucken&cmd=all&Id==$_id'>HIER</a>";
}
else
{
out "<a href='http://www.domain.de/baseportal/test/drucken&".my_convert(join//,@_sel)."'>HIER</a>";
}
</perl>
Sander
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 16.Juni.2003, 11:48.
Re: convert_ in perl einbinden ????
ne war ein bischen falsch...
%umlaut=(
'Ö'=>'%d6',
'Ü'=>'%dc',
'Ä'=>'%c4',
'ö'=>'%f6',
'ü'=>'%fc',
'ä'=>'%e4',
)
sub my_convert{
my $string=shift;
$string=convert_url($string);
foreach keys(%umlaut){
$string=~s/$_/$umlaut{$_}/g;
}
return $string;
}
if($cmd eq "all")
{
out "<a href='http://www.domain.de/baseportal/test/drucken&cmd=all&Id==$_id'>HIER</a>";
}
else
{
out "<a href='http://www.domain.de/baseportal/test/drucken&".my_convert(join//,@_sel)."'>HIER</a>";
}
</perl>
sooo ;-)
Antworten
Beitrag von sascha (539 Beiträge) am Montag, 16.Juni.2003, 13:49.
Re: convert_ in perl einbinden ????
hi sander,
ich bekomme folgende fehlermeldung:
[ Fehler: (perl) in /domain.de/test/suchen: Missing $ on loop variable at (eval 17) line 15. ]
sascha
%umlaut=(
'Ö'=>'%d6',
'Ü'=>'%dc',
'Ä'=>'%c4',
'ö'=>'%f6',
'ü'=>'%fc',
'ä'=>'%e4',
)
sub my_convert{
my $string=shift;
$string=convert_url($string);
foreach keys(%umlaut){
$string=~s/$_/$umlaut{$_}/g;
}
return $string;
}
if($cmd eq "all")
{
out "<a href='http://www.domain.de/baseportal/test/drucken&cmd=all&Id==$_id'>HIER</a>";
}
else
{
out "<a href='http://www.domain.de/baseportal/test/drucken&".my_convert(join//,@_sel)."'>HIER</a>";
}
</perl>
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 16.Juni.2003, 13:58.
Re: convert_ in perl einbinden ????
Antworten
Beitrag von sascha (539 Beiträge) am Montag, 16.Juni.2003, 14:20.
Re: convert_ in perl einbinden ????
sorry sander,
jetzt kommt diese fehlermeldung:
[ Fehler: (perl) in /domain.de/test/suchen_Kopie: syntax error at (eval 272) line 12, near ") sub my_convert" Can't use global $_ in "my" at (eval 272) line 16, near "$_" syntax error at (eval 272) line 21, near "; }" ]
%umlaut=(
'Ö'=>'%d6',
'Ü'=>'%dc',
'Ä'=>'%c4',
'ö'=>'%f6',
'ü'=>'%fc',
'ä'=>'%e4',
)
sub my_convert{
my $string=shift;
$string=convert_url($string);
foreach (keys %umlaut){
$string=~s/$_/$umlaut{$_}/g;
}
return $string;
}
if($cmd eq "all")
{
out "<a href='http://www.domain.de/baseportal/test/drucken&cmd=all&Id==$_id'>HIER</a>";
}
else
{
out "<a href='http://www.domain.de/baseportal/test/drucken&".my_convert(join//,@_sel)."'>HIER</a>";
}
</perl>
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 16.Juni.2003, 14:50.
Re: convert_ in perl einbinden ????
jeze: sogar getestet... ;-)
%umlaut=(
'Ö'=>'%d6',
'Ü'=>'%dc',
'Ä'=>'%c4',
'ö'=>'%f6',
'ü'=>'%fc',
'ä'=>'%e4',
); ### hier fehlte ;
sub my_convert{
my $string=shift;
$string=convert_url($string);
foreach (keys %umlaut){
$string=~s/$_/$umlaut{$_}/g;
}
return $string;
}
Sander
Antworten
Beitrag von sascha (539 Beiträge) am Montag, 16.Juni.2003, 15:45.
thanx :-))
Antworten