tokubass

4.2 Slices

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

3つのコンポーネント

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

• pointer

tokubass

4 Composite Types

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

4.1 Array

宣言と初期化

tokubass

4 Composite Types

• array,structはサイズ固定

• maps,slicesはサイズ変動

• sliceの前にarrayを学ぶこと

4.1 Array

• []でアクセス

tokubass

use strict;
use warnings;

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



package MyDispatch {
    use CGI;

tokubass

#!/usr/bin/env perl

use strict;
use warnings;
use PDF::API2;
use Data::Dumper;

my $home= '/Users/user';
my $pdf = PDF::API2->open("$home/Desktop/rireki.pdf");

tokubass

<?php

function make_random_picker ($item_list,$weight_list) {
    $total_weight = array_sum($weight_list);
    $weighted_array = array_combine($item_list,$weight_list);
    arsort($weighted_array);

    return function () use (&$total_weight, &$weighted_array) {
        $p = 0;
        $r = mt_rand(1,$total_weight);

tokubass

#!/usr/bin/env perl
use 5.014;
use XML::Simple;
use utf8;
use Data::Dumper;
binmode STDIN, ":encoding(utf8)";
binmode STDOUT, ":encoding(utf8)";

#$ mysqldump -uroot --no-data --xml db_name > db.xml
#$ mysqldump_xml_to_html.pl db.xml > db.html

tokubass

#!/usr/bin/env perl
use strict;
use warnings;
use Getopt::Long qw/ :config  no_ignore_case /;
use Cwd qw/getcwd/;
use IPC::Run qw/ timeout /;

my %OPT;
my $GIT = ( eval { require File::Which; } ) ? File::Which::which('git') : 'git';
my $CWD = getcwd();

tokubass

#


use Test::Base::SubTest;
run_is input => 'expected';
done_testing;

__DATA__

### subtest11

tokubass

#!/usr/bin/env perl
use strict;
use warnings;
use PPI;
use File::PackageIndexer;
use IO::All;
use Graph::Easy;
use Encode;

my $dir = shift;