Sorting alphanumber and replace by same order using PERL

cnsabar

Hi.,

I am having the index pg no. data in file .. i need to sort the data ., Can any one help regarding this using PERL .. Its very urgent ...

Source file
<ce:intra-ref id="10011#f0070"/>310f, <ce:intra-ref id="10011#s0120"/>308--309
<ce:intra-ref id="10011#f0130"/>313f, <ce:intra-ref id="10011#p0310"/>313
<ce:intra-ref id="10010#p0520"/>288, <ce:intra-ref id="10010#p0550"/>284--286
<ce:intra-ref id="10007#f0010"/>146f, <ce:intra-ref id="10007#p0030"/>145--146, <ce:intra-ref id="10007#t0010"/>158t

After sorting ...
<ce:intra-ref id="10011#s0120"/>308--309, <ce:intra-ref id="10011#f0070"/>310f
<ce:intra-ref id="10011#p0310"/>313, <ce:intra-ref id="10011#f0130"/>313f
<ce:intra-ref id="10010#p0550"/>284--286, <ce:intra-ref id="10010#p0520"/>284
<ce:intra-ref id="10007#p0030"/>145--146, <ce:intra-ref id="10007#f0010"/>146f, <ce:intra-ref id="10007#t0010"/>158t

Thanks,
Sabarish

eWish

What have you tried in your efforts to sort?

--Kevin

cnsabar

Hi Kevin.,

For each line, I split the array using comma [ , ] and stored it in another array @source.
I used the substr function to capture the number to sort.
Perform sorting using alphanumber function which I get in net..

Expand|Select|Wrap|Line Numbers

  
for($i=0; $i<=$#forsort; $i++)

{

for($j=0; $j<=$#sorted; $j++)

{

    if ($forsort[$i] eq $sorted[$j])

    {

        $newarray[$j] = $source[$i] ;

    }

}

}
 
#Function to sort

sub alphanum 

{

    @a = func1($_[0]);

    @b = func1($_[1]);

    while (@a && @b) 

    {

    $a_chunk = shift @a;

    $b_chunk = shift @b;

        $test = (($a_chunk =~ /\d/) && ($b_chunk =~ /\d/)) ? $a_chunk <=> $b_chunk : $a_chunk cmp $b_chunk ;

    return $test if $test != 0;

    }

    return @a <=> @b;

}

sub func1 

{

    @chunks = split m{ (?= (?<=\D)\d | (?<=\d)\D ) }x, $_[0];

      return @chunks;

}

Now using this code is working fine...
but I am facing one more problem...

after sorting if the data is look like means..
<ce:intra-ref id="10009#s0140"/>234, <ce:intra-ref id="10009#s0150"/>234--255, <ce:intra-ref id="10009#s0134"/>274
<ce:intra-ref id="10009#s0240"/>135, <ce:intra-ref id="10009#s0250"/>255, <ce:intra-ref id="10009#s0234"/>255-270

I have to get output like thi
<ce:intra-ref id="10009#s0140"/><ce:intra-ref id="10009#s0150"/>234--255, <ce:intra-ref id="10009#s0134"/>274
<ce:intra-ref id="10009#s0240"/>135, <ce:intra-ref id="10009#s0250"/><ce:intra-ref id="10009#s0234"/>255-270

Looking any help reg this...
Thanks,

numberwhun

cnsbar,

Your code tags were almost correct. There should be no spaces when you put "code=perl". Once I removed the spaces, you can now see the results.

Thanks for putting them in.

Happy Holidays!

Jeff

KevinADC

Sabarish,

You say you are sorting data, but I can not see what you are sorting. In perl, sorting means to put the data in some type of order, like:

1 2 3 4 5 (numeric ascending)

or

E D C B A (alpha descending)

can you explain specifically what it is you are sorting your data with? Use your original data as your input:

<ce:intra-ref id="10011#f0070"/>310f, <ce:intra-ref id="10011#s0120"/>308--309
<ce:intra-ref id="10011#f0130"/>313f, <ce:intra-ref id="10011#p0310"/>313
<ce:intra-ref id="10010#p0520"/>288, <ce:intra-ref id="10010#p0550"/>284--286
<ce:intra-ref id="10007#f0010"/>146f, <ce:intra-ref id="10007#p0030"/>145--146, <ce:intra-ref id="10007#t0010"/>158t

what part of the above lines are you using to sort the data, and it what order are you sorting it?

cnsabar

Hi Kevin,

Here I am doing alphanumeric sorting.,
For this I first extract the pageno (310f, 308--309) and perform sorting on this alpha numerals with ascending order.
and then replace with respect to the corresponding tag element <ce:intra-ref id.../>

For example: -
if the i/p line contains..
<start> Some text, <ce:intra-ref id="10007#f0070"/>175, <ce:intra-ref id="10007#p0030"/>145--146, <ce:intra-ref id="10007#t0010"/>158t, <ce:intra-ref id="10007#t0010"/>100</end>

Then after sorting, output to be..
<start> Some text, <ce:intra-ref id="10007#t0010"/>100, <ce:intra-ref id="10007#p0030"/>145--146, <ce:intra-ref id="10007#t0010"/>158t, <ce:intra-ref id="10007#f0070"/>175</end>

I got the desired output also after trying so much of time.
I used simple logic only but for me it takes upto around 100 line to finish that program.

Sorting alphanumber and replace by same order using PERL

re: Sorting alphanumber and replace by same order using PERL

re: Sorting alphanumber and replace by same order using PERL

re: Sorting alphanumber and replace by same order using PERL

re: Sorting alphanumber and replace by same order using PERL

re: Sorting alphanumber and replace by same order using PERL

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about