#!/usr/local/bin/perl
use strict;
use warnings;
print "Running $0 using Perl $^V on $^O at " . localtime . "\n";
my $colorred = "\e\[1\;31m";
my $colorgreen = "\e\[1\;32m";
my $colorgrey = "\e\[0\;37m";
my $colorwhite = "\e\[1\;37m";
my $coloryellow = "\e\[1\;33m";
my $text = "15827373-000-000 137";
$text =~ /([0-9a-zA-Z-]+)<\/OptionSku> (\d+)<\/Quantity>/;
print "String = $text\n";
print "Первое совпадение - \"$1\"\n";
print "Второй совпадение - \"$2\"\n";
print "Последнее совпадение - \"$+\"\n";
print "Всё совпадение - \"$&\"\n";
print "Всё до совпадения - \"$`\"\n";
print "Всё после совпадения - \"$'\"\n";
my $num = 4040.555555555;
print "$num\n"; # "4040.555555555" (Perl does not distinguish between an integer and a float)
my $string = "world\n";
print $string; # "world"
print "Hello ".$string; # "Hello world", String concatenation using the . operator (same as PHP)
# Numerical operators: <, >, <=, >=, ==, !=, <=>, +, *
# String operators: lt, gt, le, ge, eq, ne, cmp, ., x
# Ternary operator
my $eggs = 5;
print "You have ", $eggs == 0 ? "no eggs" :
$eggs == 1 ? "an egg" :
"some eggs";
my $gain = 48;
print "You gained ", $gain, " ", ($gain == 1 ? "experience point" : "experience points"), "!","\n";