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/