Hjælp med sortering af liste fra en fil

Ville det være et problem at skrive 01, 02, 03, ...?

Hvis det er det, så er jeg bange for, at løsningen nok er at splitte hvert element, og så sortere først bogstaverne i rækkefølge og efterfølgende tallene inden for hvert enkelt bogstav.

Ja det er et problem :/

Listen bliver genereret fra et andet program og skal se sådan ud da det ellers ikke kan bruges senere.

Listen er desuen dynamisk og jeg kan derfor ikke vide fx hvilke bogstaver der optræder.

@a=('C15','C16','C17','C18','C1','C19','C20','D24','C26','C27','C28','C2','C29','D30','C31');

sub sml {
  my ($a,$b)=@_;
  $a=~/^(.)(\d+)/; $a1=$1; $a2=$2;
  $b=~/^(.)(\d+)/; $b1=$1; $b2=$2;

  if ($a1 lt $b1) {
    return -1;
  } elsif ($a1 gt $b1) {
    return 1;
  } else {
    return $a2<=>$b2;
  }
}


@b=sort { sml($a,$b) } @a;

print join(" - ",@b);

Undskyld min høje respons tid Erik.

Hvis jeg nu har et 2 dim. array så der er koblet et ekstra nummer til hvert af de ovenstående i listen, hvordan fixer jeg så det?

Vis lige hvordan det ser ud - så længe du reagerer inden jeg går på pension, så er det fint nok.

Haha good one :D

open(INPUTFILE, "<$ARGV[2]") || die "Error opening input BOM file: $ARGV[2]\n$!";
@inputarray = <INPUTFILE>;
close(file);

open(OUTPUTFILE, ">>$ARGV[0]") || die "Error opening output BOM file: $ARGV[0]\n$!";
shift @inputarray;
pop @inputarray;
pop @inputarray;

$i=0;
foreach (@inputarray)
{
  @values=split(/\s*,\s*/, $_);
  if ($values[2]!="[0-9]")
      {
    $tabel{sprintf("%-10d%s%d", $values[1], $values[1], $i)}=sprintf("%-6sA %-9s 0    0 P      0    0    0\n", $values[1], $values[2]);
        }
    else
    {
        $errors{sprintf("%-10d%s%d", $values[1], $values[1], $i)}=sprintf("%-6s med Part Number = %-9s fjernet fra BOM pga. ikke-numerisk Part Number\n", $values[1], $values[2]);
    }
  $i++;   
}

foreach (keys %tabel)  {
  print OUTPUTFILE $tabel{$_};
}

----

Forklaring:

En linie fra <INPUTFILE> ser f.eks. således ud:
1    ,C4,4201163  ,                                 
C4 bliver så sat i values[1] og 4201163 bliver sat i values[2]

Derefter skal den printe arrayet ud igen i <OUTPUTFILE> og linjen skulle så gerne se sådan ud:
C4    A 4201163  0    0 P      0    0    0


Listen i mit øverste indlæg er values[1]
Jeg vil gerne have at det der bliver udskrevet i <OUTPUTFILE> bliver sorteret efter values[1] som du så pænt gjorde med svaret til min liste.

Jeg forstår ikke helt denne her:

if ($values[2]!="[0-9]")

Det behøver du heller ikke ^^

Måske menes der ( $values[2] !~ /[0-9]/ ) men den er kun sand hvis values[2] ikke indeholder cifre.
Hvis $values[2] altid kun indeholder cifre og det skal give fejl når dette ikke er tilfældet vil ( $values[2] =~ /^\d+$/ ) gøre jobbet.

Hehe nice nok ranko....... Jeg havde faktisk selv undret mig meget over den sætning der da jeg lavede den, men den virker som den skal (underligt nok)

Den virker ikke. Den er sikkert altid sand, da der aldrig står præcis
"[0-9]". Det var sådan set bare fordi jeg troede, der var noget du ikke
havde fortalt mig.

sand sætning:
P67  A 7210689  0    0 P      0    0    0

falsk sætning:
FP9    med Part Number = FTP      fjernet fra BOM pga. ikke-numerisk Part Number


Og det gør den tilsyneladende rigtig med alle kombinationer jeg smider ind

nej, det gør den ikke - men det kan være resten af dit program retter op på det

Ja den indsætter dem i en anden fil, men det valgte jeg at undlade her fordi det er irellevant for mit spørgsmål

Du må gerne synes det er irrelevant.

Er du venlig at afvise mit svar, så andre kan få chancen.

!= er nummerisk ulighed - højreside er altid nummerisk 0 så sætningen er kun falsk når $values[2] er nummerisk 0 dvs f.eks. når den er tom