scantopdf.pl
Posted by wnf on Monday, 11 April 2011Mit 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";
}
