7 files changed, 5 insertions(+), 8 deletions(-)

D aaa.csv
D aaaa.csv
R form.sh => curious.sh
D sparkling_goblin.csv
M sparkling_goblin.raku
R example.raku => testing/example.raku
R test.raku => testing/test.raku

@@ 1,1 0,0 @@
-samples,aaa

@@ 1,1 0,0 @@
-samples,aaaa

@@ 1,1 0,0 @@
-samples,sparkling_goblin

@@ 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++;