Perlで自走するエンジニアに必要なたった1つのモジュール

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
#!/usr/bin/env perl
use utf8;
use 5.012;

use DDP {deparse => 1};

my $string = 'Perl入学式';
my @foo = ('foo', 'bar');

p $string;
p @foo;
1
cpanm Data::Printer
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
#!/usr/bin/env perl
use utf8;
use 5.012;

use Test::More;

my $num = '42string';

ok($num == 42);
ok($num eq 'string');

done_testing;
1
cpanm Data::Printer Test::More
1
2
3
use Test::More;
ok('ok');
done_testing;
1
ls | peco | xargs cat
comments powered by Disqus
Built with Hugo
Theme Stack designed by Jimmy