klaus: Dateiattribute auslesen ?

Beitrag lesen

Hallo Cheatah,

Mir ging's nicht so sehr um irgendwelche Argumente für oder gegen eine bestimmte Methode, ein Problem zu lösen.

Mich stört nur die Art wie so was geschieht. Wenn Du eine andere Ausdrucksweise gewählt hättest, dann hätte mich das auch nicht so gestört.

Ja, und auch über China kommt man nach Rom. Die Frage ist nur, wie viele Blasen man am Ende an den Füßen

hat.

wenn nur so wäre, Dein Vergleich trifft's leider wirklich nicht.

Ich hab hier bei mir ein bißchen rumgespielt, und kann Dir sagen, der unterschid ist eher marginal. Mal ist die eine Methode, mal die andere gerade mal schneller. Da würde ich eher sagen, wir reden davon, ob Du über Salzburg oder Innsbruck nach Rom fährst. Je nach Verkehrslage ist es halt mal so, mal so schneller.

Deine Argumentation läuft darauf hinaus, daß wir hier von Quantensprüngen reden. Das ist es nun mal nicht. Zumindest bei mir:

<CODE>
#!/usr/bin/perl
use Benchmark qw/cmpthese timethis timediff timestr/;
use File::Find;

@Files = ();

find sub {push @Files,$File::Find::name;}, ('D:\');

print "$#Files Files found\n";
$now = Time;
$dayseconds = (24*3600);

$t0 = new Benchmark;
foreach $file (@Files)
{
$modtime= ($now - stat($file)->[9])/$dayseconds;
}

$t1 = new Benchmark;
$td = timediff($t1, $t0);
print "Stat filename took:",timestr($td),"\n";

$t2 = new Benchmark;
foreach $file (@Files)
{
$modtime= -C $file;
}
$t3 = new Benchmark;
$td2 = timediff($t3, $t2);
print "-C filename took:",timestr($td2),"\n";

</CODE>

<RESULT>
33425 Files found
Stat filename took:24 wallclock secs ( 3.80 usr + 19.42 sys = 23.21 CPU)
-C filename took:23 wallclock secs ( 3.83 usr + 18.87 sys = 22.69 CPU)
</RESULT>

Da hab ich sicherlich was falsch gemacht, oder??

Aber ich will mich jetzt nicht in irgendwelche Grundsatzdiskussionen einlassen, weil doch zu nichts führt.
Wenn's unbedingt sein soll, dann hab' halt ich unrecht und Du vollkommen recht. Ich kann damit leben.

Herzliche Grüße

Klaus