~alienagain/curious_butterfly

14ab6306cd85e1b37abb6bde4603ffc51218a20a — alien 1 year, 7 months ago f528411
polishing
2 files changed, 5 insertions(+), 3 deletions(-)

M samples/mysample3
M sparkling_goblin.raku
M samples/mysample3 => samples/mysample3 +1 -0
@@ 2,4 2,5 @@ InoauwgdialgfterfaceSpeedTester9Calcregegeaeargku ScheduledCtrl9UpdateJobERKsvza
DAWFAWRASewfwaf ScanHardwareInfoPStwaara
InterfaceSpeedTester9CalcInterfaceSpeedTester9Calcdzjvg 
ScanHardwareInfoPSt
abcdatvkykv123ajyegxyz
InterfaceSpeedTester9Calc

M sparkling_goblin.raku => sparkling_goblin.raku +4 -3
@@ 11,6 11,7 @@ sub MAIN (Str :$fi = '', Str :$fo = '') {
    my token func1 {'InterfaceSpeedTester9Calc'}
    my token func2 {'ScheduledCtrl9UpdateJobERK'}
    my token func3 {'ScanHardwareInfoPSt'}
    

    # matching regex 



@@ 22,11 23,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;
    my $c = 1;
    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 "in line $c"; say " "; }
         $c++;
         if $line ~~ &sparkling_goblin {say "Sparkling Goblin found: "; say $line; say "in line $c"; say " "; }
	 $c++;
    }

}