berteh

#! /usr/bin/perl
# transposes input.csv to output.csv. 
# 
# eg: input.csv: 
#   "id","1","2"
#   "A1","a","b"
#
# output.csv will be
# "id","A1"
# "1","a"

berteh

# pdf shortcuts, using pdftk

pdfcount(){
	#return number of pages of a pdf file
	pdftk $1 dump_data output | grep -i NumberOfPages  | grep -oE  "[[:digit:]]{1,}"	
}

pdf2booklet16(){
	# reorder a copy of given pdf to be printed as 2 pages/side + dual, and binded in booklets of 4 sheets (16 pages).
	# input.pdf must contain a multiple of 16 pages.