search
HomeBackend DevelopmentPython TutorialPerl中著名的Schwartzian转换问题解决实现

Perl中著名的Schwartzian转换,其产生背景主要涉及到排序问题:
比如说,根据文件名以字母顺序排序,代码如下:

复制代码 代码如下:

use strict; 
use warnings; 
  
my @files = glob "*.xml";          #perl中文件操作符glob提供相当于shell中的通配符的功能 
my @sorted_files = sort @files;    #sort(),排序,默认是字母顺序排序

比如说,根据文件名长度排序,其代码如下:
复制代码 代码如下:

use strict; 
use warnings; 
 
#length求长度。 太空船操作符,默认变量是$a,$b,返回值为-1,0,1分别表示大于,==,小于。 sort进行排序 
my $files = ".xml"; 
my @sorted_length = sort { length($a) length($b) } @files; 

上面的两种情况,对很多文件操作来说,速度还不算慢,如果是下面这种情况。
比如说:要批量比较文件大小,其代码如下:
复制代码 代码如下:

use strict; 
use warnings; 
  
my @files     = glob "*.xml";    
my @sort_size = sort { -s $a -s $b } @files;  #比较大小 

上面的代码设计到三重(次)操作:
1. 从硬盘上获取文件大小(-s $b)
2. 比较文件大小(太空船操作)
3. 对其进行排序(sort操作)
考虑到要比较$a,$b大小时,要从硬盘中获取两次,所以次数是6次!也就是说,如果有1万个文件,总共是6万次。
其算法复杂度是: n*long(n),考虑到后两项(比较文件大小,进行排序)必然要进行的操作,但第一项却可以降低!
即一次性从硬盘中读取所有文件大小,将其放置到Perl中的默认的变量,并存储到内存中!于是又下面算法实现:
复制代码 代码如下:

use strict; 
use warnings; 
 
my @files = glob "*.xml"; 
 
my @unsorted_pairs = map  { [$_, -s $_] } @files; 
my @sorted_pairs   = sort { $a->[1] $b->[1] } @unsorted_pairs; 
my @sorted_files   = map  { $_->[0] } @sorted_pairs; 

看上去比较复杂,分三个步骤解释下:
第一步:遍历文件列表,对每个文件创建一个数组引用。数组引用包含两个元素:
       第一个是文件名($_),第二个是文件大小(-s $_)。这样,处理每个文件只访问一次磁盘。
第二步:对二维数组排序。因比较文件大小,所以需取元素[1],比较它们的值。得到另一个二维数组。
第三步:丢掉文件大小元素,创建一个只含文件名的列表。完成目标!
上面的代码使用了两个临时数组,但这并不是必须的。我们可以一个语句就能完成所有的工作。为了达到目的,需要按照“数据从右流向左”的原理反转句子顺序,不如果将每个句子放在单独一行,并且留出足够的空间,我们依然可以写出可读性高的代码。
复制代码 代码如下:

my @quickly_sorted_files = 
    map  { $_->[0] } 
    sort { $a->[1] $b->[1] } 
    map  { [$_, -s $_] } 
    @files; 

这就是以Randal L. Schwartz命名的Schwartzian转换,对数据量特多的情况下,其速度要比前者快数倍!
下面写了小程序,包括在生成1万个xml文件,在两种情况下,完整代码如下:
复制代码 代码如下:

#!/usr/bin/perl -w 
use strict; 
use warnings; 
use autodie; 
use v5.10; 
 
###################################### 
###  创建要比较的10,000个.xml文件 ### 
###################################### 
my $profix = ".xml"; 
 
foreach my $num (1..10000) { 
    open(my $fh, '>', $num . $profix) || die "Can not create the file: $!\n"; 
    print $fh "This is file size testing!"; 

 
print "All the 10_1000 files created! \n"; 
 
 
###################################### 
### 常规转换:      遍历20次       ### 
###################################### 
my $t1  = time(); 
 
foreach (1..20){  
    my @files     = glob "*.xml"; 
    my @sorted    = sort { -s $a -s $b } @files; 

 
say "常规算法需要时间: => ", time()- $t1; 
 
 
###################################### 
### Schwartzian转换: 遍历20次     ### 
###################################### 
my $t2  = time(); 
 
foreach (1..20){  
    my @files = glob "*.xml"; 
        my @sorted =  
            map  {$_->[0]} 
            sort {$a->[1] $b->[1]} 
            map  {[$_, -s $_]} 
       @files; 

say "Schwartzian算法需要时间: => ", time()- $t2; 

输出结果:
All the 10_1000 files created!
常规算法需要时间:          => 185
Schwartzian算法需要时间: => 115

Statement
The content of this article is voluntarily contributed by netizens, and the copyright belongs to the original author. This site does not assume corresponding legal responsibility. If you find any content suspected of plagiarism or infringement, please contact admin@php.cn
使用Vue.js和Perl语言开发高效的网络爬虫和数据抓取工具使用Vue.js和Perl语言开发高效的网络爬虫和数据抓取工具Jul 31, 2023 pm 06:43 PM

使用Vue.js和Perl语言开发高效的网络爬虫和数据抓取工具近年来,随着互联网的迅猛发展和数据的日益重要,网络爬虫和数据抓取工具的需求也越来越大。在这个背景下,结合Vue.js和Perl语言开发高效的网络爬虫和数据抓取工具是一种不错的选择。本文将介绍如何使用Vue.js和Perl语言开发这样一个工具,并附上相应的代码示例。一、Vue.js和Perl语言的介

使用Python和Perl构建高性能Web应用程序的最佳实践使用Python和Perl构建高性能Web应用程序的最佳实践Jun 17, 2023 am 08:09 AM

在当今数字时代,Web应用程序越来越普遍,让我们的生活更加便利和高效。Python和Perl是两种广泛使用的编程语言,它们都是构建Web应用程序的理想选择。但是,要想建立高性能的Web应用程序,需要掌握一些最佳实践,本文将介绍一些Python和Perl构建高性能Web应用程序的最佳实践。选择合适的Web框架选择一个合适的Web框架是一个设计高性能Web应用程

使用Vue.js和Perl语言开发系统脚本和自动化工具使用Vue.js和Perl语言开发系统脚本和自动化工具Jul 29, 2023 pm 04:57 PM

使用Vue.js和Perl语言开发系统脚本和自动化工具在当前的软件开发环境中,系统脚本和自动化工具已经成为开发人员节省时间和提高效率的重要工具。在这篇文章中,我们将介绍如何使用Vue.js和Perl语言开发系统脚本和自动化工具,并提供一些代码示例。Vue.js是一个流行的JavaScript框架,用于构建用户界面。它采用组件化的开发方式,使得开发人员可以将代

Linux下如何用Nginx作Perl程序服务器及其中Perl模块Linux下如何用Nginx作Perl程序服务器及其中Perl模块May 16, 2023 pm 11:25 PM

perl+fastcgi+nginx搭建nginx+fastcgi是php下最流行的一套环境了,那perl会不会也有fastcgi呢,当然有,今天来搭建下nginx下perl的fastcgi.性能方面也不亚于php,但是现在web程序php的流行程度perl无法比拟了,性能再好也枉然,但是部分小功能可以考虑使用perl的fastcgi来搞定.进入正题.1.准备软件环境:nginxperl:系统自带fastcgi1.2perl安装一般linux都有自带perl,可以不用安装,如果确实没有,请执行:

Redis和Perl语言开发:构建高效的命令行工具Redis和Perl语言开发:构建高效的命令行工具Jul 31, 2023 pm 04:09 PM

Redis和Perl语言开发:构建高效的命令行工具引言:Redis是一个开源的内存数据存储系统,使用C语言编写,具有高性能和灵活的特性,被广泛用于缓存、消息队列和实时分析等场景。Perl是一种脚本语言,具有强大的文本处理和正则表达式功能,非常适合用于快速开发命令行工具。本文将介绍如何使用Perl语言和Redis构建高效的命令行工具,并且提供相关的代码示例。一

如何使用Redis和Perl开发简单键值存储功能如何使用Redis和Perl开发简单键值存储功能Sep 22, 2023 am 09:00 AM

如何使用Redis和Perl开发简单键值存储功能引言:Redis是一个开源的内存数据结构存储系统,它可以用于高效地存储和访问数据。而Perl是一种高级的脚本编程语言,它具有丰富的文本处理能力和便捷的模块集成方式。本文将介绍如何使用Redis和Perl来开发简单的键值存储功能,并提供具体的代码示例。一、安装Redis和Perl模块首先,需要在服务器上安装Red

如何使用Redis和Perl开发推荐系统功能如何使用Redis和Perl开发推荐系统功能Sep 22, 2023 am 09:24 AM

如何使用Redis和Perl开发推荐系统功能推荐系统是现代互联网应用中非常重要的一部分,它可以帮助用户发现他们可能感兴趣的内容或产品。在本文中,我们将介绍如何使用Redis和Perl开发一个简单的推荐系统功能,并提供具体的代码示例。首先,让我们了解一下Redis和Perl的基本概念。Redis是一个开源的内存数据存储系统,它可用作数据库、缓存和消息中间件。它

文本翻译中的多语种转换问题文本翻译中的多语种转换问题Oct 09, 2023 am 10:58 AM

文本翻译中的多语种转换问题,需要具体代码示例随着全球化的进一步发展,文本翻译在日常生活和商业交流中变得越来越重要。而在进行文本翻译时,经常会面临多语种转换的问题。本文将讨论多语种转换问题,并提供一些具体的代码示例来帮助读者更好地理解和应用。多语种转换问题主要涉及将一段文本从一种语言转换为另一种语言。在实际应用中,我们常常需要将一段英文文本转换为中文、法文、西

See all articles

Hot AI Tools

Undresser.AI Undress

Undresser.AI Undress

AI-powered app for creating realistic nude photos

AI Clothes Remover

AI Clothes Remover

Online AI tool for removing clothes from photos.

Undress AI Tool

Undress AI Tool

Undress images for free

Clothoff.io

Clothoff.io

AI clothes remover

AI Hentai Generator

AI Hentai Generator

Generate AI Hentai for free.

Hot Article

R.E.P.O. Energy Crystals Explained and What They Do (Yellow Crystal)
3 weeks agoBy尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. Best Graphic Settings
3 weeks agoBy尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. How to Fix Audio if You Can't Hear Anyone
3 weeks agoBy尊渡假赌尊渡假赌尊渡假赌

Hot Tools

SublimeText3 Linux new version

SublimeText3 Linux new version

SublimeText3 Linux latest version

Atom editor mac version download

Atom editor mac version download

The most popular open source editor

ZendStudio 13.5.1 Mac

ZendStudio 13.5.1 Mac

Powerful PHP integrated development environment

Zend Studio 13.0.1

Zend Studio 13.0.1

Powerful PHP integrated development environment

VSCode Windows 64-bit Download

VSCode Windows 64-bit Download

A free and powerful IDE editor launched by Microsoft