Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. 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");