Hi I am confuse as to why the following codes does not work:

#!/usr/perl/bin

use strict;

my @words;
my @array;
my $i = 0;
         
open RI,"<C:\\test.txt" || die "Can't open test.txt for reading: $!\n"
+; 
open (LOG,">C:\\lp.txt") || die "can't open logfile: $!\n";


    while(<RI>)
       {   
 
           if  (/^printer/)
            {
            
                my @strings = (split)[1,3,4];
                if ( $strings[1] eq "idle." )
                {
                 push @array, [ "0", 6 ];
                }
               if ( $strings[2] eq "enabled" )
               {
                 my $s = "Up";
                 push @array, [ $s, 5 ];
               }
               push @array, [ $strings[0], 1 ];
            }
          elsif (m|Interface:(.+)|i)
            {
              @words = split(/\//, $_);
              chomp($words[-1]);
              push @array, [ $words[-1], 3];           
            }
          elsif (m|Description: (.+)|i)
            {
             push @array, [ $1, 4];         
            }
    
          elsif (m|Connection: (.+)|i)
            {   
              if ($1 eq "direct" )
                {
                  push @array, [ "local", 8];
                }
               else
                 { 
                  push @array, [ "remote", 8];
                 }
             } 
           elsif (/Banner not required/)
             {
              push @array, ["No",7 ];
             }
         if ($i == 3)
            {  
              for ( sort { $a->[1] <=> $b->[1] } @array )
               {
                 print "$_->[0]|";
               }
                @array=();
                $i =0;
            }  
         else
            {
             $i++;
           }
       }
[download]

Here 's the data from the file I am reading in:

rinter llp is idle. enabled since Wed Oct 23 15:54:08 GMT 2002. availa
+ble.
    Form mounted: 
    Content types: any
    Printer types: unknown
    Description: OPENprint printer llp
    Connection: direct
    Interface: /usr/lib/lp/model/standard
    On fault: write to root once
    After fault: continue
    Users allowed:
        (all)
    Forms allowed:
        (none)
    Banner not required
    Character sets:
        (none)
    Default pitch:
    Default page size:
    Default port settings: -opost 

printer ps is idle. enabled since Wed Oct 23 15:54:17 GMT 2002. availa
+ble.
    Form mounted: 
    Content types: postscript, simple
    Printer types: unknown
    Description: local printer
    Connection: direct
    Interface: /usr/lib/lp/model/net_lj4x
    On fault: write to root once
    After fault: continue
    Users allowed:
        (all)
    Forms allowed:
        (none)
    Banner not required
    Character sets:
        (none)
    Default pitch:
    Default page size:
    Default port settings:
[download]

The result I am getting: llp|Up|0|local|standard|OPENprint printer llp|No|ps|Up|0|local|net_lj4x|local printer|No| The result I want: llp|local|Standard|OPENprint printer llp|Up|0|No| ps|local|net_lj4x|local printer|Up|0|No| why is the string "Up" and "0" appearing in the second and third position and not fifth and sixth. Thanks for all inputs. --kirk

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.