6 lines
160 B
Perl
6 lines
160 B
Perl
if ($s eq "") { # Test for empty string
|
|
print "The string is empty";
|
|
}
|
|
if ($s ne "") { # Test for non empty string
|
|
print "The string is not empty";
|
|
}
|