Azure Cosmos DB is a fully managed, globally-distributed, horizontally scalable in storage and throughput, multi-model database service backed up by comprehensive SLAs. Azure Cosmos DB is the next generation of Azure DocumentDB. Cosmos DB was built from the ground up with global distribution and horizontal scale at its core – it offers turn-key global distribution across any number of Azure regions by transparently scaling and replicating your data wherever your users are. You can elastically scale throughput and storage worldwide and pay only for the throughput and storage you need. Cosmos DB guarantees single-digit millisecond latencies at the 99th percentile anywhere in the world, offers multiple well-defined consistency models to fine-tune for performance and guaranteed high availability with multi-homing capabilities – all backed by industry leading service level agreements (SLAs).
Cosmos DB is truly schema-agnostic – it automatically indexes all the data without requiring you to deal with schema and index management. Cosmos DB is multi-model – it natively supports document, key-value, graph and columnar data models. With Cosmos DB, you can access your data using NoSQL APIs of your choice – DocumentDB SQL (document), MongoDB (document), Azure Table Storage (key-value), and Gremlin (graph), are all natively supported. Cosmos DB is a fully managed, enterprise ready and trustworthy service. All your data is fully and transparently encrypted and secure by default. Cosmos DB is ISO, FedRAMP, EU, HIPAA, and PCI compliant as well.
use strict; use warnings; use FindBin; use lib ( "$FindBin::Bin/../lib", "$FindBin::Bin/../local/lib/perl5", ); use MyProj::Client; my $client = MyProj::Client->new(...); ...
use strict; use warnings; use File::Spec; use File::Basename 'dirname'; use lib ( File::Spec->catdir(dirname(__FILE__), qw/.. lib/), File::Spec->catdir(dirname(__FILE__), qw/.. local lib perl5/), ); use MyProj::Client; my $client = MyProj::Client->new(...); ...
This is perl 5, version 24, subversion 0 (v5.24.0) built for darwin-2level (with 1 registered patch, see perl -V for more detail)
Copyright 1987-2016, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page.
use strict; use warnings; use Benchmark ':all'; use Test::More;
## 処理対象となる配列 my @list = (0 .. 10000);
## 各パターンの定義
#- 配列でforを回してpushするタイプ my $for_array_push = sub { my @result; for my $row (@list) { push @result, "num=".$row; } return @result; };
#- 配列インデックスでforを回して直接インデックス指定して代入するタイプ。 my $for_array_index = sub { my @result; for my $i (0 .. $#list) { $result[$i] = "num=".$list[$i]; } return @result; };
#- Cスタイルのforで直接インデックス指定して代入するタイプ。 my $for_cstyle_index = sub { my @result; for (my $i=0; $i<=$#list; $i++) { $result[$i] = "num=".$list[$i]; } return @result; };
#- forを使わないでmapで写像を得るタイプ my $mapping = sub { return map { "num=".$_ } @list; };
ただ注意して欲しいのは、配列を全件処理するだけ(つまり別の配列を作らない)場合にmapを使うことは、可読性という面では好ましくないと考えます(ループ処理だけしたいのか、加工された配列が欲しいのか判断がつかない)。そういうケースでは for my $row (@list) {...} のやり方のほうが意図が読み取りやすいですね。
