#!/usr/bin/env perl
use utf8;
###############################################################################
# This program demonstrates basic string functions.
# 
# Copyright © 2020 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
	binmode(STDOUT, ":utf8");
	binmode(STDERR, ":utf8");
	binmode(STDIN, ":utf8");
	my $alphabet = "abcdefghijklmnopqrstuvwxyzabc";
	my $greekAlphabet = "αβγδεζηθικλμνξοπρσςτυφχψωαβγ";
	my $emoji = "😃😇🥰🤪🤑😴🤒🥵🥶🤯🥳😎😥😱😡🤬💀👽🤖😺🙈🙉🙊😃😇🥰";

	print "Length: ", length($alphabet), "\n";
	print "charAt(17): ", substr($alphabet, 17, 1), "\n";
	print "codePointAt(17): ", ord(substr($alphabet, 17, 1)), "\n";
	print "substr(23, 26): ", substr($alphabet, 23, 3), "\n";
	print "prefix(6): ", substr($alphabet, 0, 6), "\n";
	print "right_tail(6): ", substr($alphabet, 6), "\n";
	print "suffix(6): ", substr($alphabet, -6), "\n";
	print "find(\'def\'): ", index($alphabet, "def"), "\n";
	print "find(\'def\') is not found: ", (index($alphabet, "def") == -1), "\n";
	print "find(\'bug\'): ", index($alphabet, "bug"), "\n";
	print "find(\'bug\') is not found: ", (index($alphabet, "bug") == -1), "\n";
	print "rfind(\'abc\'): ", rindex($alphabet, "abc"), "\n";
	print "rfind(\'abc\') is not found: ", (rindex($alphabet, "abc") == -1), "\n";
	print "rfind(\'bug\'): ", rindex($alphabet, "bug"), "\n";
	print "rfind(\'bug\') is not found: ", (rindex($alphabet, "bug") == -1), "\n";

	print "Length: ", length($greekAlphabet), "\n";
	print "charAt(17): ", substr($greekAlphabet, 17, 1), "\n";
	print "codePointAt(17): ", ord(substr($greekAlphabet, 17, 1)), "\n";
	print "substr(23, 26): ", substr($greekAlphabet, 23, 3), "\n";
	print "prefix(6): ", substr($greekAlphabet, 0, 6), "\n";
	print "right_tail(6): ", substr($greekAlphabet, 6), "\n";
	print "suffix(6): ", substr($greekAlphabet, -6), "\n";
	print "find(\'δεζ\'): ", index($greekAlphabet, "δεζ"), "\n";
	print "find(\'δεζ\') is not found: ", (index($greekAlphabet, "δεζ") == -1), "\n";
	print "find(\'bug\'): ", index($greekAlphabet, "bug"), "\n";
	print "find(\'bug\') is not found: ", (index($greekAlphabet, "bug") == -1), "\n";
	print "rfind(\'αβγ\'): ", rindex($greekAlphabet, "αβγ"), "\n";
	print "rfind(\'αβγ\') is not found: ", (rindex($greekAlphabet, "αβγ") == -1), "\n";
	print "rfind(\'bug\'): ", rindex($greekAlphabet, "bug"), "\n";
	print "rfind(\'bug\') is not found: ", (rindex($greekAlphabet, "bug") == -1), "\n";

	print "Length: ", length($emoji), "\n";
	print "charAt(16): ", substr($emoji, 16, 1), "\n";
	print "codePointAt(16): ", ord(substr($emoji, 16, 1)), "\n";
	print "substr(20, 24): ", substr($emoji, 20, 4), "\n";
	print "prefix(6): ", substr($emoji, 0, 6), "\n";
	print "right_tail(6): ", substr($emoji, 6), "\n";
	print "suffix(6): ", substr($emoji, -6), "\n";
	print "find(\'😱😡🤬\'): ", index($emoji, "😱😡🤬"), "\n";
	print "find(\'😱😡🤬\') is not found: ", (index($emoji, "😱😡🤬") == -1), "\n";
	print "find(\'bug\'): ", index($emoji, "bug"), "\n";
	print "find(\'bug\') is not found: ", (index($emoji, "bug") == -1), "\n";
	print "rfind(\'😃😇🥰\'): ", rindex($emoji, "😃😇🥰"), "\n";
	print "rfind(\'😃😇🥰\') is not found: ", (rindex($emoji, "😃😇🥰") == -1), "\n";
	print "rfind(\'bug\'): ", rindex($emoji, "bug"), "\n";
	print "rfind(\'bug\') is not found: ", (rindex($emoji, "bug") == -1), "\n";
}