From 9c6b66d58c7ae5a2061062f96c8e421ac78b14f3 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 1 Dec 2010 18:42:39 +0100 Subject: [PATCH] note about oid_lex_sort --- printer-callbacks.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/printer-callbacks.pl b/printer-callbacks.pl index f173530..30b0a72 100755 --- a/printer-callbacks.pl +++ b/printer-callbacks.pl @@ -47,6 +47,7 @@ sub columns_cb { warn "# $oid $name var_bind_list ", dump( $session->var_bind_list ); my $results = $session->var_bind_list; + # oid_lex_sort would be wonderfull to use here, but it doesn't work foreach my $r_oid ( sort { my ($af,$bf) = ($a,$b); $af =~ s{\.(\d+)$}{sprintf("%03d",$1)}eg; -- 2.20.1