@Bi:Datei erzeugt von Jens Christoph Brendel mit sf 4.27
@Bi:SF: Anfang des Kastens
@21 KT:<@21 KT_blau>Listing 1:<@$p> Topng
@22 K_Li:01<\f><\i>#!/usr/bin/perl<\f>-w
02<\f><\i>#<\f>topng<\f>--<\f>Transform<\f>jpg<\f>pics<\f>to<\f>PNG
03<\f><\i>
04<\f><\i>use<\f>Sysadm::Install<\f>qw(:all);
05<\f><\i>
06<\f><\i>for<\f>$jpg<\f>(<\@>ARGV)<\f>{
07<\f><\i><\f><\f><\f><\f>($png<\f>=<\f>$jpg)<\f>=~<\f>s/jpg$/png/;
08<\f><\i><\f><\f><\f><\f>sysrun("convert",<\f>$jpg,<\f>$png);
09<\f><\i><\f><\f><\f><\f>rmf($jpg);
10<\f><\i>}
@Bi:SF: Ende des Kastens
@Bi:SF: Originaldatei war topng.asc