[BACK]Return to barcode.html CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / build

Diff for /doc/build/Attic/barcode.html between versions 1.1 and 1.2

version 1.1, 2001/04/23 13:09:12 version 1.2, 2001/04/23 13:11:41
Line 52  permissions, and make part of the LON-CA Line 52  permissions, and make part of the LON-CA
   
 -Scott  -Scott
 </pre>  </pre>
   
   Example usage code #1 (from the GD-Barcode samples directory)
   <pre>
   use strict;
   use GD::Barcode;
   
   my $oGdBar;
   #1)EAN13
   #1.1 NORMAL
   print "=======================\nEAN13: NORMAL\n";
   $oGdBar = GD::Barcode->new('EAN13', '123456789012');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>EAN13.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #1.2 Error
   print "EAN13: ERROR\n";
   $oGdBar = GD::Barcode->new('EAN13', '12345678901');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #2)EAN8
   #2.1 NORMAL
   print "=======================\nEAN8: NORMAL\n";
   $oGdBar = GD::Barcode->new('EAN8', '1234567');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>EAN8.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #2.2 Error
   print "EAN8: ERROR\n";
   $oGdBar = GD::Barcode->new('EAN8', 'A1234567');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #3)UPC-A
   #3.1 NORMAL
   print "=======================\nUPCA: NORMAL\n";
   $oGdBar = GD::Barcode->new('UPCA', '12345678901');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>UPCA.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #3.2 Error
   print "UPCA: ERROR\n";
   $oGdBar = GD::Barcode->new('UPCA','12345678901132');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #4)UPC-E
   #4.1 NORMAL
   print "=======================\nUPCE: NORMAL\n";
   $oGdBar = GD::Barcode->new('UPCE', '1234567');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>UPCE.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #4.2 Error
   print "UPCE: ERROR\n";
   $oGdBar = GD::Barcode->new('UPCE', '123456788');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #5)NW7
   #5.1 NORMAL
   print "=======================\nNW7: NORMAL\n";
   $oGdBar = GD::Barcode->new('NW7', '12345678');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>NW7.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #5.2 Error
   print "NW7: ERROR\n";
   $oGdBar = GD::Barcode->new('NW7', 'NW7ERROR');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #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;
   
   #6.2 Error
   print "Code39: ERROR\n";
   $oGdBar = GD::Barcode->new('Code39', '*12345678901;*');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #7)ITF(Interleaved 2 of 5)
   #7.1 NORMAL
   print "=======================\nITF: NORMAL\n";
   $oGdBar = GD::Barcode->new('ITF', '0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>ITF.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #7.2 Error
   print "ITF: ERROR\n";
   $oGdBar = GD::Barcode->new('ITF', '123456788A');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #8)Industrial2of5
   #8.1 NORMAL
   print "=======================\nIndustrial2of5: NORMAL\n";
   $oGdBar = GD::Barcode->new('Industrial2of5', '0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>Industrial2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #8.2 Error
   print "Industrial2of5: ERROR\n";
   $oGdBar = GD::Barcode->new('Industrial2of5', '123456788A');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #9)IATA2of5
   #9.1 NORMAL
   print "=======================\nIATA2of5: NORMAL\n";
   $oGdBar = GD::Barcode->new('IATA2of5', '0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>IATA2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #9.2 Error
   print "IATA2of5: ERROR\n";
   $oGdBar = GD::Barcode->new('IATA2of5', '123456788A');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #10)Matrix2of5
   #10.1 NORMAL
   print "=======================\nMatrix2of5: NORMAL\n";
   $oGdBar = GD::Barcode->new('Matrix2of5', '0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>Matrix2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #10.2 Error
   print "Matrix2of5: ERROR\n";
   $oGdBar = GD::Barcode->new('Matrix2of5', '123456788A');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   
   #11)COOP2of5
   #11.1 NORMAL
   print "=======================\nCOOP2of5: NORMAL\n";
   $oGdBar = GD::Barcode->new('COOP2of5', '0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>COOP2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #11.2 Error
   print "COOP2of5: ERROR\n";
   $oGdBar = GD::Barcode->new('COOP2of5', '123456788A');
   print "ERROR:", $GD::Barcode::errStr, "\n";
   undef $oGdBar;
   </pre>
   
   Example usage code #2 (from the GD-Barcode samples directory)
   <pre>
   use strict;
   use GD::Barcode::EAN8;
   use GD::Barcode::EAN13;
   use GD::Barcode::UPCA;
   use GD::Barcode::UPCE;
   use GD::Barcode::NW7;
   use GD::Barcode::Code39;
   use GD::Barcode::ITF;
   use GD::Barcode::Industrial2of5;
   use GD::Barcode::Matrix2of5;
   use GD::Barcode::IATA2of5;
   use GD::Barcode::COOP2of5;
   
   my $oGdBar;
   #1)EAN13
   #1.1 NORMAL
   print "=======================\nEAN13: NORMAL\n";
   $oGdBar = GD::Barcode::EAN13->new('123456789012');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>EAN13.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #1.2 Error
   print "EAN13: ERROR\n";
   $oGdBar = GD::Barcode::EAN13->new('12345678901');
   print "ERROR:", $GD::Barcode::EAN13::errStr, "\n";
   undef $oGdBar;
   
   #2)EAN8
   #2.1 NORMAL
   print "=======================\nEAN8: NORMAL\n";
   $oGdBar = GD::Barcode::EAN8->new('1234567');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>EAN8.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #2.2 Error
   print "EAN8: ERROR\n";
   $oGdBar = GD::Barcode::EAN8->new('A1234567');
   print "ERROR:", $GD::Barcode::EAN8::errStr, "\n";
   undef $oGdBar;
   
   #3)UPC-A
   #3.1 NORMAL
   print "=======================\nUPCA: NORMAL\n";
   $oGdBar = GD::Barcode::UPCA->new('12345678901');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>UPCA.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #3.2 Error
   print "UPCA: ERROR\n";
   $oGdBar = GD::Barcode::UPCA->new('12345678901132');
   print "ERROR:", $GD::Barcode::UPCA::errStr, "\n";
   undef $oGdBar;
   
   #4)UPC-E
   #4.1 NORMAL
   print "=======================\nUPCE: NORMAL\n";
   $oGdBar = GD::Barcode::UPCE->new('1234567');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>UPCE.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #4.2 Error
   print "UPCE: ERROR\n";
   $oGdBar = GD::Barcode::UPCE->new('123456788');
   print "ERROR:", $GD::Barcode::UPCE::errStr, "\n";
   undef $oGdBar;
   
   #5)NW7
   #5.1 NORMAL
   print "=======================\nNW7: NORMAL\n";
   $oGdBar = GD::Barcode::NW7->new('12345678');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>NW7.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #5.2 Error
   print "NW7: ERROR\n";
   $oGdBar = GD::Barcode::NW7->new('NW7ERROR');
   print "ERROR:", $GD::Barcode::NW7::errStr, "\n";
   undef $oGdBar;
   
   #6)CODE-39
   #6.1 NORMAL
   print "=======================\nCode39: NORMAL\n";
   $oGdBar = GD::Barcode::Code39->new('*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;
   
   #6.2 Error
   print "Code39: ERROR\n";
   $oGdBar = GD::Barcode::Code39->new('*12345678901;*');
   print "ERROR:", $GD::Barcode::Code39::errStr, "\n";
   undef $oGdBar;
   
   #7)ITF
   #7.1 NORMAL
   print "=======================\nITF: NORMAL\n";
   $oGdBar = GD::Barcode::Code39->new('1234567890*');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>ITF.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #7.2 Error
   print "ITF: ERROR\n";
   $oGdBar = GD::Barcode::ITF->new('*1234567');
   print "ERROR:", $GD::Barcode::ITF::errStr, "\n";
   undef $oGdBar;
   
   #8. Industrial2of5
   #8.1 NORMAL
   print "=======================\nIndustrial2of5: NORMAL\n";
   $oGdBar = GD::Barcode::Industrial2of5->new('0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>Industrial2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #8.2 Error
   print "Industrial2of5: ERROR\n";
   $oGdBar = GD::Barcode::Industrial2of5->new('A12345678901');
   print "ERROR:", $GD::Barcode::Industrial2of5::errStr, "\n";
   undef $oGdBar;
   
   #9. IATA2of5
   #9.1 NORMAL
   print "=======================\nIATA2of5: NORMAL\n";
   $oGdBar = GD::Barcode::IATA2of5->new('0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>IATA2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #10.2 Error
   print "IATA2of5: ERROR\n";
   $oGdBar = GD::Barcode::IATA2of5->new('A12345678901');
   print "ERROR:", $GD::Barcode::IATA2of5::errStr, "\n";
   undef $oGdBar;
   
   #10. Matrix2of5
   #10.1 NORMAL
   print "=======================\nMatrix2of5: NORMAL\n";
   $oGdBar = GD::Barcode::Matrix2of5->new('0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>Matrix2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #10.2 Error
   print "Matrix2of5: ERROR\n";
   $oGdBar = GD::Barcode::Matrix2of5->new('A12345678901');
   print "ERROR:", $GD::Barcode::Matrix2of5::errStr, "\n";
   undef $oGdBar;
   
   #11. COOP2of5
   #11.1 NORMAL
   print "=======================\nCOOP2of5: NORMAL\n";
   $oGdBar = GD::Barcode::COOP2of5->new('0123456789');
   print "PTN:", $oGdBar->{text}, ":" ,$oGdBar->barcode, "\n";
   open(OUT, '>COOP2of5.png');
   binmode OUT; #for Windows
   print OUT $oGdBar->plot->png;
   close OUT;
   undef $oGdBar;
   
   #11.2 Error
   print "COOP2of5: ERROR\n";
   $oGdBar = GD::Barcode::COOP2of5->new('A12345678901');
   print "ERROR:", $GD::Barcode::COOP2of5::errStr, "\n";
   undef $oGdBar;
   </pre>
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>