Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 30e7f787

Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt

  • ID 30e7f78760f8d9968172d6b1ee5099a86e3b8796
  • Vorgänger 424c0129
  • Nachfolger 3f930238

Text bei Iconv-Konvertierung nach UTF-8 in Perls internes Encoding umwandeln

Und das auch bei Objekt-Aufrufsyntax:

$text = SL::Iconv::convert('ISO-8859-15', 'UTF-8', $some_other_text);

Unterschiede anzeigen:

SL/Iconv.pm
37 37 
  $to_charset   ||= Common::DEFAULT_CHARSET;
38 38 

  		




  39
  39
  
    
  my $converter = _get_converter($from_charset, $to_charset);


  		




  40
  
  
    
  return $converter->convert($text);


  		




  
  40
  
    
  $text         = $converter->convert($text);


  		




  
  41
  
    
  $text         = decode("utf-8-strict", $text) if ($to_charset =~ m/^utf-?8$/i) && !Encode::is_utf8($text);


  		




  
  42
  
    

  		




  
  43
  
    
  return $text;


  		




  41
  44
  
    
}


  		




  42
  45
  
    

  		




  43
  46
  
    
sub _convert {


  		












Auch abrufbar als:  Unified diff