Help for this page

Select Code to Download


  1. or download this
               my @libfiles;
           GetOptions ("library=s" => \@libfiles);
           @libfiles = split(/,/,join(',',@libfiles));
  2. or download this
    use Getopt::Long;
my (@foos, @bars, @bazen, @quuxi);
GetOptions (
...
@quuxi = split /,/, join ',', @quuxi;

=end comment
  3. or download this
    =begin comment

sub c_split {
...
@quuxi = c_split(@quuxi);

=end comment
  4. or download this
    =begin comment

sub c_split (\@) {
...
c_split(@quuxi);

=end comment
  5. or download this
    =begin comment

sub c_split {
...
c_split(\@foos, \@bars, \@bazen, \@quuxi);

=end comment
  6. or download this
    (sub { @$_ = split /,/, join ',', @$_ for @_ }) ->
    (\@foos, \@bars, \@bazen, \@quuxi);