目次

内容

まとめ

  • 配列に入れるのならmapChomp1のようにpushを使う
  • Perl6::Slurpは遅くて使い物にならない

追記

検証したスクリプト

#!/usr/bin/perl -w

use strict;
use Benchmark;
use Perl6::Slurp;

timethese(
    5,
    {   "Slurp" => q{
            my $indexFile = "./big_file.txt";
            my @array = slurp ( $indexFile, { chomp => 1 } );;
        },
        "mapChomp1" => q{
            my $indexFile = "./big_file.txt";
            my @array;
            open( my $fh, $indexFile ) || die( "can't open index file: $!" );
            map { chomp; push( @array, $_ ); } <$fh>;
            close $fh;
        },
        "mapChomp2" => q{
            my $indexFile = "./big_file.txt";
            open( my $fh, $indexFile ) || die( "can't open index file: $!" );
            my @array = map { chomp; $_; } <$fh>;
            close $fh;
        },
        "mapChomp3" => q{
            my $indexFile = "./big_file.txt";
            open( my $fh, $indexFile ) || die( "can't open index file: $!" );
            my @array = map { local $/; chomp; $_; } <$fh>;
            close $fh;
        },
    }
);

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2016-09-25 (日) 19:27:03 (446d)