Beitrag von sascha (539 Beiträge) am Montag, 16.Juni.2003, 09:01.  
convert_ in perl einbinden  ????
  Antworten
Beitrag von Sander (8134 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 (8134 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 (8134 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 (8134 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