From 957c13db62ee381c8b6870b0db39757cb40b03ea Mon Sep 17 00:00:00 2001
From: david <schrader@molgen.mpg.de>
Date: Tue, 24 Nov 2015 09:28:14 +0100
Subject: [PATCH] Create crP

---
 crP | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 crP

diff --git a/crP b/crP
new file mode 100644
index 0000000..ae5feb1
--- /dev/null
+++ b/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
+