写経写経

perl 
use strict;
use warnings;
use Test::More;

my $c = "abcdefg";

is( substr($c,1,2),"ab");

done_testing;
use strict;
use warnings;
use Test::More;

is( abs(-4),4);

done_testing;
use strict;
use warnings;
use Test::More;

is( sqrt(9),2);

done_testing;
use strict;
use warnings;
use Test::More;

is( int(2.5),3);

done_testing;
use strict;
use warnings;
use Test::More;
use POSIX 'ceil';

is( ceil(2.4),4);

done_testing;
use strict;
use warnings;
use Test::More;

my $str = "abcdef";

like($str,qr/\w+/,'Test:$str =~ /\w+/');

done_testing;