#!/usr/bin/perl
for ($i=1; $i<=24; $i++)
{
system “gs -q -r300 -sDEVICE=png256 -sOutputFile=page$i.png -dFirstPage=$i -dLastPage=$i -dBATCH -dNOPAUSE ../skaerm-samlet-fantasy.pdf”;
}
Ripper 24 sider fra pdf dokumentet ‘skaerm-samlet-fantasy.pdf’ i stoerelse ‘300’ (wtf det saa en betyder) med filnavne page1-25.png