#! /usr/bin/perl ##################################################################### # # Test-Programm # Sende Steuersequenzen zum Oki-Drucker # # OS...: Linux : > OpenSUSE 10.0, 2.6.13-15-default # Tools: Perl : > 5.8.7 # HW...: Drucker: OKI Microline 591 # ##################################################################ap# # OKI-Handbuch # 27 = ESC, 103 = g >> Seite 14-2, Druckmodi 15 cpi # 27 = ESC, 14 = SO >> Seite 14-3, Horizontal, doppelte Breite eine Zeile # 27 = ESC, 45 = -, 49 = 1 = Seite 14-6, Start Unterstreichen # 27 = ESC, 45 = -, 48 = 0 = Seite 14-6, Stopp Unterstreichen # Perl-Buch # sprintf >> Seite 135, Formatierte Ausgabe # %c >> Seite 137, ein Zeichen (ASCII) :: Eine Zahl wird übergeben, %c wandelt daraus ein ASCII = einen Druckerbefehl # %s >> Seite 137, ein String :: Zahlen Text .... # \n >> Zeilenschaltung #$Strg1 = "unterstrichen"; #$Strg2 = "und wieder normal"; #$fett_on = sprintf( "%c%c%c", 27, 45, 49); #$fett_of = sprintf( "%c%c%c", 27, 45, 48); #open( LPR, "|lpr -P OKI" ); #print LPR ( "$fett_on$Strg1$fett_of $Strg2\n" ); #print "<$fett_on>\n"; #print "<$fett_of>\n"; #print ( "$fett_on$Strg1$fett_of $Strg2\n" ); #printf( "<%d>\n", 0x033 ); open( LPR, "|lpr -P OKI" ); for( $i = 0 ; $i < 255 ; $i++ ) { printf "%c ! %c > wählt diese Kombination\n", 27, $i, $i ; #printf "\e!%c > wählt diese Kombination\n", $i, $i ; } close( LPR ); 1; #EOF