utf8 Konvertierung mit fetchrow_array (Datenbanken und Verzeichnisdienste)

[thread]13474[/thread]

utf8 Konvertierung mit fetchrow_array

Leser: 27

Articles: hide open all | hide show old branches

+11 replies
xcoder44

2009-05-05 16:15
User since
2009-04-27
16 Artikel
BenutzerIn
hallo liebe forumsmitglieder,

Wie man diesen code so umwandeln kann, dass er die 'latin'-Zeichen in 'utf8' speichert?

Mein Versuch:
Code (perl): (dl )

1 2 3 4 5 6 7 8

... use Encode; ... my $fetch = $dbh->prepare("SELECT `id`,`bezeichnung` FROM `system` ORDER BY `bezeichnung` ASC"); $fetch->execute(); my @system = (); #while ( ($system[scalar @system]{id},$system[scalar @system-1]{name}) = $fetch->fetchrow_array()){} while ( ($system[scalar @system]{id},$system[scalar @system-1]{name}) = $fetch->encode('utf8',fetchrow_array())){}
ich denke, dass Problem leigt daran, das encode() nicht die Inhalte (also hier jede Zeile) eines arrays umwandeln kann richtig? Dazu müsste ich dann die 'bezeichnung' seperat speichern.

jedoch stimmt dann mein code nicht mehr, weil die speicherung ja so lange passieren soll, bis nix mehr zurück kommt.

habt ihr eine idee?

Danke und Gruss,
- GwenDragon
  
  2009-05-05 16:21
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  Verwendet deine Datenbank immer latin-1?
  Dann wäre collate möglich.
  
  Schai dir mal http://dev.mysql.com/doc/refman/5.0/en/charset.htm... an.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +9 replies
- pq
  
  2009-05-05 16:26
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  also zum einen sind ein paar mehr leerzeichen und newlines oft nützlich für die lesbarkeit. die letzte zeile kann man ja erstmal gar nicht entziffern. man sollte (für die kollegen, oder auch fur sich selbst, wenn man ein halbes jahr spater auf den code guckt), so programmieren, dass man möglichst schnell erfasst, was passiert.
  
  zweitens kommt mir das $fetch->encode komisch vor, wo ist denn das dokumentiert? $fetch ist ja ein statementhandle von DBI. und encode von Encode ruft man als subroutine auf und nicht als methode eines fremden objekts, das geht so gar nicht. jedenfalls hab ich in der DBI-doku nix von einer methode encode gelesen. läuft der code so überhaupt?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +8 replies
  - xcoder44
    
    2009-05-05 16:39
    User since
    2009-04-27
    16 Artikel
    BenutzerIn
    
    hallo,
    nein... der code läuft nicht so, daher auch mein fehlgeschlagenes beispiel...
    
    fetchrow_array funktioniert eigentlich gut,
    bis auf das ich ab und zu bei zu großen suchergebnissen (also weit über ein paar hundert zeilen) eine fehlermeldung meines catalyst-servers zurückbekomme "...zeichenfolgedaten wurden rechts abgeschnitten..."
    
    ich nutze jedoch den encode-befehl meist so:
    
    Code (perl): (dl )
    
    my $wert = encode('utf8',$andererWert);
    
    wie funktioniert das denn mit dem collate?
    ja, meine daten sind alle 'latin'...
    - +7 replies
    - pq
      
      2009-05-05 16:42
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2009-05-05T14:39:55 xcoder44
      fetchrow_array funktioniert eigentlich gut,
      
      aber so bestimmt nicht:
      $fetch->encode('utf8',fetchrow_array())
      
      wenn schon, dann:
      encode('utf8', $fetch->fetchrow_array)
      
      du kannst das encode nicht einfach irgendwo mitten reinwerfen und glauben, perl wüsste schon, wie du es meinst..
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +6 replies
      - xcoder44
        
        2009-05-05 17:12
        
        User since
        2009-04-27
        16 Artikel
        BenutzerIn
        
        nein, dass stimmt.
        
        ...habe ich das echt geschrieben, entschuldigung, das macht keinen sinn (lach)...
        
        ich schaue gleich mal nach, ob es auch daran liegt...
        nein schade... er schmiert trotzdem ab...
        
        +5 replies
        
        pq
        
        2009-05-05 17:17
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2009-05-05T15:12:32 xcoder44
        er schmiert trotzdem ab...
        
        explodiert? hängt sich auf? skript bricht mit einer fehlermeldung ab? wenn letzteres, enthalte die uns bitte nicht vor.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        xcoder44
        
        2009-05-05 17:31
        
        User since
        2009-04-27
        16 Artikel
        BenutzerIn
        
        wieder ein nein, entschuldige...
        
        nein, es gibt keine weitere fehlermeldung.
        dieser codeabschnitt ist jedoch auch nicht von mir und daher für micha ls anfänger folgender teil schwer verständlich:
        
        Code (perl): (dl )
        
        1 2
        
        my @system = (); while ( ($system[scalar @system]{id},$system[scalar @system-1]{name}) = $fetch->fetchrow_array()){}
        
        ich verstehe schon die absicht, jedoch nicht den aufbau:
        
        Code (perl): (dl )
        
        $system[scalar @system]{BEZEICHNER}
        
        er greift hier mit dem array '@system' als '$system' zu und dann noch als skalaren wert? wie soll ich denn später in der lage sein, dass wieder aufzurufen?
        
        zum schluss wird meiner interpretation nach einfach alles rübergeschmissen mittels:
        
        Code (perl): (dl )
        
        1 2 3 4
        
        $c->stash( template => "Ergebnisse/formular.tt", system => \@system, );
        
        +3 replies
        
        topeg
        
        2009-05-05 18:42
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das hier:
        
        Code (perl): (dl )
        
        1 2
        
        my @system = (); while ( ($system[scalar @system]{id},$system[scalar @system-1]{name}) = $fetch->fetchrow_array()){}
        
        anders geschrieben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        my @system = (); while(my ($id, $name) = $fetch->fetchrow_array()) { my $hasref={id=>$id,name=>$name}; push(@system,$hashref); }
        
        Gast xcoder44
        
        2009-05-05 20:52
        
        aso... da wird also also wie bei einem stack alles nacheinander raufgepackt..
        und warum ist das so kompliziert gestaltet worden mit 'scalar' ?
        wie funktioniert das denn mit 'scalar' 'scalar-1'?
        
        xcoder44
        
        2009-05-05 21:03
        
        User since
        2009-04-27
        16 Artikel
        BenutzerIn
        
        klappt wunderbar mit dem 'push'... danke
        
        mein code in der while-schleife nun:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        ... { my $hasref={id=>$id,name=>encode('utf8',$name)}; push(@system,$hashref); } ...

View all threads created 2009-05-05 16:15.