Slow sorting
The problem: bad performance
#!/usr/bin/perl
use strict;
use warnings;
my @files = glob "*.xml";
my @sorted_files = sort { -s $a <=> -s $b } @files;
print "@sorted_files\n";
Press ← or → to navigate between chapters
Press S or / to search in the book
Press ? to show this help
Press Esc to hide this help
The problem: bad performance
#!/usr/bin/perl
use strict;
use warnings;
my @files = glob "*.xml";
my @sorted_files = sort { -s $a <=> -s $b } @files;
print "@sorted_files\n";