明け方にこつこつ

my $str = "aaabbaa";

$str =~ s/a{1,3}/match/g;

print $str;

sub sum{
	my ($num1,$num2) = @_;
	my $total = $num1 + $num2;
	return $total;
}

my $result = sum(7,4);

print $result;

my @array = (2,4,5,6,8,9);
my @mapped = map{$_ * 2} @array;

foreach my $field(@mapped){
	print $field."\n";
}

my @array = (2,3,4);
my $num = @array;

print $num;

my @array = (2,4,5,6,7,8,13,16);

my @select = grep { $_ % 2 == 0} @array;

foreach my $filed (@select){
	print $filed."\n";
}

my @strs = qw/aaa bb ccc/;

foreach my $field(@strs){
	print $field."\n";
}

open my $fh,"<","test.pl" or die;
while(my $line = <$fh>){
	print $line;
}
close $fh;