I’ve heard that some people don’t like programming in Perl. \u00a0I just can’t see why not. \u00a0I admit, I’m not a professional programmer. \u00a0However, for my everyday purposes, Perl is the easiest language. \u00a0Apparently, there are some things outside its scope; \u00a0in such cases I have to use another language. \u00a0When I can use Perl, though, I’m instantly more confident.<\/p>\n
I suspect Perl’s lack of rules bothers some people. \u00a0After all, Perl’s slogan is “There’s more than one way to do it.” \u00a0People who love Perl, probably love it for that same reason.<\/p>\n
Anyway, when you know exactly what you want to do, and it’s within Perl’s scope, you can often just write a few lines and come up with something surprisingly functional. \u00a0Or, surprisingly neat and fun, in this case.<\/p>\n
I discovered Perl’s sleep()<\/span> function yesterday on stackoverflow.com<\/a>. It’s straightforward: to pause your program, for example, for 15 seconds, you use the command sleep(15)<\/span>.<\/p>\n What about the bell? It’s ‘\\a’<\/span>, meaning “alert”, and is (maybe) the sound you hear when your computer boots. It’s a throwback to the old typewriter days. Back then, the typewriter would “beep” near the end of the line, alerting that you’d soon go off the paper if you didn’t return the carriage. (I’m really showing my age.)<\/p>\n So here’s a little Perl timer which allows you to set the number of seconds before you hear “beep”:<\/p>\n I tried this on my Windows and Linux systems. Sadly, I don’t hear the bell on my flavour of Linux (although it might work on yours:)). It does work well on Windows, though; in fact, it can be quite loud. You may want to adjust your volume downward before running the program:)<\/p>\n I’ll be looking deeper into the issue of why the bell doesn’t work (so far) on my flavour of Linux. My findings I’ll share in a coming post:)<\/p>\n Sources:<\/p>\n Robert’s Perl tutorial<\/a><\/p>\n McGrath, Mike. Perl in easy steps.<\/em> Southam: Computer Step, 2004.<\/p>\n
\n#\/usr\/bin\/perl
\n
\nprint “Hello:) How long before you want to hear three beeps?\\n”;
\nprint “Enter the number of seconds, please.”;
\n$secs=<STDIN>;
\nsleep($secs);
\nprint “\\n\\nHere’s the bell: \\a\\a\\a \\n”;
\n<\/span><\/p>\n