Re: Sort Question (Again) :(

my @sorted_list = 
     map { $$_[0] }
     sort { $$a[1] cmp $$b[1] }
     map { [ $_, do{
      my $tmp = join "\x00", (split /\t/)[3,4];
      $tmp =~ s/(^|\x00)\s+/$1/g;$tmp } ]
     } @database_in;
[download]

Update:With extra added condition of stripping leading spaces. Fixed. Can't have 'local $_' inside do{} block due to split using outer $_.

Comment on Re: Sort Question (Again) :( Download Code

Replies are listed 'Best First'.
Re: Re: Sort Question (Again) :( by LostS (Friar) on Oct 19, 2001 at 20:56 UTC
You all rock :) Here is the code that sorts properly and gets rid of the stinking space.. `my @sorted_list = map { $$_[0] } sort { $$a[1] cmp $$b[1] } map { [ $_, do{ my $tmp = join "\x00", (split /\t/)[3,4]; $tmp =~ s/(^\|\x00)\s+/$1/g;$tmp } ] } @database_in;` [download] Thank you all for this help :) Update: Change code cause it didn't work 100%... This code does though.. OK I am just using the code above now :) Thank you again :) ----------------------- Billy S. Slinar Hardtail - Guildless Datal Ephialtes - Guildless RallosZek.Net Admin/WebMaster Aerynth.Net Admin/WebMaster `perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat! +\n"; } else { print "Thats a dog\n"; } print "\n";'` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Sort Question (Again) :(
by LostS (Friar) on Oct 19, 2001 at 20:56 UTC

my @sorted_list = 
    map { $$_[0] }
    sort { $$a[1] cmp $$b[1] }
    map { [ $_, do{
        my $tmp = join "\x00", (split /\t/)[3,4];
        $tmp =~ s/(^|\x00)\s+/$1/g;$tmp } ]
    } @database_in;
[download]

Update:

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'
[download]

[reply]
[d/l]
[select]