tokubass

#!/usr/bin/env perl
use strict;
use Data::Dumper;
my $strobj = MyURI::http->new({ str => 'http://hoge/'});

warn Dumper $strobj;
warn $strobj;

package MyURI {
    use overload (

tokubass

use strict;
use warnings;
use Data::Dumper;

my @banner_size = ({
    width  => 320,
    height => 50,
});

my $is_existing_size;

tokubass

#!/bin/sh                                                                                                                                                               

# 前提条件                                                                                                                                                              
# 1.fontforgeとx11をインストール済み                                                                                                                                    
#  sudo port install fontforge                                                                                                                                          
#  x11 http://xquartz.macosforge.org/landing/                                                                                                                           
#                                                                                                                                                                       
# 2.同一ディレクトリにRicty-***.

tokubass

#!/usr/bin/env perl                                                                                                                                                      

use strict;
use warnings;
use feature 'say';
use bigint lib => 'GMP';
use Test::More;

subtest 'Project Euler - Problem 3' => sub {
     my $n = 6008514751430000000000000000000000000000000000000000000000000000;

tokubass

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

my $str = 'foo Foo FOO';
$str =~ s{(foo)}{ my $len = scalar split(/[A-Z]/,$1); ( $len == 0 ) ? 'BAR' : ( $len == 1 ) ? 'bar' : 'Bar' }ieg;

is($str, 'bar Bar BAR');

tokubass

#!/usr/bin/env perl

use strict;
use warnings;
use Text::Xslate;
use IO::All;

my $tx = Text::Xslate->new(
    syntax => 'TTerse',
    verbose => 2,

tokubass

#!/usr/bin/env perl
use strict;
use warnings;
use IPC::Run qw/ timeout /;

IPC::Run::run(
  ['cat', 'sample.txt'],
  \my $in,
  \my $out,
  \my $err,

tokubass

use strict;
use warnings;

my $dis = MyDispatch->new;
$dis->print;



package MyDispatch {
    use CGI;

tokubass

4 Composite Types

• array,structはサイズ固定
• maps,slicesはサイズ変動
• sliceの前にarrayを学ぶこと

4.1 Array

宣言と初期化

tokubass

4.2 Slices

• 配列の部分列にアクセスするための軽量データ構造
• sliceはアクセス手段なので、複数のsliceは一つの配列を共有することができる
• sliceの背後にある配列を基本配列と呼ぶ

3つのコンポーネント

図4.1をみるとわかりやすいので参照。

• pointer