note
choroba
I assumed you knew more about Perl. My fault. When using a function you do not know yet, consult its documentation.<br>Here is what I had in mind:
<c>
#!/usr/bin/perl
use warnings;
use strict;
my $infile = 'orders.txt';
my $output = 'orders_today.txt';
open my $IN, '<', $infile or die "ERROR: Cannot open '$infile': $!";
my @out;
while (<$IN>) {
chomp;
my @text = split /\t/;
push @out, [@text];
}
open my $OUT, '>', $output or die "Cannot open '$output': $!";
print {$OUT} map "@$_\n", sort { $a->[10] cmp $b->[10] } @out;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1003409
1003415