Item11807: Add lastseparator to FORMATLIST.

Request permission to checkin.

Index: Core.pm
===================================================================
--- Core.pm   (Revision 15047)
+++ Core.pm   (Arbeitskopie)
@@ -518,6 +518,7 @@
   my $theFooter = $params->{footer} || '';
   my $theSplit = $params->{split};
   my $theSeparator = $params->{separator};
+  my $theLastSeparator = $params->{lastseparator};
   my $theLimit = $params->{limit};
   my $theSkip = $params->{skip} || 0; 
   my $theSort = $params->{sort} || 'off';
@@ -547,6 +548,7 @@
   #writeDebug("theFormat='$theFormat'");
   #writeDebug("theSplit='$theSplit'");
   #writeDebug("theSeparator='$theSeparator'");
+  #writeDebug("theLastSeparator='$theLastSeparator'");
   #writeDebug("theLimit='$theLimit'");
   #writeDebug("theSkip='$theSkip'");
   #writeDebug("theSort='$theSort'");
@@ -680,7 +682,14 @@
     return '' unless $theNullFormat;
     $result = $theNullFormat;
   } else {
-    $result = join($theSeparator, @result);
+    if (defined( $theLastSeparator ) && ($count > 1)) {
+      my @tempResult = @result;
+      my $lastElement = pop( @tempResult );
+      $result = join($theSeparator, @tempResult);
+      $result .= $theLastSeparator . $lastElement;
+    } else {
+      $result = join($theSeparator, @result);
+    }
   }
 
   $result = $theHeader.$result.$theFooter;

Usecase

FORMATLIST{"Peter,Paul,Mary" separator=", " lastseparator=" and "}

expands to Peter, Paul and Mary.

-- OliverKrueger - 30 Apr 2012

works for most languages

-- ArthurClemens - 19 Jun 2012

I know, Klingon is different.

-- OliverKrueger - 19 Jun 2012

Commenting is disabled while not logged in