Re^2: use re 'debug';, scope, and output

It didn't occur to me at the time that compile time vs runtime was part of the issue, but now that I'm aware it completely makes sense. When I compile the regex ouside of the use statement, it isn't caught. Thanks for clarifying.

Shouldn't everything under the feature do the same thing though?

Your little code snip will come in handy in the future, thanks!

Comment on Re^2: use re 'debug';, scope, and output Download Code

Replies are listed 'Best First'.
Re^3: use re 'debug';, scope, and output by Anonymous Monk on Jul 14, 2015 at 07:10 UTC
Shouldn't everything under the feature do the same thing though? Eh? It does You can pick and choose which debugging output you want, but it might be nice if you could specify a filehandle for the output... #!/usr/bin/perl -- use strict; use warnings; use Capture::Tiny qw/ capture /; use Data::Dump qw/ dd /; my $string = 'd"alice'; my( $stdout, $stderr, $exit ) = capture { use re 'Debug', 'ALL'; no re 'Debug', 'COMPILE'; $string =~ s/\bd\"//g; }; $string =~ /alice/; dd( $stdout, $stderr, $exit , $string ); __END__ ( "", "Guessing start of match in sv for REx \"\\bd\\%\"\" against \"d%\"a +lice\"\nFound anchored substr \"d%\"\" at offset 0 ...\nstart_shift: 0 check_at: 0 s: 0 endpos: 1\nDoes not contradict ST +CLASS...\nGuessed: match at offset 0\nMatching REx \"\\bd\\%\"\" against \"d%\"alice\"\n Setting an EVAL scope, savesta +ck=48\n 0 <> <d\"alice> \| 1:BOUND(2) \n 0 <> <d\"alice> \| 2:EXACT <d\">(4)\n 2 <d\"> <alice +> \| 4:END(0)\nMatch successful!\nMatch ing REx \"\\bd\\%\"\" against \"alice\"\nGuessing start of match in sv + for REx \"\\bd\\%\"\" against \"alice\"\nDid not find anchored substr \"d%\"\"...\nMatch rejected by optimizer\nNot pre +sent...\nMatch failed\n", 1, "alice", ) [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: use re 'debug';, scope, and output
by Anonymous Monk on Jul 14, 2015 at 07:10 UTC

Shouldn't everything under the feature do the same thing though?

Eh? It does

You can pick and choose which debugging output you want, but it might be nice if you could specify a filehandle for the output...

#!/usr/bin/perl --
use strict;
use warnings;
use Capture::Tiny qw/ capture /;
use Data::Dump qw/ dd /;

my $string = 'd"alice';

my( $stdout, $stderr, $exit ) = capture {
    use re 'Debug', 'ALL';
    no re 'Debug', 'COMPILE';
    $string =~ s/\bd\"//g;

};

$string =~ /alice/;
dd( $stdout, $stderr, $exit , $string );
__END__
(
  "",
  "Guessing start of match in sv for REx \"\\bd\\%\"\" against \"d%\"a
+lice\"\nFound anchored substr \"d%\"\" at offset 0
...\nstart_shift: 0 check_at: 0 s: 0 endpos: 1\nDoes not contradict ST
+CLASS...\nGuessed: match at offset 0\nMatching REx
 \"\\bd\\%\"\" against \"d%\"alice\"\n  Setting an EVAL scope, savesta
+ck=48\n   0 <> <d\"alice>            |  1:BOUND(2)
\n   0 <> <d\"alice>            |  2:EXACT <d\">(4)\n   2 <d\"> <alice
+>            |  4:END(0)\nMatch successful!\nMatch
ing REx \"\\bd\\%\"\" against \"alice\"\nGuessing start of match in sv
+ for REx \"\\bd\\%\"\" against \"alice\"\nDid not
find anchored substr \"d%\"\"...\nMatch rejected by optimizer\nNot pre
+sent...\nMatch failed\n",
  1,
  "alice",
)
[download]

[reply]
[d/l]