Perl String PMC

Synopsis

...

Creation

As with other PMC's, create the String with

new P0, .PerlString

Using string value

To set the string you can use the common way to set values on Parrot:

set P0, "string"

And it works in the other direction too:

set S0, P0

and now the string is on S0 register. You can set an integer or numeric value as if it was a string:

set P0, 3.1415926

and if the content of the PMC string is numeric, you can go in the other way too:

set N0, P0

This means that:

set P0, "foo"
set N0, P0

will put '0' in N0. In fact, this is very useful: you can convert a numeric value to string using:

set P0, 3.1415926
set S0, P0

Concatenating strings

Concatenating strings is done using the concat operator:

new P0, .PerlString
new P1, .PerlString
new P2, .PerlString

set P0, "Fred"
set P1, "Flintstone"

concat P2, P0, P1

Then, P2 will hold "FredFlintstone" string. To speed-up things, you can use string registers instead:

new P0, .PerlString
new P1, .PerlString

set P0, "Fred "
set S0, "Flintstone"

concat P1, P0, S0

Note that concatenation creates a new string; this means that after concatenating the string, you can change the original values without changing the concatenation result.

Repeating strings

Repeating strings can be done using the repeat operator. It repeats its second argument the number of times passed as third argument. The result is stored on the string PMC passed as first argument:

new P0, .PerlString
set P0, "x"
new P1, .PerlInt
set P1, 12
new P2, .PerlString
repeat P2, P0, P1

In this example P2 will become xxxxxxxxxxxx.

As you can set and get integers and numbers from a Perl String PMC, this is also valid:

new P0, .PerlString
set P0, "x"
new P1, .PerlString
set P1, 12
new P2, .PerlString
repeat P2, P0, P1

Trueness

Perl String PMC trueness values are like Perl scalar trueness. If it is empty (not initialized), contains an empty value or a 0, then it is evaluated as false. On other cases, it is true.

new P0, .PerlString
set P0, "foo"
if P0, TRUE          # this will succeed


new P0, .PerlString
set P0, "0"
if P0, TRUE          # this will fail

TODO

- Complete synopsis

- Document: chopn

cpanm SmartLink

perl -MCPAN -e shell
install SmartLink