|
#!/usr/local/bin/perl
#list context when lvalue is an array
@array = isListOrScalar("lvalue is an array: ");
#scalar context when lvalue is a scalar
$scalar = isListOrScalar("lvalue is a scalar: ");
@array = split(/:/,isListOrScalar(" A:B "));
reset (isListOrScalar("reset: "));
print (isListOrScalar("printing: "));
print "\n";
kill (isListOrScalar("kill : "));
print "==\n";
grep (isListOrScalar("parameter 1: "), isListOrScalar("parameter 2: "));
print "==\n";
grep (1,isListOrScalar("The grep function"));
print "==\n";
grep (isListOrScalar("grep function"),1);
sub isListOrScalar($){
my ($callingString) = @_;
if (wantarray){
print "$callingString LIST\n";
}else {
print "$callingString SCALAR\n";
}
}
|