- 配列の部分列にアクセスするための軽量データ構造
- sliceはアクセス手段なので、複数のsliceは一つの配列を共有することができる
- sliceの背後にある配列を基本配列と呼ぶ
図4.1をみるとわかりやすいので参照。
- pointer
use strict; | |
use warnings; | |
my $dis = MyDispatch->new; | |
$dis->print; | |
package MyDispatch { | |
use CGI; |
#!/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"); |
<?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); |
#!/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 |
#!/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(); |
# | |
use Test::Base::SubTest; | |
run_is input => 'expected'; | |
done_testing; | |
__DATA__ | |
### subtest11 |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use PPI; | |
use File::PackageIndexer; | |
use IO::All; | |
use Graph::Easy; | |
use Encode; | |
my $dir = shift; |