Сортировка данных по третьему столбцу

Question

AAAAAAAA    0.0.0.0   hs01.stuff.net
BBBBBBBB    0.0.0.0   hs01.morestuff.net
CCCCCCCC    0.0.0.0   hs01.evenmorestuff.net
DDDDDDDD    0.0.0.0   hs01.stuff.net
EEEEEEEE    0.0.0.0   hs01.stuff.net
FFFFFFFF    0.0.0.0   hs01.evenmorestuff.net
GGGGGGGG    0.0.0.0   hs01.stuff.net
HHHHHHHH    0.0.0.0   hs01.evenmorestuff.net

Я искал по всему, но я просто не мог найти ответ, который я ищу.

Как вы сортируете по столбцу 3 вывода выше?

Это мой код:

#!/usr/local/bin/perl
use warnings;
use DBI;
use DBD::Oracle;
use HTML::Template;
use List::MoreUtils 'uniq';

######################### Open File and Split The Data Into An Array ####################################
$input_data_file = 'C:\wamp\www\input_corrolation_file.txt';
open (DAT, $input_data_file)
      or die ("Could not open file!");

@raw_data = <DAT>;

close(DAT);
#########################################################################################################


$dbh_source2 = DBI->connect("dbi:Oracle:host=????;port=????;sid=????",'????','????');
$SEL = "SELECT DISTINCT PE_LOOPBACK_IP,PE_FQDN FROM TABLE_NAME WHERE SITE_NAME = ?";
$sth = $dbh_source2->prepare($SEL);
print '<table border=1>';
print '<tr>';
print '<th>Tower name</th>';
print '<th>SUR IP</th>';
print '<th>SUR FQDN</th>';
print '</tr>';



foreach my $data_line (@raw_data) {
        chomp $data_line;
       $sth->execute($data_line);

        my @row = $sth->fetchrow_array;
        unshift (@row, $data_line);
              #Print data into cells#
              print "<tr>";
              foreach (@row) {
                print "<td>$_</td>";
              }
              print "</tr>";
              #print "<$data_line>\t @row\n";



}

print "</table>";
END {
            $dbh_source2->disconnect if defined($dbh_source2);
}

Итак, как мне отсортировать данные в @row по третьему столбцу?

Вся помощь приветствуется!

Answer 1

Отделите выборку от базы данных и печать и сортируйте перед печатью:

my @rows;
foreach my $data_line (@raw_data) {
    chomp $data_line;
    $sth->execute($data_line);

    my @row = $sth->fetchrow_array;
    unshift (@row, $data_line);
    push @rows, \@row;
}

@rows = sort { $a->[2] cmp $b->[2] } @rows;

foreach my $row (@rows) {
    print "<tr>";
    foreach (@$row) {
        print "<td>$_</td>";
    }
    print "</tr>";
}

Answer 2

Вы можете поместить таблицу в хеш, где ключи - это строки, а значения - это значения полей, по которым вы хотите отсортировать, а затем отсортировать хеш по значениям:

my @arr;
my @sorted_arr;
my $key;
my %hash_sort;
my @broken_line;

push (@arr,"last\t222222\tzrf.bcd.cde");
push (@arr,"first\t999999\tabc.poi.pko");
push (@arr,"second\t444444\tjko.drt.xdf");
push (@arr,"third\t111111\tmno.lkn.tyf");

foreach $key (@arr){
  # print "$key\n";
  @broken_line = split("\t",$key);      
  $hash_sort{$key}=$broken_line[2];
}

foreach $key (sort {$hash_sort{$a} cmp $hash_sort{$b}} (keys(%hash_sort))){
  print "$key\n";
  push (@sorted_arr,$key);
}

этот код создает новый отсортированный массив, а также печатает отсортированные строки.