Barcode für Code39 erstellen und als Grafik speichern (gelöst) (Allgemeines zu Perl)

[thread]18747[/thread]

Barcode für Code39 erstellen und als Grafik speichern [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
namenlose

2013-11-13 11:59
User since
2013-10-30
4 Artikel
BenutzerIn
Hallo, ich versuche gerade einen Barcode (Code39, Typ 3 of 9) zu erstellen. Das Beispiel für die Ausgabe auf als Webseite aus der Doku läuft. Wie erzeugt man daraus eine Datei?
Code: (dl )

1 2 3 4

use GD::Barcode::Code39; binmode(STDOUT); print "Content-Type: image/png\n\n"; print GD::Barcode::Code39->new('*CODE39IMG*')->plot->png;
- +3 replies
- Linuxer
  
  2013-11-13 12:04
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Anstatt STDOUT zu verwenden, öffnest Du eine Datei zum Schreiben und schreibst darein.
  
  http://perldoc.perl.org/perlopentut.html
  http://perldoc.perl.org/functions/open.html
  http://perldoc.perl.org/functions/print.html
  
  Den Content-Type brauchst Du dabei nicht angeben; lass das also weg.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - namenlose
    
    2013-11-13 12:50
    User since
    2013-10-30
    4 Artikel
    BenutzerIn
    
    Danke! Hat geklappt.
    
    Code: (dl )
    
    1 2 3 4 5 6 7
    
    use GD::Barcode::Code39; my $filename = "code39.png"; open(my $png, ">", $filename) || die("Cannnot open $filename: $!"); print $png GD::Barcode::Code39->new('*CODE39IMG*')->plot->png; binmode($png); close($png);
    - GwenDragon
      
      2013-11-13 12:56
      
      User since
      2005-01-17
      14754 Artikel
      Admin1
      
      binmode muss vor der Ausgabe der Daten in die Datei; also nach dem open aber vor dem print geschehen!
      
      use GD::Barcode::Code39;
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $filename = "code39.png"; open(my $png, ">", $filename) || die "Cannnot open $filename: $!"; binmode($png); print $png GD::Barcode::Code39->new('*CODE39IMG*')->plot->png; close($png) || die "Cannnot close $filename: $!";
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- GwenDragon
  
  2013-11-13 12:42
  User since
  2005-01-17
  14754 Artikel
  Admin1
  http://cpansearch.perl.org/src/KWITKNR/GD-Barcode-...
  Wo unter sample eine Perl-Datei smp_all.pl zu finden ist wie das generierte Barcode-Bilder als Datei gespeichert werden. ;)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #6)CODE-39 #6.1 NORMAL print "=======================\nCode39: NORMAL\n"; $oGdBar = GD::Barcode->new('Code39', '*123456789012*'); print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n"; open(OUT, '>Code39.png'); binmode OUT; #for Windows print OUT $oGdBar->plot->png; close OUT; undef $oGdBar;
  
  Last edited: 2013-11-13 12:45:08 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - namenlose
    
    2013-11-13 12:51
    
    User since
    2013-10-30
    4 Artikel
    BenutzerIn
    
    Danke!

View all threads created 2013-11-13 11:59.