In Cool§
See primary documentation in context for routine substr-rw
multi method substr-rw(|) is rw multi substr-rw(|) is rw
Coerces the invocant (or in the sub form, the first argument) to Str
, and calls Str.substr-rw with the arguments.
In Str§
See primary documentation in context for method substr-rw
method substr-rw($from, $length = *)
A version of substr
that returns a Proxy
functioning as a writable reference to a part of a string variable. Its first argument, $from
specifies the index in the string from which a substitution should occur, and its last argument, $length
specifies how many characters are to be replaced. If not specified, $length
defaults to the length of the string.
For example, in its method form, if one wants to take the string "abc"
and replace the second character (at index 1) with the letter "z"
, then one does this:
my $string = "abc"; $string.substr-rw(1, 1) = "z"; $string.say; # OUTPUT: «azc»
Note that new characters can be inserted as well:
my $string = 'azc'; $string.substr-rw(2, 0) = "-Zorro-"; # insert new characters BEFORE the character at index 2 $string.say; # OUTPUT: «az-Zorro-c»
substr-rw
also has a function form, so the above examples can also be written like so:
my $string = "abc"; substr-rw($string, 1, 1) = "z"; $string.say; # OUTPUT: «azc» substr-rw($string, 2, 0) = "-Zorro-"; $string.say; # OUTPUT: «az-Zorro-c»
It is also possible to alias the writable reference returned by substr-rw
for repeated operations:
my $string = "A character in the 'Flintstones' is: barney"; $string ~~ /(barney)/; my $ref := substr-rw($string, $0.from, $0.to-$0.from); $string.say; # OUTPUT: «A character in the 'Flintstones' is: barney» $ref = "fred"; $string.say; # OUTPUT: «A character in the 'Flintstones' is: fred» $ref = "wilma"; $string.say; # OUTPUT: «A character in the 'Flintstones' is: wilma»
In Allomorph§
See primary documentation in context for method substr-rw
method substr-rw(Allomorph:D \SELF: $start = 0, $want = Whatever)
Calls Str.substr-rw
on the invocant's Str
value.