From 8aa313633fbe7928ddefc59cfb69d93542b0ee5e Mon Sep 17 00:00:00 2001
From: alien <inversealien@protonmail.com>
Date: Wed, 28 Sep 2022 12:47:36 +0000
Subject: [PATCH] changing the raku code

---
 aaa.csv                              |  1 -
 aaaa.csv                             |  1 -
 form.sh => curious.sh                |  0
 sparkling_goblin.csv                 |  1 -
 sparkling_goblin.raku                | 10 +++++-----
 example.raku => testing/example.raku |  0
 test.raku => testing/test.raku       |  0
 7 files changed, 5 insertions(+), 8 deletions(-)
 delete mode 100644 aaa.csv
 delete mode 100644 aaaa.csv
 rename form.sh => curious.sh (100%)
 delete mode 100644 sparkling_goblin.csv
 rename example.raku => testing/example.raku (100%)
 rename test.raku => testing/test.raku (100%)

diff --git a/aaa.csv b/aaa.csv
deleted file mode 100644
index f5a27b6..0000000
--- a/aaa.csv
+++ /dev/null
@@ -1 +0,0 @@
-samples,aaa
diff --git a/aaaa.csv b/aaaa.csv
deleted file mode 100644
index cb07608..0000000
--- a/aaaa.csv
+++ /dev/null
@@ -1 +0,0 @@
-samples,aaaa
diff --git a/form.sh b/curious.sh
similarity index 100%
rename from form.sh
rename to curious.sh
diff --git a/sparkling_goblin.csv b/sparkling_goblin.csv
deleted file mode 100644
index afd53b5..0000000
--- a/sparkling_goblin.csv
+++ /dev/null
@@ -1 +0,0 @@
-samples,sparkling_goblin
diff --git a/sparkling_goblin.raku b/sparkling_goblin.raku
index a2d997e..6734051 100644
--- a/sparkling_goblin.raku
+++ b/sparkling_goblin.raku
@@ -1,10 +1,10 @@
 
 #my functions
 sub MAIN (Str :$fi = '', Str :$fo = '') {
-    say "File is $fi";
-    say "Folder is $fo";
-    say "-------------";
-    say " ";
+#    say "File is $fi";
+#    say "Folder is $fo";
+#    say "-------------";
+#    say " ";
     
     # some functions in the binary
 
@@ -34,7 +34,7 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {
     my $c = 1;
     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 ~~ &sparkling_goblin {say "Sparkling Goblin found: "; say $line; say "in line $c"; say "in file $fi"; say " "; }
 	 #if $line ~~ &sparkling2 {say "Sparkling Goblin complex regex found: "; say $line; say "in line $c"; say " "; }
 
 	 $c++;
diff --git a/example.raku b/testing/example.raku
similarity index 100%
rename from example.raku
rename to testing/example.raku
diff --git a/test.raku b/testing/test.raku
similarity index 100%
rename from test.raku
rename to testing/test.raku
-- 
2.45.2