7 lines
160 B
Perl
7 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";
|
||
|
|
}
|