nur 3. spalte in datei einlesen - #104688 (Allgemeines zu Perl)

renee

2008-01-14 12:45

User since
2003-08-04
14371 Artikel
ModeratorIn

Benchmark:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(cmpthese);

my @array = (1..10);
my $test = 9;

cmpthese(
  10000000,
  {
     negativ => sub{ my $x = $array[-2] },
     minus   => sub{ my $x = $array[$test-1] },
  }
);

Code: (dl )

1
2
3

             Rate   minus negativ
minus   4000000/s      --    -39%
negativ 6600660/s     65%      --

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/