in reply to Text Manipulation Quickie

It's almost next to impossible to give a suitable program if the problem is only defined by a single example. But here's my shot. If gives the right output for your specific example, but if the data is different, the output might not be what you want. That happens if you give a single example, and no description. ;-) 
#!/usr/bin/perl

use strict;
use warnings 'all';

my (%data, @data, $data);

while (<DATA>) {
    chomp;
    push @{$data {$_}} => $_;
}

@data = @data {sort {$a <=> $b} keys %data};

while (@data) {
    $data = shift @data;
    print pop @$data, "\n";
    push @data => $data if @$data;
}

__DATA__
2
2
2
3
3
3
4
4
4

[download]
Abigail

Replies are listed 'Best First'.
Re: Re: Text Manipulation Quickie
by johnirl (Monk) on Aug 15, 2002 at 12:49 UTC
    Sorry about the abruptness of the main question. I seemed to have forgotten my manners.
    What I am trying to do is sort results from a database into a predefined format. The results always come out sorted from the database and I want to rearrange them.
    And a little add on to that question
    What do I need to do if I have two (or more) columns seperated by semi-colons but I only want to sort by the first one?
    These maybe simple problems but this is my first attempt at using perl to manipulate text! And I have a looming deadline. So be gentle. 
     
2;3425;
2;4534;
2;2155;
3;1324;
3;1253;
3;3455;
4;3454;
4;3464;
4;3454;

    [download]

    Required Result

    2;3425;
3;1324;
4;3454;
2;4534;
3;1253;
4;3464;
2;2155;
3;3455;
4;3454;

    [download]

    Thanks for all your help and please excuse those of us brought up with no manners :-P

    j o h n i r l .

    Sum day soon I'Il lern how 2 spelI (nad tYpe)

[reply]
[d/l]
[select]

      But you're still not defining the question in any manner that we can accurately extrapolate what you're trying to do. Especially when you use the word sort. We define sort to put all occurances of 2 before occurances of 3, before 4. So what you're asking us to do is unsort the data. There are an infinite number of ways of doing so, which result in arbitrary orderings (although the are only n! such orderings).

      Most of the solutions suggested simply counted the number of 2s, 3s and 4s (etc), and then repeatedly printed one of each (in ascending order) as long as necessary: they were actually discarding the original data.

      What it seems like you're after is 

        foreach (<DATA>) {
  ($key, $val)=split ';', $_, 2;
  push @{$store{$key}}, $val;
}
while (keys %store) {
  foreach $key (sort keys %store) {
    print join ';', $key, shift @{$store{$key}};
    delete $store{$key} unless scalar @{$store{$key}};
  }
}

__DATA__
2;3425;
2;4534;
2;2155;
3;1324;
3;1253;
3;3455;
4;3454;
4;3464;
4;3454;

      [download]
      which is, essentially, just a variation of that theme.

      The answer to your 'little add' is to use split to extract the individual values

      --
      Tommy
      Too stupid to live.
      Too stubborn to die.

[reply]
[d/l]
      my @sorted = do {no warnings 'numeric'; sort {$a <=> $b} @array};

      [download]
      Abigail
[reply]
[d/l]

In Section Seekers of Perl Wisdom