All code below is untested

Update: suggestion about splitting is valid only if the result from database is "|"-separated, as cleverly pointed out here...

You had to say it immediately:

my @strings = split /\|/, $status;

[download]
Note that, by default, putting @sorted_strings in double quotes will give you space-separated items. You can change the separator using the perlvar $":
{
   local $" = "|";
   print "<br><font color=red>@sorted_strings</font><br>";
}

[download]
I put the curly brackets in order to restrict the modification of the $" variable, making this modification "visible" to the print statement only.

Anyway, I'd probably use a more flexible, metadata-based approach:

my %subst (
   P => 'Posted',
   F => 'Posted',
   C => 'Posted',
   D => 'Posted',
   I => 'Posted',
   A => 'Accepted',
   N => 'New',
   R => 'Rejected',
   S => 'Save',
   X => 'Canceled',
);

my @sorted_strings = sort map { $subst{$_} } split /\|/, $status;

# The above line can be roughly expanded to the three lines below:
#
# my @status_letters = split /\|/, $status;
# my @strings;
# foreach (@status_letters) {
#    push @strings, $subst{$_}
# }
# my @sorted_strings = sort @strings;

[download]

Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Don't fool yourself.

In reply to Re^3: Sorting Issue by polettix
in thread Sorting Issue by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.