Anonymous user
Substring/Top and tail: Difference between revisions
→{{header|Perl 6}}: update to modern Perl 6; demo Unicode plane independence
(→{{header|SNOBOL4}}: Added Standard ML) |
(→{{header|Perl 6}}: update to modern Perl 6; demo Unicode plane independence) |
||
Line 780:
=={{header|Perl 6}}==
Perl 6 provides both functional and method forms of substr. Note that, unlike in Perl 5, offsets from the end do not use negative numbers, but instead require a function expressing the negative offset relative to the length parameter, which is supplied by the operator. The form <tt>*-1</tt> is just a simple way to write such a function.
We use musical sharps and flats to illustrate that Perl is comfortable with characters from any Unicode plane.
print qq:to/END/;
Original:
$s
Remove first character:
{ substr($s, 1) }
{ $s.substr(1) }
Remove last character:
▲<lang perl6>my $string = 'ouch';
{ substr($s, 0, *-1) }
{ $s.substr( 0, *-1) }
{ $s.chop }
Remove first and last characters:
{ substr($s, 1, *-1) }
{ $s.substr(1, *-1) }
END</lang>
{{out}}
<pre>Original:
𝄪♯♮♭𝄫
Remove first character:
♯♮♭𝄫
♯♮♭𝄫
Remove last character:
𝄪♯♮♭
𝄪♯♮♭
𝄪♯♮♭
Remove first and last characters:
♯♮♭
♯♮♭</pre>
=={{header|PHP}}==
| |||