in reply to Re: REGEX help
in thread REGEX help

One must be the volunteer. So i forced a cpanm install and only added a my you forgot. Unfortunately the script crashed the hard way:

------------- EXCEPTION ------------- MSG: Failed validation of sequence '[unidentified sequence]'. Invalid +characters were: STACK Bio::PrimarySeq::validate_seq /Users/karl/perl5/perlbrew/perls/p +erl-5.24.1threads/lib/site_perl/5.24.1/Bio/PrimarySeq.pm:338 STACK Bio::PrimarySeq::_set_seq_by_ref /Users/karl/perl5/perlbrew/perl +s/perl-5.24.1threads/lib/site_perl/5.24.1/Bio/PrimarySeq.pm:287 STACK Bio::PrimarySeq::seq /Users/karl/perl5/perlbrew/perls/perl-5.24. +1threads/lib/site_perl/5.24.1/Bio/PrimarySeq.pm:272 STACK Bio::PrimarySeq::new /Users/karl/perl5/perlbrew/perls/perl-5.24. +1threads/lib/site_perl/5.24.1/Bio/PrimarySeq.pm:229 STACK Bio::Seq::new /Users/karl/perl5/perlbrew/perls/perl-5.24.1thread +s/lib/site_perl/5.24.1/Bio/Seq.pm:496 STACK toplevel ./bio.pl:16 -------------------------------------

Just for curiosity. Anyway - too bad. This stuff is PITA...

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Replies are listed 'Best First'.
Re^3: REGEX help
by poj (Abbot) on Apr 21, 2018 at 17:17 UTC

    Take the spaces out of $letters and you should get

    $prot_object = bless( { 'primary_seq' => bless( { 'length' => 63, '_root_verbose' => 0 +, '_nowarnonempty' => +undef, 'seq' => 'MGPTSQPTLH +PQNHAGIGLRKGKHLCVAYEPFLYLLLSQQGRKREEAAVERIRLREVGISLL*', 'alphabet' => 'prote +in' }, 'Bio::PrimarySeq' ) +, '_root_verbose' => 0 }, 'Bio::Seq' );

    whatever that means !

    poj
      karlgoethebier and poj,

      Thank you for cleaning up my mess and throwing the code over the finish line.

      Cheers,

      Brent

      -- Yeah, I'm a Delt.

        Why are you so mad, Bront?

        It's good code, Brant.

        (Appologies to Brent and WeRateDogs™)

        Forget about the mess and let' go for a sunday roast bro. Best regards, Karl

        «The Crux of the Biscuit is the Apostrophe»

        perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

      "Take the spaces out...whatever..."

      D'oh! Thanks and best regards, Karl

      «The Crux of the Biscuit is the Apostrophe»

      perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help