Help for this page

Select Code to Download


  1. or download this
    my $foo = split (/,/, $bar);
  2. or download this
    my $foo = ($bar =~ /,/) + 1;
  3. or download this
    my $foo = defined($bar) && length($bar) && (($bar =~ /,/) + 1);