代码之家 › 专栏 › 技术社区 › Igor Dvorzhak

排序存档:就地压缩成员

perl

Igor Dvorzhak · 技术社区 · 6 年前

我需要使用Perl对数组成员进行就地排序,但如果不使用 Data::Alias 如上所述 this 回答。

如果没有默认不包含在Debian发行版中的其他Perl库,是否可以实现这一点?

代码:

use Archive::Zip;
use feature qw(say);

my $zip = Archive::Zip->new();
$zip->read("<PATH_TO_ZIP>");

my $members_ref = $zip->{'members'};
my @members = @$members_ref;

# Not sorted 1st member:
say @members[0]->fileName();

@members = sort { $b->fileName() cmp $a->fileName() } @members;

# Sorted 1st member:
say @members[0]->fileName();

# Should be sorted 1st member if sorted in-place:
say @{$zip->{'members'}}[0]->fileName();

1 回复 | 直到 6 年前

Corion 6 年前

我不明白你的问题。当然,如果对数组引用进行排序,则可以就地对数组引用进行排序。在程序中,创建数组的副本,并对该数组进行排序。原始数组保持未排序状态。

以下程序消除了阵列拷贝,并为我工作:

#!perl
use strict;
use warnings;
use Archive::Zip;
use feature qw(say);

my $zip = Archive::Zip->new();
$zip->read("Q:/cygwin_tools.zip");

my $members_ref = $zip->{'members'};

# Not sorted 1st member:
say $members_ref->[0]->fileName();

@$members_ref = sort { $b->fileName() cmp $a->fileName() } @$members_ref;

# Sorted 1st member:
say $members_ref->[0]->fileName();

# Should be sorted 1st member if sorted in-place:
say @{$zip->{'members'}}[0]->fileName();

__END__
cygwin/
cygwin/usr/share/bison.simple
cygwin/usr/share/bison.simple

也见

perlreftut

References Quick Reference

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前