-
array,structはサイズ固定
-
maps,slicesはサイズ変動
-
sliceの前にarrayを学ぶこと
- []でアクセス
use Sledge::Session::Memcached; | |
BEGIN { | |
no warnings; | |
*Sledge::Session::Memcached::_delete_me = sub { | |
my $self = shift; | |
my $ok = $self->{_dbh}->delete($self->{_sid}); | |
unless ($ok) { | |
warn 'delete command fails'; | |
} | |
$ok; |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use PPI; | |
use File::PackageIndexer; | |
use IO::All; | |
use Graph::Easy; | |
use Encode; | |
my $dir = shift; |
# | |
use Test::Base::SubTest; | |
run_is input => 'expected'; | |
done_testing; | |
__DATA__ | |
### subtest11 |
#!/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(); |
#!/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 |
<?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 strict; | |
use warnings; | |
use PDF::API2; | |
use Data::Dumper; | |
my $home= '/Users/user'; | |
my $pdf = PDF::API2->open("$home/Desktop/rireki.pdf"); |
use strict; | |
use warnings; | |
my $dis = MyDispatch->new; | |
$dis->print; | |
package MyDispatch { | |
use CGI; |