Performance 为什么我的perl代码的执行时间变化如此之大？
我发现下面的perl代码执行速度惊人地变化，有时快，有时慢。我有几个文件夹，其中包含数以万计的文件，我需要运行这些代码。我用Windows7在cygwin上运行这个。只是想知道是否有人能帮我加快速度，或者至少能找出速度变化的原因。在所有这些情况下，我的CPU和内存都应该充足 在$dir的列表中迭代的外部循环Performance 为什么我的perl代码的执行时间变化如此之大？,performance,perl,Performance,Perl,我发现下面的perl代码执行速度惊人地变化，有时快，有时慢。我有几个文件夹，其中包含数以万计的文件，我需要运行这些代码。我用Windows7在cygwin上运行这个。只是想知道是否有人能帮我加快速度，或者至少能找出速度变化的原因。在所有这些情况下，我的CPU和内存都应该充足 在$dir的列表中迭代的外部循环 opendir(DIR, $dir); @all=readdir(DIR); @files = (0..$#all); $i=-1; foreach $current (@all){
opendir(DIR, $dir);
@all=readdir(DIR);
@files = (0..$#all);
$i=-1;
foreach $current (@all){
if (-f "$dir/$current") {
$files[++$i]=$current;
}
}
push @Allfiles,@files[0..$i];
closedir(DIR);
如果第一次运行时速度很慢，之后又很快，那么问题是系统正在缓存读取。第一次运行代码时，必须从磁盘读取数据。之后，数据仍然缓存在RAM中。如果您等待的时间足够长，缓存将刷新，您将不得不再次访问磁盘
或者，有时您可能会同时运行一些其他磁盘密集型任务，但在运行代码的其他时间不会这样做。如果第一次运行时速度很慢，之后又很快，则问题在于系统正在缓存读取。第一次运行代码时，必须从磁盘读取数据。之后，数据仍然缓存在RAM中。如果您等待的时间足够长，缓存将刷新，您将不得不再次访问磁盘
或者，有时您可能同时运行一些其他磁盘密集型任务，但在运行代码的其他时间不会运行。您可能受到I/O限制，因此对代码的更改可能不会影响总运行时间-运行时间将受目录项是否在缓存中的影响 但是您的代码使用临时数组并没有什么好的理由，如果目录非常大，就会使用太多的RAM。您可以将其简化为：
opendir(DIR, $dir);
while (my file = readdir(DIR)) {
push @Allfiles, $file if (-f "$dir/$file");
}
closedir(DIR);
没有临时数组。您可能受I/O限制，因此对代码的更改可能不会影响整个运行时-运行时将受到目录项是否在缓存中的影响 但是您的代码使用临时数组并没有什么好的理由，如果目录非常大，就会使用太多的RAM。您可以将其简化为：
opendir(DIR, $dir);
while (my file = readdir(DIR)) {
push @Allfiles, $file if (-f "$dir/$file");
}
closedir(DIR);
没有临时阵列。您是否同时在计算机上执行其他操作，如运行bittorrent或游戏服务器或类似程序？您是否同时在计算机上执行其他操作，如运行bittorrent或游戏服务器或类似程序？如果OP内存严重受限，则这些临时阵列可能会向下交换到磁盘，大大降低了速度（讽刺的是）。如果没有考虑到这一点，那么必须是非常大的目录或非常紧张的内存。在这种情况下，删除临时文件会有所帮助，但在这种情况下，
@Allfiles@Allfiles