Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^4: Using system (); with Strawberry Perl

by cavac (Parson)
on Nov 30, 2021 at 13:47 UTC ( [id://11139269]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Using system (); with Strawberry Perl
in thread Using system (); with Strawberry Perl

Uhm, i grepped through parts of my codebase and there is this little gem:

system "aplay /home/cavac/src/pagecamel_dsky/masteralarm.wav &";

Turns out, playing sound on a Raspberry Pi 2(!) is hard, especially from Perl.

And yes, i have seen stuff like OP's code before. Many times. Many, many, times. Unfortunately. At least here on PM this is something that classes under "needs rewrite". I also develop Arduino stuff, and there a source code in that kind of quality would probably class as "made by an expert"...

perl -e 'use Crypt::Digest::SHA256 qw[sha256_hex]; print substr(sha256_hex("the Answer To Life, The Universe And Everything"), 6, 2), "\n";'

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11139269]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (3)
As of 2024-03-29 06:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found