#!/usr/bin/perl
use strict;
use warnings;
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
my $str = 'apple';
if ($str =~ /^ap/) {
print "Match0
\n";
}
if ($str =~ /ple/) {
print "Match1
\n";
}
my $xx=4;
if ($xx > 5) {
print "5より大きい
\n";
} elsif ($xx == 5) {
print "5ちょうど
\n";
} else {
print "5より小さい
\n";
}
# $`:前半 $&:中 $':後半
my $anyday = "qwrabc89ty";
my $stock0;
my $stock1;
my $stock2;
if ($anyday =~ m/abc/i) { $stock0 = $`; $stock1 = $'; $stock2 = $&;}
print "$anyday
\n"; # qwrabc89ty
print "$stock0
\n"; # qwr
print "$stock1
\n"; # 89ty
print "$stock2
\n"; # abc
print "------------------
\n";
print "\n";
print "\n";