~alienagain/curious_butterfly

f5284117000d13053aadf3a2ad6ae807e45a1294 — alien 1 year, 7 months ago cd15ceb
adding line number
1 files changed, 3 insertions(+), 2 deletions(-)

M sparkling_goblin.raku
M sparkling_goblin.raku => sparkling_goblin.raku +3 -2
@@ 22,10 22,11 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {

    # reading the sample line by line from a binary file
#    my $name = prompt "file name >";

    my $c = 0;
    for "$fo/$fi".IO.lines -> $line {
        # If the line contains the gene, print it
         if $line ~~ &sparkling_goblin {say "Genes from Sparkling Goblin were found: "; say $line; say " "; }
         if $line ~~ &sparkling_goblin {say "Genes from Sparkling Goblin were found: "; say $line; say "in line $c"; say " "; }
         $c++;
    }

}