Mega Code Archive

 

Categories / Perl / Language Basics

 

Local builtin var

#!/usr/bin/perl -w use strict; sub printwith {     my ($separator, @stuff)=@_;     local $, = $separator; # create temporary local $,     print @stuff,"\n"; } printwith("... ","one","two","three");