Binary strings: Difference between revisions
Content added Content deleted
(Added Prolog Implementation) |
SqrtNegInf (talk | contribs) (Added verbiage about Perl) |
||
Line 2,220: | Line 2,220: | ||
s3 := greeting + ' and how are you, ' + s1 + '?'; |
s3 := greeting + ' and how are you, ' + s1 + '?'; |
||
end.</lang> |
end.</lang> |
||
=={{header|Perl}}== |
|||
Effective string manipulation has been a part of Perl since the beginning. Simple stuff is simply done, but modern Perl also supports Unicode, and tools like <code>pack/unpack</code> let you operate on strings below the level of bytes. |
|||
<lang perl>$s = undef; |
|||
say 'Nothing to see here' if ! defined $s; # 'Nothing to see here' |
|||
say $s = ''; # '' |
|||
say 'Empty string' if $s eq ''; # 'Empty string' |
|||
say $s = 'be'; # 'be' |
|||
say $t = $s; # 'be' |
|||
say 'Same' if $t eq $s; # 'Same' |
|||
say $t = $t .'e' # 'bee' |
|||
say $t .= 'keeper'; # 'beekeeper' |
|||
$t =~ s/ee/ook/; say $t; # 'bookkeeper' |
|||
say $u = substr $t, 2, 2; # 'ok' |
|||
say 'Oklahoma' . ' is ' . uc $u; # 'Oklahoma is OK'</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |