in reply to sorting inside specific

This is nothing special but it should work... 
open(IN, "<sort.in") || die "\nFailed to open infile $?\n";
open(OUT,">sort.out");
my @array;
while(<IN>) {
  if (/<SEP>/) {
    print OUT join '',sort {$a <=> $b} @array;
    print OUT "<SEP>\n";
    @array=();
  } else {
    @array = (@array,$_);
  }
}
print OUT join '',sort {$a <=> $b} @array;
close OUT;
close IN;

[download]
UPDATE: Got rid of errors to occur when run with use strict and use warnings


daN.

Replies are listed 'Best First'.
Re^2: sorting inside specific
by Limbic~Region (Chancellor) on Sep 10, 2004 at 13:37 UTC
    mutated,
    but it should work

    Really? AFAICT it isn't even close. What exactly is sort numerically @array supposed to do? At what point are you storing anything in @array? Even after fixing your coding mistakes (strictures and warnings)++ - all I get for output is: 

    <sep>
<sep>

    [download]

    Cheers - L~R

    Update: Even your updated code is broke. I preserved your original code in HTML comments. You would see the problem if you had warnings and strictures on
    Update 2: Good job! Not exactly the way I would have done it, but it works ;-)
[reply]
[d/l]
      No worries, I should have tested before I posted in the first place..too early and no morning coffee..sigh..at any rate it works now :P..it's still not as eloquent as your solution but I'm learning...still trying rap my head around the sort function


      daN.
[reply]
        mutated,
        at any rate it works now

        No it doesn't. I understand that you are learning and am really not trying to beat you up here but before saying something works you should verify the output against the expected results. I have only slightly modified your code, but I left in your case sensitivity mistake SEP vs sep. 

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

my @array;
while( <DATA> ) {
  @array = (@array,$_);
  if (/<sep>/) {
    print join '',sort {$a <=> $b} @array;
    print "<sep>\n";
    @array=();
  }
}
print join '',sort {$a <=> $b} @array;
__DATA__
<sep>
22
1
3
<sep>
4
2
44

        [download]
        Here is the output: 
        Argument "<sep>\n" isn't numeric in sort at foo.pl line 14, <DATA> lin
+e 8.
Argument "<sep>\n" isn't numeric in sort at foo.pl line 14, <DATA> lin
+e 8.
<sep>
<sep>
1
2
3
4
22
44

        [download]

        Cheers - L~R

[reply]
[d/l]
[select]
Re^2: sorting inside specific
by jryan (Vicar) on Sep 10, 2004 at 19:37 UTC

    Take a look at push. 

        @array = (@array,$_); # copies the entire array every time

    [download]
        push @array, $_; # does not copy the entire array every time

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom