Mit diesem Script kann ich von meinem Scanner aus eine PDF-Datei im Verzeichnis ~/PDF erzeugen. (Das Original stammt von www.svenna.de))
~~~ #!/usr/bin/perl ###################################################### # LIZENZ # # dieses programm steht unter der bierlizenz! # du kannst es benutzen, veraender und kopieren, wie du willst. # wenn wir uns mal treffen und du meinst es ist es wert - gib mir n bier aus :-) # svenna # # scripts@svenna.de # www.svenna.de ###################################################### # scanner erkennen # dazu muss sane installiert sein $scanner = `scanimage -L`; # drucker erkennen $printer = `lpq -P PDF`; $printer = $1; if ($scanner =~ /(\w+:libusb:\d{3}:\d{3})/){ $scanner = $1; print "Scanner: $scanner\n"; print "Drucker: $printer\n\n"; copy(); } else {print "Immer erst den Scanner anschliessen ;-) \n";} sub copy { print "scanne Dokument\n"; system("/usr/bin/scanimage -d $scanner --gray=yes --resolution 150 -x 210 -y 295 > /tmp/kopie.pbm"); print "wandle in PS-Datei um\n"; # dazu muss netpbm installiert sein system("/usr/bin/pnmtops -equalpixels -dpi 150 -width 8 -height 11.6 /tmp/kopie.pbm > /tmp/kopie.ps"); print "schicke Kopie an Drucker\n"; system("/usr/bin/lpr -P$printer /tmp/kopie.ps"); print "Kopie wurde im Ordner ~/PDF erstellt\n"; } ~~~ Tags: cups scanner Linux-Scripte