~alienagain/curious_butterfly

8aa313633fbe7928ddefc59cfb69d93542b0ee5e — alien 1 year, 7 months ago 77316d5
changing the raku code
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
D aaa.csv => aaa.csv +0 -1
@@ 1,1 0,0 @@
samples,aaa

D aaaa.csv => aaaa.csv +0 -1
@@ 1,1 0,0 @@
samples,aaaa

R form.sh => curious.sh +0 -0
D sparkling_goblin.csv => sparkling_goblin.csv +0 -1
@@ 1,1 0,0 @@
samples,sparkling_goblin

M sparkling_goblin.raku => sparkling_goblin.raku +5 -5
@@ 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++;

R example.raku => testing/example.raku +0 -0
R test.raku => testing/test.raku +0 -0