perl - Sorting data based on the third column -

 <कोड> 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 < / code>  
 मैं सब कुछ खत्म हो खोज रहे होते हैं लेकिन मैं सिर्फ इस सवाल का जवाब मैं देख रहा हूँ नहीं पा सके।  
 कैसे ऊपर उत्पादन के 3 कॉलम के आधार पर चुनना है न? < / P> 
 यह मेरा कोड है:  
  #! / Usr / local / bin / perl चेतावनियों का उपयोग करें; डीबीआई का उपयोग करें; डीबीडी :: ओरेकल का उपयोग करें; एचटीएमएल :: टेम्पलेट का उपयोग करें; सूची का प्रयोग करें: अधिक यूटील्स 'यूनीक'; ######################### फ़ाइल खोलें और एक सरणी में विभाजित डाटा ################ #################### $ input_data_file = 'C: \ WAMP \ www \ input_corrolation_file.txt'; खुले (DAT, $ input_data_file) या मर ("फाइल नहीं खोला जा सका!"); @ रो_डेटा = & lt; DAT & gt ;; करीब (डीएटी); ################################################## ################################################## ##### $ dbh_source2 = DBI- & gt; कनेक्ट ( "dbi: Oracle: मेजबान = ????; बंदरगाह = ????; sid = ????", '????', '? ??? '); $ SEL = "चुनें चुनें PE_LOOPBACK_IP, PE_FQDN FROM TABLE_NAME WHERE SITE_NAME =?"; $ Sth = $ dbh_source2- & gt; तैयार ($ SEL); प्रिंट '& lt; तालिका सीमा = 1 & gt;'; प्रिंट '& lt; tr & gt;'; प्रिंट '& lt; th & gt; टॉवर का नाम & lt; / th & gt;'; प्रिंट '& lt; th & gt; सुर आइपी & lt; / th & gt;'; प्रिंट '& lt; th & gt; सुर FQDN & lt; / th & gt;'; प्रिंट '& lt; / tr & gt;'; मेरी $ डेटा_लाइन (@ रो_डेटा) को साफ़ करें {chomp $ data_line; $ Sth- & gt; पर अमल ($ data_line); मेरा @्रो = $ sth- & gt; fetchrow_array; Unshift (@row, $ data_line); # प्रिंट कोशिकाओं # प्रिंट में "& lt; tr & gt;";; विदेशी (@्रो) {प्रिंट "& lt; td & gt; $ _ & lt; / td & gt;"; } प्रिंट "& lt; / tr & gt;"; # प्रिंट करें "& lt; $ data_line & gt; \ t @row \ n"; } प्रिंट "& lt; / table & gt;"; END {$ dbh_source2- & gt; डिस्कनेक्ट यदि परिभाषित ($ dbh_source2); }   
 तो मैं तीसरे कॉलम द्वारा @row में डेटा को कैसे सॉर्ट कर सकता हूं?  
 सभी मदद की सराहना की जाती है!   
 
 
 डेटाबेस और प्रिंटिंग से फ़ेचिंग को अलग करें, और प्रिंट करने से पहले सॉर्ट करें:  
  my @rows ; मेरी $ डेटा_लाइन (@ रो_डेटा) को साफ़ करें {chomp $ data_line; $ Sth- & gt; पर अमल ($ data_line); मेरा @्रो = $ sth- & gt; fetchrow_array; Unshift (@row, $ data_line); धक्का @ रो, \ @row; } @ रोझ = सॉर्ट {$ a-> [2] सीएमपी $ बी- & gt; [2]} @ रोज़; मेरी आरव की पंक्ति (@ रोशो) को प्रिंट करें {प्रिंट "& lt; tr & gt;"; विदेशी मुद्रा (@ $ पंक्ति) {प्रिंट "& lt; td & gt; $ _ & lt; / td & gt;"; } प्रिंट "& lt; / tr & gt;"; }