Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: strange behavior of regex

by parv (Vicar)
on Feb 20, 2020 at 11:17 UTC ( #11113236=note: print w/replies, xml ) Need Help??


in reply to strange behavior of regex

WORKSFORME: output of adjusted code on Perl Banjo with perl 5.30 is ...

g29205.t1 g29176.t1
#!/usr/bin/perl use warnings; use strict; while (my $record = <DATA>){ $record =~ s/\R//g; if ($record =~ /^.*transcript_id "([^"]*).*class_code "([^"]*)/){ my $trans = $1; my $class = $2; #if($class eq 's' | $class eq 'x' | $class eq 'u'){ if( 'sux' =~ /$class/ ){ print "$trans\n"; } } } __DATA__ . transcript_id "g29202.t1"; gene_id "g29202"; gene_name "G42051"; xlo +c "XLOC_053322"; cmp_ref "G42051.1"; class_code "c"; tss_id "TSS54758 +"; . transcript_id "g29205.t1"; gene_id "g29205"; xloc "XLOC_053323"; cla +ss_code "u"; tss_id "TSS54760"; . transcript_id "g29176.t1"; gene_id "g29176"; xloc "XLOC_053324"; cla +ss_code "u"; tss_id "TSS54761"; . transcript_id "g29178.t1"; gene_id "g29178"; gene_name "G42030"; xlo +c "XLOC_053326"; cmp_ref "G42030.1"; class_code "o"; tss_id "TSS54763 +";

NEVERMIND: I missed /g flag when matching 'sux' against /$class/: I had typed the test instead of copying from OP. I just did not think it was needed as the single captured letter will match the string without the flag. Yes, OP's problem persists if /g is insisted.

After a session of perl -Mre=debug ... as I understand the behaviour, when /g flag is used ('sux' =~ /$class/g), the last matched position in "sux" is remembered; next match is then started after that position. So if "u" was matched once, then next time match will start at "x". That will fail if the value of "class" on next line is "u" also.

The correct test would be: $class =~ /[sux]/  # /g is not needed; does not hurt either.

Replies are listed 'Best First'.
Re^2: strange behavior of regex
by tybalt89 (Prior) on Feb 20, 2020 at 15:31 UTC
    'sux' =~ $class

    would also work. It was the /g that was the problem.

Re^2: strange behavior of regex
by biologistatsea (Acolyte) on Feb 20, 2020 at 14:54 UTC
    Perfect - that makes total sense now. Thanks very much!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11113236]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (4)
As of 2020-10-27 07:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (256 votes). Check out past polls.

    Notices?