Why is it that the first two splits do not produce any elements?

#!/usr/local/bin/perl

use strict;
use warnings;

my $var = 100421;
my @elems1 = split(/\d/,$var);
my @elems2 = split(/./,$var);
my @elems3 = split(//,$var);

if (@elems1){
  print "elems1 has these elements:\n";
  for(@elems1){
    print "$_\n";
  }
  print"-------       -------       ---=---       -------      -------\n";
}
if (@elems2){
  print "elems2 has these elements:\n";
  for(@elems2){
    print "$_\n";
  }
  print"-------       -------       ---=---       -------      -------\n";
}
if (@elems3){
  print "elems3 has these elements\n";
  for(@elems3){
    print "$_\n";
  }
  print"-------       -------       ---=---       -------      -------\n";
}





-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to