Sybase BLOB auslesen (Datenbanken und Verzeichnisdienste)

[thread]19108[/thread]

Sybase BLOB auslesen

Tags: perl5 Sybase blob Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+9 replies
wundii

2014-05-23 11:55
User since
2014-05-23
4 articles
BenutzerIn
Hallo,

ich habe ein kleines Problem, dass ich beim abholen von binärischen Objekten mit Sybase (PDF). Bekomme ich nur rund ca 80 Zeichen ausgegeben, den rest verschluckt er. Gibt es da ein Grund oder eine Abhilfe?

Testcode:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

$sql = qq{select top 1 * from archiv }; $sth = $dbh->prepare( $sql ); $sth->execute(); $sth->{'LongTruncOk'} = 1; while (@row = $sth->fetchrow_array()) { print "| Inhalt = ".$row[1]."\n"; } $sth->finish();
Ausgabe:
Code: (dl )

1 2 3 4

%PDF-1.7 %âãÏÓ 1 0 obj <</Length 638/Filter/FlateDecode/Type/ObjStm/N 9/First 57
theoretisch würde es nun mit
Code: (dl )

1 2 3 4 5 6

>>stream xÚåWëoÚ0ÿWî[A+ñÙy8™P%c«:*TP;©ê/± $ÈvÔö¿ß…Ò}h˜F5¬X—óï>'?.|¾€€æBð£"8‚Æb‘Ÿ@BJ¤IÈ¡ÝfGúú²4™m ?E‰ˆÜGßç‘ aŸcDÉþZÕdÃ2ë+§ýõ2\bÌã@±‡¸×d=£•ËËâuÔ$wsÝ8Ñé¬¨Š)ôM•þ\Û–¦Ññt^X^ì…—I“«ï?têžXŒL™U©6Q ß–ª°"{¼É:•›‘·ÞçæÁA»]_l¨³\uË«shqI—€PÆ‹ä‚h[V&Õ–`ä6kwÎÈ-;\¨©î]°AY8ZøTW„6¨´$ÐM®—šH“Ñ…£¨1=²¡;i%wPËŽòÌžÓ‘ÑÍdQ‘µX!?i™åÅ”åE‡¶vwOåpµ—‰©ôÊÝ 7ÖõfÊ€/nÔÙ²®²z%W“ks¬/Gãá„üenF‘#D…ÑCWcCñ2ôù•ñÁx ?Ê};ûÿwåÀÝ¯Âÿ9î‹qÃo}mS“/‰„é¢&°¯jÍ+"ü›œÔê–óìybÂçùh÷_f|oÙ6B¿ö˜m{C¸%*xûÁî4üqr/Vè ?pÜ áoÅâ·-–xK‹åßµX‡NÍó´SLç æjj‘Ðý6ØØéÅi "õ±ZèÍV©cÓ:VLæ5dìŒvéŒ—f¡æ+Õ™Î§3"«ýÖè–7»ëBH& A…H}žZ~YŠæ|K¥¿¸|-ñ„—õGÒ7ƒ|3ñ_žŸáH endstream endobj
weiter gehen.

Für einen Tipp oder eine kleine Hilfe wäre ich sehr dankbar =)

Gruß wundii

modedit Editiert von pq: quote-tags -> code-tags
Last edited: 2014-05-23 12:26:00 +0200 (CEST)
- +4 replies
- GwenDragon
  
  2014-05-23 12:32
  User since
  2005-01-17
  14928 articles
  Admin1
  Zu deiner Ausgabe mit print:
  
  Code: (dl )
  
  1 2
  
  binmode STDOUT; print STDOUT "\| Inhalt = ".$row[1]."\n";
  
  Editiert von GwenDragon: Hinweis auf Pipezeichen war falsch
  Last edited: 2014-05-23 12:40:38 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - wundii
    
    2014-05-23 12:44
    
    User since
    2014-05-23
    4 articles
    BenutzerIn
    
    Danke für die Info mit dem Pipe, aber mit STDOUT lässt sich der restliche Inhalt nicht zeigen ... :(
    - +2 replies
    - GwenDragon
      
      2014-05-23 13:04
      
      User since
      2005-01-17
      14928 articles
      Admin1
      
      Dann lass dir mit Data::Dumper ausgeben, was in $row[1] steht, ob da wirklich nur 80 Zeichen drin sind.
      
      Am Programmanfang:
      
      Code (perl): (dl )
      
      1 2 3
      
      use Data::Dumper; my $DEBUG = 1; # nur für Debugausgabe auf 1 setzen!
      
      In der Schleife:
      
      Code (perl): (dl )
      
      $DEBUG and print STDERR "------------- DEBUG ---------------\n", Dumper \$row[1], "------------- DEBUG ---------------\n";
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - wundii
        
        2014-05-23 13:39
        
        User since
        2014-05-23
        4 articles
        BenutzerIn
        
        Im DUMPER stehen wirklich nur diese besagten ca 80 Zeichen ... :/
- pq
  
  2014-05-23 13:00
  User since
  2003-08-04
  12209 articles
  Admin1
  versuch mal folgendes:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper $row[1];
  
  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
- +3 replies
- pq
  
  2014-05-23 13:04
  User since
  2003-08-04
  12209 articles
  Admin1
  ich erinnere mich, das war etwas komplizierter in sybase:
  perldoc DBD::Sybase:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  syb_no_bind_blob (bool) If set then any IMAGE or TEXT columns in a query are NOT returned when calling $sth->fetch (or any variation). Instead, you would use $sth->syb_ct_get_data($column, \$data, $size);
  
  also mach mal nach dem prepare:
  $sth->{syb_no_bind_blob} = 1;
  und hol dir die daten mit syb_ct_get_data()
  
  und bitte die doku zu LongReadLen auch noch beachten.
  Last edited: 2014-05-23 13:07:52 +0200 (CEST)
  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
  - +2 replies
  - wundii
    
    2014-05-23 13:46
    
    User since
    2014-05-23
    4 articles
    BenutzerIn
    
    Danke für deine Antworten :) der DUMPER gibt auch nur die ca 80 Zeichen aus. LongReadLen hatte ich schon mit eingebaut, aber alles ohne Auswirkungen. DBD::Sybase mit syb_ct_get_data kenne ich noch nicht, leider will sich die Bibliothek nicht so einbinden wie ich es mag. So langsam kann ich deinem Gefühl
    Quote
    ich erinnere mich, das war etwas komplizierter in sybase:
    beipflichten :(
    - pq
      
      2014-05-23 16:47
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2014-05-23T11:46:07 wundii
      DBD::Sybase mit syb_ct_get_data kenne ich noch nicht
      
      doch doch, kennst du schon. warum so kompliziert? du benutzt ja schon DBD::Sybase.
      
      du benutzt DBI, und als datenbank Sybase. Da wird dann automatisch DBD::Sybase geladen.
      
      Du kannst meinen Vorschlag einfach so einbauen.
      Es sei denn, es wird aus irgendeinem Grund ein anderer DBD verwendet.
      Wie sieht denn der DSN aus? so in etwa? dbi:Sybase:host=...
      
      Probiers einfach mal aus.
      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

View all threads created 2014-05-23 11:55.