Help for this page

Select Code to Download


  1. or download this
    my @SortedKeys = sort {$field{$a} cmp $field{$b}} keys %fields;
  2. or download this
    my @SplitEntries = map{[split( '|', $_)]} @Entries;

...
  # This will be in sorted order, by Artist Name
  # $Fields[0] is CassID, $Fields[1] is CDID, etc
}
  3. or download this
    my @SplitEntries = map{[split( '|', $_)]} @Entries;

...
  my @Fields = @$Lineref;
  ...
}