Thread Spreadsheet::WriteExcel Spreadsheet::ParseExcel: Resourcenverwendung? (21 answers)
Opened by GoodFella at 2007-04-04 02:24

GoodFella
 2007-04-08 17:24
#75649 #75649
User since
2007-01-09
192 Artikel
BenutzerIn
[default_avatar]
Es bleibt mir ja nur der Umstieg auf Win32::OLE, also habe ich mal einen Geschwindigkeitstest gemacht:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

#!/usr/bin/perl

use strict;
use warnings;

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';

my $xl = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); 
$xl->{'Visible'} = 0;
$xl->{'DisplayAlerts'} = 0;   

my $book = $xl->Workbooks->Open('c:\test.xls');
my $sheet = $book->Worksheets(1);

my $last_row = $sheet->UsedRange->Find( { What => "*",
               
               
            SearchDirection => xlPrevious,
               
               
            SearchOrder => xlByRows } )->{Row};

print "Start Speed Test..\n";
my $current_time = time;
my $time_start = $current_time;

foreach my $y (1..$last_row)
 {
  foreach my $x ('a'..'j')
   {
    my $bla = $sheet->Range($x.$y)->{Value};
   }
  if ((time - $current_time) >= 1)
   {
    $current_time = time;
    my $speed = sprintf("%.2f", ($y / ($current_time - $time_start)));
    print "$speed Zeilen pro Sekunde\n" unless (($current_time - $time_start) == 0);
   } 
 }

$xl->Workbooks->Quit();
$xl->destroy();


Ergebnis: Die Geschwindigkeit pendelt sich bei ~90 Zeilen pro Sekunde ein. Das finde ich komisch, denn mit Spreadsheet::ParseExcel bekomme ich ~150 Zeilen pro Sekunde und wenn ich mir so manche VBA-Makros anschaue, dann sind die EXTREM viel schneller, obwohl Win32::OLE Excel ja genau wie VBA direkt benutzt...
Vielleicht ist da irgendein Engpass in meinem Code, den ich übersehen habe?

Nach DProf sieht es so aus, als wäre es wohl doch Win32::OLE ->

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 0.00   9.218  9.642  56101   0.0002 0.0002  Win32::OLE::Dispatch
 0.00   5.943  5.943 168296   0.0000 0.0000  Win32::OLE::Tie::Fetch
 0.00   3.512  4.071  56098   0.0001 0.0001  Win32::OLE::DESTROY
 0.00   2.370 12.488  56101   0.0000 0.0002  Win32::OLE::AUTOLOAD
 0.00   1.962  7.905 168296   0.0000 0.0000  Win32::OLE::Tie::FETCH
 0.00   0.476  0.476  56102   0.0000 0.0000  UNIVERSAL::isa
 0.00   0.223  0.223  56098   0.0000 0.0000  Win32::OLE::Tie::DESTROY
 0.00   0.219  0.357      1   0.2191 0.3572  Win32::OLE::Const::_Typelibs
 0.00   0.138  0.138    564   0.0002 0.0002  Win32::OLE::Const::_Typelib
 0.00   0.030  0.046      4   0.0075 0.0115  Config::BEGIN
 0.00   0.016  0.016      1   0.0160 0.0160  Win32::OLE::Const::_Constants
 0.00   0.016  0.016      2   0.0080 0.0080  Exporter::as_heavy
 0.00   0.016  0.016      6   0.0027 0.0026  ActiveState::Path::BEGIN
 0.00   0.015  0.450      5   0.0030 0.0899  main::BEGIN
 0.00   0.000  0.000      1   0.0000 0.0000  Config::launcher


..hätte eigentlich erwartet, dass das mit Win32::OLE schneller ist.

View full thread Spreadsheet::WriteExcel Spreadsheet::ParseExcel: Resourcenverwendung?