TheF4.com

Soms krijgen we te maken met een string die vol staat met overbodige spaties. Deze spaties kunnen zowel vooraan als achteraan voorkomen. Binnen Perl is snel en simpel een stukje code te maken wat voor goed een einde maakt aan deze overbodige spaties. Hieronder staat een klein en simpel voorbeeldje uitgewerkt.

Het stukje code maakt gebruik van een methode. Als je dit niet handig vindt is het natuurlijk ook mogelijk om de “Trim code” direct te gebruiken zonder gebruik te maken van de methode.

#!/usr/bin/perl
$te_trimmen="     Dit is een test     ";
print trim($te_trimmen)."\n";

 sub trim($)

   {

   my $tekst = shift;

   $tekst=~ s/^\s+|\s+$//g;

   return $tekst;

   }