Create crP

crP

@@ -0,0 +1,44 @@
+#!/bin/bash
+
+function usage() {
+
+	if [ "$1" == "" ]; then
+		echo "usage: $0 braucht Skriptnamen"
+		return 1
+	fi
+	return 0
+}
+usage $1
+if [ $? = 1 ]; then 
+	echo "Skryptname eingeben: "
+	read file
+else
+	file="${1}.pl"
+fi
+x="false"
+while [ "$x" = "false" ]
+do
+echo $file
+if [ ! -e ${file} ]; then
+	echo "!!!"
+	x="true"
+else
+	echo "existiert bereits !!!!"
+	echo "neuen Skryptname eingeben: "
+	read file
+	file="${file}.pl"
+fi
+done
+
+exec 3> /dev/null
+touch ./${file} >&3
+chmod a+x ./${file} >&3
+echo '#!/bin/perl -w' >> ${file}
+echo ' ' >> ${file}
+echo 'use strict;' >> ${file}
+echo 'use warnings;' >> ${file}
+echo ' ' >> ${file}
+geany ${file} &
+exec 3>$-
+exit 0
+