Subversion Repositories sysadmin_scripts

Rev

Rev 33 | Rev 66 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33 Rev 34
Line 36... Line 36...
36 
}
 36 
}
37 
 
 37 
 
38 
sub dumpLine {
 38 
sub dumpLine {
39 
   my $delimiter = shift;
 39 
   my $delimiter = shift;
40 
   my $encapsulate = shift;
 40 
   my $encapsulate = shift;
- 
 
 41 
   # read in values, defaulting to empty string if undef
41 
   my @values = @_;
 42 
   my @values = map{ $_ ? $_ : '' } @_;
42 
   my $return;
 43 
   my $return;
43 
   @values = ( map{ $encapsulate . $_ . $encapsulate } @values ) if $encapsulate;
 44 
   @values = ( map{ $encapsulate . $_ . $encapsulate } @values ) if $encapsulate;
44 
   return join( $delimiter, @values ) . "\n";
 45 
   return join( $delimiter, @values ) . "\n";
45 
}
 46 
}
46 
 
 47