Re: Benchmark diamond operator

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark::Forking qw( timethese cmpthese ); # UnixOS
# use Benchmark qw(:all) ; # WindowsOS

my @preserved = @ARGV;

sub test_grep {
    @ARGV = @preserved; # restore original @ARGV
    my @matched = grep { $_ =~ /AGGT/ } <>;

    if (@matched) {
    for(@matched) { chomp $_;
            print "Grep: " . length($_) . "\n";}
    }
    close ARGV if eof;
}

sub test_while {
    @ARGV = @preserved; # restore original @ARGV
    my $count;
    while (<>) {
    if ($_ =~ /^>hsa/){
        chomp (my $line = <>);
        $count .= length($line);
        $count .= " ";
    }
    } continue {
    close ARGV if eof; # reset $. each file
    }
    print "While: " . $count . "\n";
}

my $results = timethese(2, { Grep => \&test_grep, While => \&test_whil
+e }, 'none');
cmpthese( $results );
[download]

Comment on Re: Benchmark diamond operator Download Code

Replies are listed 'Best First'.
Re^2: Benchmark diamond operator by thanos1983 (Parson) on May 09, 2017 at 14:55 UTC
Hello tobyink, Thanks, worked perfectly. :D But share some light, why is it working with `@ARGV = @preserved; # restore original @ARGV`? Thanks again for your time and effort. Seeking for Perl wisdom...on the process of learning...not there...yet!	[reply] [d/l] [select]
Re^3: Benchmark diamond operator by tobyink (Canon) on May 09, 2017 at 18:55 UTC
You need to understand what the diamond operator does: Does the operator have an active filehandle, if not, shift an argument off `@ARGV` and open it for input as the active filehandle or if `@ARGV` is empty, set the active filehandle to STDIN. If called in list context, return all lines from the active filehandle. If called in scalar context and the filehandle is at the end of the file, return undef. Otherwise, return a single line from the filehandle. That's pretty much it. I might be forgetting some subtleties. The key bit, I've highlighted for you in bold. It uses `@ARGV` to figure out what file to read, and it alters that array! So the first time you read a file using the diamond operator, you read it fine. The second time you try to read the file, the filename is no longer on `@ARGV`, so the diamond operator reads from STDIN instead.	[reply] [d/l] [select]
Re^4: Benchmark diamond operator by thanos1983 (Parson) on May 10, 2017 at 08:50 UTC
Hello again tobyink, Thanks for the analytical explanation. I knew that the error was coming because it was reading the STDIN and it was expecting to be fed but I did not know how to overcome this problem. Very nice trick to store the @ARGV temporarily on an array and then call it infinite times since it is not altered every time the loop runs. So simple and very clever at the same time. Thank you for your time and effort. Seeking for Perl wisdom...on the process of learning...not there...yet!	[reply] [d/l] [select]
Re^3: Benchmark diamond operator by Discipulus (Canon) on May 09, 2017 at 20:07 UTC
> But share some light, why is it working with @ARGV = @preserved; # restore original @ARGV? I' dunno well your skills but if you have not understood what the venerable monk tobyink says below, and directly answering to your cited above assertion: the `<>` diamond operators consumes `@ARGV` so if you save a safe copy in `@preserved` you can refill `@ARGV` when you need ie first line of the two subs in the tobyink's example above. As said below the `<>` diamond can also feed `@ARGV` opening `SDTIN` as last resource, so the above works because it restores `@ARGV` original contents at the top of the two testing subs. L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re^4: Benchmark diamond operator by thanos1983 (Parson) on May 10, 2017 at 08:58 UTC
Hello Discipulus, Thank you for the time and effort reading and replying to my question in detail. It helped me to understand the trick that tobyink came up with. Seeking for Perl wisdom...on the process of learning...not there...yet!	[reply] [d/l] [select]