Initial commit from the 2013 with minor fixes. From now and then,

[perlbook.git] / newlisting.sh

#!/bin/sh
editor=geany
lastnum=`ls *.pl | sort |tail -n 1 | egrep  -o '([0-9]+)'`
$editor l$((1 + lastnum)).pl