Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: =~ matches non-existent symbols

by rnewsham (Curate)
on Nov 16, 2014 at 08:58 UTC ( [id://1107336]=note: print w/replies, xml ) Need Help??


in reply to =~ matches non-existent symbols

Another way could be to use Tie::File and grep. 

use strict;
use warnings;

use Tie::File;

die "File does not exist" unless -f $ARGV[0];

tie my @file, 'Tie::File', $ARGV[0] or die "Could not tie file";

if ( grep !/^[actg]+$/i, @file )
{
        print "BAD\n";
}
else
{
        print "OK\n";
}

[download]

Update: Inefficent see below update by ikegami

Replies are listed 'Best First'.
Re^2: =~ matches non-existent symbols
by ikegami (Patriarch) on Nov 18, 2014 at 17:38 UTC
    What a waste. This will slow down the program by so much and it'll use up so much more memory than needed. You could simply use 
    use strict;
use warnings;

my $bad = 0;
while (<>) {
   if (!/^[actg]+$/i) {
      ++$bad;
      last;
   }
}

print $bad ? "BAD\n" : "OK\n";

    [download]
[reply]
[d/l]

      You are correct, I had not considered how inefficent that method is. Thanks for pointing it out.

[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://1107336]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others pondering the Monastery: (None)
    As of 2024-04-25 01:21 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found