sort issue

[Bogdan]

Hi there,
I need to sort elements of of list/array by character. For instance I
got "hdisk1 hdisk10 hdisk11 hdisk2 hdisk3 ... " and need to have
"hdisk1 hdisk2 hdisk3 ... hdisk10 hdisk11 ..."
I can do that using external programs like
$ cat file_with_hdisks | sort -n -k1.6

but I'd like to do it in perl. Does anyone have any piece of code or
at least idea how to achieve that in as easy way as passible?

Thanks,
Bogdan

[Matija Papec]

X-Ftn-To: Bogdan

[email]bogdan_czyz@hotmail.com[/email] (Bogdan) wrote:

>Hi there,
>I need to sort elements of of list/array by character. For instance I
>got "hdisk1 hdisk10 hdisk11 hdisk2 hdisk3 ... " and need to have
>"hdisk1 hdisk2 hdisk3 ... hdisk10 hdisk11 ..."
>I can do that using external programs like
>$ cat file_with_hdisks | sort -n -k1.6
>
>but I'd like to do it in perl. Does anyone have any piece of code or
>at least idea how to achieve that in as easy way as passible?

[url]http://www.google.com/search?q=schwartzian[/url]

#untested
my @arr = qw/hdisk1 hdisk10 hdisk11 hdisk2 hdisk3/;
@arr =
map $_->[0],
sort {
$a->[1] cmp $b->[1] ||
$a->[2] <=> $b->[2]
}
map [ $_, /(\w+)(\d+)/ ], @arr;



--
Matija

[Tad McClellan]

Bogdan <bogdan_czyz@hotmail.com> wrote:

> I need to sort elements of of list/array by character. For instance I

^^^^^^^^^^

> got "hdisk1 hdisk10 hdisk11 hdisk2 hdisk3 ... "

That is not a "list/array", that is a string.

> and need to have
> "hdisk1 hdisk2 hdisk3 ... hdisk10 hdisk11 ..."

There are several Frequently Asked Questions about sorting,
have you already seen their answers?

> I can do that using external programs like
> $ cat file_with_hdisks | sort -n -k1.6

Why are you stopping at the 6th character when some of your pieces
have 7 characters? (eg. hdisk10).

You have a Useless Use Of Cat as well:

sort -n -k1.6 file_with_hdisks

> but I'd like to do it in perl. Does anyone have any piece of code or
> at least idea how to achieve that in as easy way as passible?

---------------------------
#!/usr/bin/perl
use strict;
use warnings;

my @parts = split /\s+/, 'hdisk1 hdisk10 hdisk11 hdisk2 hdisk3';
print "$_\n" for @parts; # before
print "----\n";

@parts = sort { substr($a, 5) <=> substr($b, 5) } @parts;
print "$_\n" for @parts; # after
---------------------------


--
Tad McClellan SGML consulting
[email]tadmc@augustmail.com[/email] Perl programming
Fort Worth, Texas

[Bogdan]

Thanks a lot for remarks and suggestions.

Bogdan