Re: attempting to achieve something


Think about Loose Coupling
	PerlMonks

Re: attempting to achieve something

by 1nickt (Canon)

on Mar 16, 2022 at 13:35 UTC ( [id://11142134]=note: print w/replies, xml )

Need Help??

in reply to attempting to achieve something

Not much of a communicator are we?

use strict;
use warnings;
use feature 'say';

sub mixedregex {
  my $foo = shift;
  say length $foo;
  $foo =~ s{\0([0-7]{3})}{chr oct $1}eg;
  say length $foo;
  return $foo;
}

say mixedregex("bar"."\0"."123");

__END__
[download]

$ perl 11142131.pl
7
4
barS
[download]

Hope this helps!

The way forward always starts with a minimal test.

Comment on Re: attempting to achieve something Select or Download Code

Replies are listed 'Best First'.

Re^2: attempting to achieve something (escaping rules)
by LanX (Saint) on Mar 16, 2022 at 15:06 UTC

> "bar"."\0"."123"

when using doublequotes or interpolated regexes one needs to escape a leading backslash, hence "\\0"

your code is not replacing the string '\0' but the chr(0)

  DB<13> x "\0"
0  "\c@"
  DB<14> x chr(0)
0  "\c@"
  DB<15> x '\0' # with singlequotes escaping is only needed for \ and 
+'
0  '\\0'
  DB<16> p '\0' eq '\\0'
1
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom