5 files changed, 42 insertions(+), 1 deletions(-)

A aaa.csv
A aaaa.csv
A form.sh
A sparkling_goblin.csv
M sparkling_goblin.raku

@@ 0,0 1,1 @@
+samples,aaa

@@ 0,0 1,1 @@
+samples,aaaa

@@ 0,0 1,38 @@
+#!/bin/sh
+
+zenity --forms --title="New analysis" \
+	--text="Enter configuration:" \
+	--separator="," \
+	--add-entry="Folder" \
+	--add-entry="Threat name" >> threat.csv
+
+case $? in
+    0)
+        echo "Configuration set"
+	name=$(csvtool col 2-2 threat.csv)
+	mv threat.csv* "$name.csv"
+
+	folder2=$(csvtool col 1-1 $name.csv)
+	;;
+    1)
+        echo "Nothing configured."
+	;;
+    -1)
+        echo "An unexpected error has occurred."
+	;;
+esac
+
+read -p"Continue? Y/N :  " answer
+
+if [ "$answer" = "Y" ]; then
+	echo "Starting analysis: "
+#	folder2=$(csvtool col 1-1 $name.csv)
+	
+	echo $folder2
+
+	for i in "$folder2"/*; do
+		rakudo $name.raku --fi="$i" --fo=.
+	done
+else
+	echo "okay! bye!"
+fi

@@ 0,0 1,1 @@
+samples,sparkling_goblin

@@ 35,7 35,7 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {
     for "$fo/$fi".IO.lines -> $line {
         # If the line contains the gene, print it
          if $line ~~ &sparkling_goblin {say "Sparkling Goblin found: "; say $line; say "in line $c"; say " "; }
-	 if $line ~~ &sparkling2 {say "Sparkling Goblin complex regex found: "; say $line; say "in line $c"; say " "; }
+	 #if $line ~~ &sparkling2 {say "Sparkling Goblin complex regex found: "; say $line; say "in line $c"; say " "; }
 
 	 $c++;
     }