Shell Programming and Scripting

I have a perl script with an array of clients.

@arr = ("The ABC Corp", "AA Corp.", "BB Corp");

If I run

@a = sort (@arr);

I will get

@a = ("AA Corp", "BB Corp", "The ABC Corp");

but I want

@a = ("AA Corp, "The ABC Corp", "BB Corp");

How do I sort array without changing contents, but ignoring "The " at beginning of string using sort() function?

I do not think there is a way of doing this without writing my own sort function, but with perl you never know.

Yeah you don't necessarily need to make a dedicated sort function for that ... my code is as follows for your reference, but that is no different from a sort function anyway.

Code:

#!/usr/bin/perl

@a = ("The ABC Corp", "AA Corp.","BB Corp");
@sorted = sort { 
 @name_pair = map { /^(The )?(.*)$/; $2; } ($a, $b);
 $name_pair[0] cmp $name_pair[1]; 
} @a;
foreach $item (@sorted) {
 print "$item\n";
}

Output:

Code:

AA Corp.
The ABC Corp
BB Corp

Thanks, I knew there was a way.

It is not really a function though, but as
the Perl CookBook says: