File: pause.p

package info (click to toggle)
gap-hap 1.73%2Bds-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 58,508 kB
  • sloc: xml: 16,467; sh: 197; javascript: 155; makefile: 121; ansic: 47; perl: 24
file content (9 lines) | stat: -rwxr-xr-x 332 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
# Source - https://stackoverflow.com/a
# Posted by DVK
# Retrieved 2025-11-22, License - CC BY-SA 3.0

#print "Enter a word to look up: ";
my $userword = <STDIN>; # I moved chomp to a new line to make it more readable
chomp $userword; # Get rid of newline character at the end
exit 0 if ($userword eq ""); # If empty string, exit.