perl.beginners

perl.beginners https://www.nntp.perl.org/group/perl.beginners/ ... Copyright 1998-2025 perl.org Fri, 09 May 2025 07:03:41 +0000 ask@perl.org Turning Perl Code in to C++ I Think I've found what I needed. (1 message) After doing more searching, what I appear to need is perlembed. It's been around since early versions of perl 5 and the systems in question will be running perl5.36. One puts a perl interpreter in to the C source and that should enable what I was asking about. Sorry to waste everybody's time. Martin https://www.nntp.perl.org/group/perl.beginners/2025/05/msg127904.html Thu, 08 May 2025 02:29:43 +0000 Turning Perl Code in to C++ (1 message) Is it possible these days to write perl code and then turn it in to C++ that one could then put in to a C++ program? I am writing a c++ program that will deal with PCM audio and alsa sound functions which are good at managing sound cards so that one can get a stream of binary audio from the card at the rate and format for the job at hand. C++ and gcc are both very good at this with c++ being a little more useful in compiling routines that access the right libraries. Perl, on the other hand is wonderful at munching and crunching text such as text-based configuration files in which one usually reads a string and splits it based on delimiters to assign values to one's program. The hope, here, is to use the strengths of perl to write code that does what I want for handling configuration files and then use c++ for the logic of the sound handler where it really shines. In c++, one certainly can write code to open and read text files but making something good happen in c++ takes longer and what one ends up with is not nearly as nice as what one gets with the string handling functions that are part of perl. What is ironic is that perl uses these functions in C so basically, I am trying to find a lazier way to get past the opening part of my program. The configuration part happens right as the program starts and is never needed after that point. The C++ part, on the other hand runs after all the values are set until one kills the program. Unless I am missing something, there don't seem to be many sound modules in perl because they would have to work in unix and Windows environments so I am not complaining but perl also can do bit-wise binary operations so I looked in to seeing if my sound handler could be written in perl but you'd have to use system calls to aplay and arecord or start from bare metal to get the same function that aplay and arecord give you. You can do that but aplay and arecord are already there and work fine so there is no reason to reinvent the wheel. I could be wrong about everything I have just written so I am looking for ideas. The C programming for handling the sound is nothing fancy, mainly splitting the left and right channels from the standard 32-bit int that sound cards generate with each sample. Also, the samples are 16 bits and communications-grade sound can work with 8-bit samples so all one has to do there is just use the upper 8 bits for the actual PCM audio. I am interested in any constructive ideas as to how to take advantage of the easier text handling of perl but use the binary features of c for the actual engine that reads the sound and stores it in files. Many thanks. Martin McCormick https://www.nntp.perl.org/group/perl.beginners/2025/05/msg127903.html Wed, 07 May 2025 18:08:32 +0000 Regex To get the Job Number and Corresponding state (6 messages) Hi All, I have a requirement to use regex , find the Job ID for the Current status: SUCCEEDED and Current Phase: "ZDM_SETUP_TGT" from a file which has data in the format gives below : Job ID: 52 User: zdmuser Client: zdmhost Job Type: "EVAL" ... Current status: SUCCEEDED Current Phase: "ZDM_SETUP_TGT" Thanks, https://www.nntp.perl.org/group/perl.beginners/2025/02/msg127897.html Tue, 25 Feb 2025 16:49:24 +0000 Removing a space from file name (6 messages) I have several hundred *.jpg files with this pattern Actual example: 'AtlantaVisitAndGrandmaHands 056.jpg' The numbers vary, of course, but the alpha part and number of digits after the space is the same in all *.jpg files I have hundreds of these all in one directory. Not something you'd want to do one at a time. I tried to figure a way using the perl `rename' tool found in many linux distro's repos But couldnt figure out the necessary syntax from Larry Wall's examples in the rename man page. Using the "s///" operators , it's probably there some how but my pea brain isn't seeimg it. bash has just used the apostrophes to make the names usable but I would much rather remove the space. https://www.nntp.perl.org/group/perl.beginners/2025/02/msg127891.html Mon, 17 Feb 2025 17:38:42 +0000 Linux Directory Copy Modules that Won't (5 messages) This is perl 5, version 36, subversion 0 (v5.36.0) built for x86_64-linux-gnu-thread-multi (with 53 registered patches, see perl -V for more detail) Copyright 1987-2022, Larry Wall The issue here is trying to copy directories of files from the main SSD drive to various thumb drivesthat must be mounted on the system for the copy to occur. The program flawlessly did every single thing I told it to so there are up to 4 directories, each with a mounted thumb drive sitting there waiting on pins and needles for the gush of anticipated data but the only way I've gotten this to work in the past is to cheat by using the system command and standard unix copying commands as in: system("cp -p -r \"$docname\" \"/$guides[1]\"/"); The way this program was supposed to copy a disk folder to a corresponding thumb drive is written: dircopy ("\"weekly\", \"/weekly/\"") or die!$; It always dies at the copy command and it is nothing to do with permissions as I can sit here and execute a command from the shell like: date >/weekly or whatever the mounted drive is called and the command succeeds normally. Here is the first part of the program which is 137 lines long and nothing else is failing except for the directory copies: #!/usr/bin/perl -w use strict; use warnings::unused; use IO::Handle; use File::HomeDir; use Cwd qw(getcwd); #use File::Copy "cp"; use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove); use File::Find; use File::Spec; I suspect several of those modules aren't needed but the program does exactly what I need it to do until the copy occurs. The directories are their and populated with other directories which should all be copied to selected thumb drives as whole directories and running in debug mode as in perl -d shows thit to be true so the only issue to solve is that dircopy command. You will notice another File::Copy module commented out that is supposed to take cp commands but didn't either. It boils down to none of these copy modules appear to be working in this case. The actual copy command I am using is: dircopy(" $dir , /$dir") or die !$; $dir in this case is the directory name which could be one of 4 possible names but it doesn't matter because there has not been one bit copied using either of the two modules I tried and the dircopy module does exactly what one needs in this particular case but silently fails 100% of the time. Thanks for any good ideas since this appears to be quite useful but hasn't shown that side of it's behavior yet. Martin McCormick https://www.nntp.perl.org/group/perl.beginners/2025/02/msg127886.html Sat, 01 Feb 2025 14:34:41 +0000 iterate over the use-d modules (5 messages) Hi all, is there a way to iterate over the used modules, I mean every symbol loaded with use? I would like to do something like: use Foo; use Bar; say ${ $_ }::VERSION for ( @used ); and get something like say $Foo::VERSION; say $Bar::VERSION; Thanks, Luca https://www.nntp.perl.org/group/perl.beginners/2024/10/msg127881.html Tue, 01 Oct 2024 10:20:49 +0000 What is best way for learn programming? (16 messages) 1. Course 2. Books 3. Documentation 4. Projects I was learning programming with a book but I quickly lost interest. My progress is slow. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/08/msg127864.html Thu, 01 Aug 2024 01:11:22 +0000 Can use Perl and C in a program? (4 messages) How can I implement these two languages of programming in a program? What part of the program uses Perl and C? Different repositories of Github use many languages of programming in a project but a program only uses a language of programming. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/07/msg127861.html Fri, 26 Jul 2024 17:11:46 +0000 First line of input file not accessible. (2 messages) $ uname -a Darwin Rosie.local 23.5.0 Darwin Kernel Version 23.5.0: Wed May 1 20:16:51 PDT 2024; root:xnu-10063.121.3~5/RELEASE_ARM64_T8103 arm64 $ locale LANG="en_AU.UTF-8" LC_COLLATE="en_AU.UTF-8" LC_CTYPE="en_AU.UTF-8" LC_MESSAGES="en_AU.UTF-8" LC_MONETARY="en_AU.UTF-8" LC_NUMERIC="en_AU.UTF-8" LC_TIME="en_AU.UTF-8" LC_ALL="en_AU.UTF-8” $ perl --version This is perl 5, version 34, subversion 3 (v5.34.3) built for darwin-thread-multi-2level $ cat print_file #!/usr/bin/perl -n while (<>) { print "$. $_"; } exit; $ print_file /tmp/orgs2 2 3 DevHub CCIDevHub pbw@wise-unicorn-b55zcn.com 00DdM000003155ZUAQ Connected 4 DevHub DevHub pbw@salesforce.dev 00DW2000000afcXMAQ Connected 5 DevHub DevHub2 pbw@nocompany.com 00DdL000000IZqeUAG Connected 6 DevHub LightningAppTest pbw@cunning-goat-fbfy9x.com 00DdM000006N6TaUAK Connected 7 DevHub PackageTestPlayground pbw@curious-unicorn-2ojijy.com 00DdM000005tVl5UAE Connected 8 Scratch 201-3-4 test-0jryu1n6t8jv@example.com 00DFf000000TjmXMAS Active 2024-07-15 9 Scratch AppTest1-S1 test-bsq9w2vg2kfm@example.com 00DHF000000RGNG2A4 Active 2024-07-18 10 $ wc -l /tmp/orgs2 10 /tmp/orgs2 $ cat /tmp/orgs2 Type Alias Username Org ID Status Expires DevHub CCIDevHub pbw@wise-unicorn-b55zcn.com 00DdM000003155ZUAQ Connected DevHub DevHub pbw@salesforce.dev 00DW2000000afcXMAQ Connected DevHub DevHub2 pbw@nocompany.com 00DdL000000IZqeUAG Connected DevHub LightningAppTest pbw@cunning-goat-fbfy9x.com 00DdM000006N6TaUAK Connected DevHub PackageTestPlayground pbw@curious-unicorn-2ojijy.com 00DdM000005tVl5UAE Connected Scratch 201-3-4 test-0jryu1n6t8jv@example.com 00DFf000000TjmXMAS Active 2024-07-15 Scratch AppTest1-S1 test-bsq9w2vg2kfm@example.com 00DHF000000RGNG2A4 Active 2024-07-18 $ What happened to line 1? — Peter West pbw@pbw.id.au `“Mary.” She turned and said to him in Aramaic, “Rabboni!”` https://www.nntp.perl.org/group/perl.beginners/2024/07/msg127859.html Wed, 17 Jul 2024 07:41:40 +0000 memory (1 message) What consumes major memory in a program of Perl? 1. Module 2. Function What algorithms would I use to improve the program? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/07/msg127858.html Thu, 04 Jul 2024 17:07:51 +0000 Re: Perl version 5.8 and 5.10 (1 message) On Sun, Oct 8, 2023 at 5:34â¯AM armando perez pena <mandyapp2004@msn.com> wrote: > Hello, > > What's the motivation to install a version which is 21 years old ? > > If you have an old code probably is better try to update it. > > Best Regards, > Armando > ------------------------------ > *From:* Kang-min Liu <gugod@gugod.org> > *Sent:* Sunday, October 8, 2023 5:32:24 AM > *To:* beginners@perl.org <beginners@perl.org> > *Subject:* Re: Perl version 5.8 and 5.10 > > æ¼ 2023å¹´10æ8æ¥ ä¸å11:53:46 [GMT+09:00]ï¼William Torrez Corea < > willitc9888@gmail.com> å¯«å°ï¼ > > I Tried to install perl version 5.8 and 5.10 with perlbrew but i can't > install this version. > I get the following error message: > > 50 tests and 269 subtests skipped. > make[2]: *** [makefile:701: _test_tty] Error 29 > make[2]: Leaving directory 'perl5/perlbrew/build/perl-5.8.0/perl-5.8.0' > make[1]: *** [makefile:709: _test] Error 2 > make[1]: Leaving directory 'perl5/perlbrew/build/perl-5.8.0/perl-5.8.0' > make: *** [makefile:779: test_harness] Error 2 > ##### Brew Failed ##### > > > > > Generally speaking, building old software on a newer system is going to > yield warnings / errors that are introduced latter then the release of the > software.... > > > That said, those errors seem to be about unit tests rather than > comiplation.You may be able to cd into the build dir and still run a `make > install` to finish the installation, if you are willing to just ignore > those errors. If those are all the errors in the lot, I imagine that most > of the perl-5.8.0 would still work. > > -- > Kang-min Liu > I am coding examples of the book Beginning Perl by Curtis "Ovid" Poe, the examples use the version Perl 5.8 and Perl 5.10. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/07/msg127857.html Wed, 03 Jul 2024 23:24:22 +0000 code (1 message) How can I implement an algorithm in my project or source code? The majority of the time the algorithm is copied in pseudocode or mathematically in books or documentation (Greek symbology). An equation, operation can code but an algorithm is my weakness; i don't the algorithm. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/07/msg127856.html Wed, 03 Jul 2024 23:08:12 +0000 algorithms (2 messages) What is the difference between computer algorithms, pseudocode and source code? How can I implement an algorithm in my project or source code? The majority of the time the algorithm is copied in pseudocode or mathematically in books or documentation (Greek symbology). An equation, operation can code but an algorithm is my weakness. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/06/msg127854.html Fri, 28 Jun 2024 18:15:24 +0000 regex matching statements (2 messages) Hello list, are these statements the same in perl? $ perl -le '$_="abc";if (!/\w+\d+/){print "not matched"}' not matched $ perl -le '$_="abc";if ($_ !~ /\w+\d+/){print "not matched"}' not matched or which is the better one? Thanks. https://www.nntp.perl.org/group/perl.beginners/2024/06/msg127852.html Wed, 19 Jun 2024 01:55:32 +0000 Easiest Way in Perl to check Whether a Disk is Mounted (6 messages) In unix-like OS's, there are the mount and mountpoint commands that can help one determine whether a file system is mounted such as $ mount |grep horseradish. If there is a file system defined in fstab which might look like UUID="B159-BB80" /horseradish vfat rw,user,noauto 0 0 and it is not presently mounted, the mount command should not have any output containing the name horseradish. If the device with the correct UUID is mounted, the command of mount which shows all mounted file systems will contain the horseradish line and also where it is mounted and so forth but the big difference is that you get a string if /horseradish is mounted and zilch if it is not. There is also a unix command of mountpoint which will say that horseradish, in this case, is not a mount point if it is not mounted or that it is a mountpoint if it has a FS mounted on it. The perl script I am working on should check to see if a device is mounted with the requested name and do one thing if it is and something else if it is not. Of course, I can use system calls and call the unix mount or mountpoint applications but is there a proper perl way to do this since system calls are not as elegant? Thank you. Martin McCormick https://www.nntp.perl.org/group/perl.beginners/2024/06/msg127846.html Sat, 01 Jun 2024 14:25:41 +0000 how to can measure my level of knowledge? (2 messages) I code but my logic is weak, i code 1000 lines of code but I don't understand the logic of the program. Can write 10 lines of code, get the result but I don't understand the concept. Can code the program but I can't interpret. My mentor told me: understand the concept because I talk nonsense. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127844.html Thu, 30 May 2024 16:58:59 +0000 crypt (4 messages) <div><div><div>Hi.</div><div>OpenBSD does not work crypt.</div><div>Does it depends on OSes ?</div><div>Do you know why I can not use it ?</div><div> </div><div>Perl uses the following crypt?</div><div><a href="https://man.openbsd.org/crypt" rel="noopener noreferrer">https://man.openbsd.org/crypt</a></div><div> </div><div># My crypt.pl</div><div>use strict;</div><div>use warnings;</div><div>use v5.10;</div><div>say crypt("Ava Max", "Salt");</div><div> </div><div> </div><div>FreeBSD works crypt.pl</div><div>% perl -v</div><div>This is perl 5, version 36, subversion 3 (v5.36.3) built for amd64-freebsd-thread-multi</div><div> </div><div>% perl crypt.pl</div><div>Sasi0YO57eKNE</div><div> </div><div>OpenBSD does not works crypt.pl</div><div> </div><div>OpenBSD$ perl -v</div><div> </div><div>This is perl 5, version 36, subversion 3 (v5.36.3) built for amd64-openbsd</div><div> </div><div>OpenBSD$ perl crypt.pl                                                         </div><div>Use of uninitialized value in say at crypt.pl line 4.</div><div> </div><div>OpenBSD$</div><div> </div><div>I got a empty line. As it didn't work, I installed perl from source code.</div><div> </div><div><a href="https://www.cpan.org/src/README.html" rel="noopener noreferrer">https://www.cpan.org/src/README.html</a></div><div> </div><div>OpenBSD$ /home/masayoshi/localperl/bin/perl -v</div><div> </div><div>This is perl 5, version 38, subversion 2 (v5.38.2) built for OpenBSD.amd64-openbsd</div><div> </div><div>OpenBSD$ /home/masayoshi/localperl/bin/perl crypt.pl  </div><div>Use of uninitialized value in say at crypt.pl line 4.</div><div> </div><div>OpenBSD$</div><div> </div></div></div> https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127840.html Sat, 25 May 2024 08:59:47 +0000 project (2 messages) What is the need to develop a project in Perl? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127838.html Sat, 18 May 2024 01:42:33 +0000 module dependency (4 messages) greetings everybody, How do I know which other modules are required by the perl module (like Net::SMTPS) I am using? Thanks https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127834.html Thu, 16 May 2024 13:07:42 +0000 stage of programming (2 messages) A client need a project in PHP and Java but i only can program in Perl What would I make? What part of the project can use Perl? Can Perl be 100% of my project? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127832.html Tue, 14 May 2024 21:30:07 +0000 lines of code for code a website (3 messages) How many lines of code are needed to code a website? *in c, java, php and perl * What language is ideal for this task? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2024/05/msg127829.html Fri, 03 May 2024 06:27:49 +0000 [announcements mailing list] (4 messages) Dear all, How are you? I hope all is well with you. I’m wondering, do we have some kind of an announcements mailing list, that would highlight, what happened in the Perl world over the past week, month, quarter? What are the new developments, when a new version of Perl will be available or released? It would be nice and pleasant to know. Thank you and have a wonderful Friday ahead! — Best wishes, Maxim Maxim Abalenkov \\ maxim.abalenkov@gmail.com +44 7 486 486 505 \\ www.maxim.abalenkov.uk https://www.nntp.perl.org/group/perl.beginners/2024/03/msg127825.html Fri, 15 Mar 2024 11:27:45 +0000 Upgrade from Debian 11 to Debian 12 Broke Perl. (4 messages) I am asking this to hold collateral damage to a minimum, collateral damage in this case being all the stupid things we do when stuff breaks and documentation isn't clear about what is the shortest and safest path to restore functionality. I upgraded a debian bullseye system to debian bookworm which is not what this list is about and everything else worked as advertised except perl which is totally broken right now. After using perl for about ten years, it has become my goto solution for many varied projects such as controlling radio scanners that have RS-232 style interfaces and for munching text from all kinds of outputs so that the text fits some other purpose that nobody else cares about but solves the problem at hand. There's even an app I wrote to hangup on telemarketers and scammers which has collected about 460 pillars of the community that like to make junk phone calls at dinner time. I installed cpanplus with apt in debian and went from there, with cpanplus being the only perl package I got from the debian repository. All other perl modules have been installed over time using that cpanplus application as in cpanp -i [module name]. After upgrading from debian 11 (bullseye) to debian 12 (bookworm), the world changed and everything perl broke. My hope is to get perl back with a minimum of redundant work. I found documentation about how to install perl on a new debian bookworm system but little to none on how to move an existing installation to the new world which makes me wonder what went wrong. The output of the present perl -v command follows: This is perl 5, version 36, subversion 0 (v5.36.0) built for x86_64-linux-gnu-thread-multi (with 53 registered patches, see perl -V for more detail) Copyright 1987-2022, Larry Wall Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at https://www.perl.org/, the Perl Home Page. If I run any perl applications, all break with error squawks regarding the first module in that particular app that can not be located. The app I wrote to control radio scanners is named p2 so $ p2 sts should produce the radio's status and did until the upgrade. Now, it sends Can't locate warnings/unused.pm in @INC (you may need to install the warnings::unused module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.36.0 /usr/local/share/perl/5.36.0 /usr/lib/x86_64-linux-gnu/perl5/5.36 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl-base /usr/lib/x86_64-linux-gnu/perl/5.36 /usr/share/perl/5.36 /usr/local/lib/site_perl) at /home/martin/etc/p2 line 3. BEGIN failed--compilation aborted at /home/martin/etc/p2 line 3. So, if I try to use cpanp and re-add that module, I get: 1wb5agz martin tmp $ cpanp -i Warnings::Unused ERROR] 'Warnings::Unused' does not contain an author part [ERROR] Cannot find 'Warnings::Unused' in the module tree No such module: Warnings::Unused No modules found to operate on! Nothing done That is obviously all balderdash but somewhere, there is the correct module tree and when one runs the app in question, it probably still works. If I try to use debian's apt package manager to upgrade cpanpplus, it tells me that what is there is the most recent version. I did find a source package to bring perl 5.36.1 on to a debian12 system. It compiled, installed and ran with no complaints at all but it's not a debian package which means that if one goes that route, one will always have to watch upgrades since it is a third-party package. It did show up when running perl -version and in attempts to use it but the missing modules and other general disfunctionality carried over so I uninstalled it so that we are back to where we started. I either did something very wrong a long time ago which has now cought up with me or I am missing something about the upgrade process that only broke perl as far as I know. Thanks for any constructive ideas for getting perl back. Martin McCormick https://www.nntp.perl.org/group/perl.beginners/2024/03/msg127821.html Mon, 11 Mar 2024 17:51:41 +0000 [install and use local::lib module] (4 messages) Dear all, How are you? I hope all is well with you. I need help please. I recently moved to a new laptop and installed Perl 5.38.2 from source. I would like to discipline myself and learn how to use the ‘local::lib’ module properly. I downloaded the source code of local::lib from cpan website and installed it with: perl Makefile.PL —bootstrap make install It installed correctly. However, when I try to use this module in my script with: use local::lib My program crashes with the following error message: Can't locate local/lib.pm in @INC (you may need to install the local::lib module) (@INC entries checked: /Users/mabalenk/.cpan /usr/local/lib/perl5/site_perl/5.38.2/darwin-thread-multi-2level /usr/local/lib/perl5/site_perl/5.38.2 /usr/local/lib/perl5/5.38.2/darwin-thread-multi-2level /usr/local/lib/perl5/5.38.2) at /Users/mabalenk/bin/upg-macports.pl line 14. BEGIN failed--compilation aborted at /Users/mabalenk/bin/upg-macports.pl line 14. These are the environment variables that I set in my .profile file: # Perl 5.38 export PATH=/usr/local/bin:$PATH export PERL5LIB=$HOME/.cpan I can see the “local::lib” files with: find .cpan -name "local" .cpan/build/local-lib-2.000029-2/blib/arch/auto/local .cpan/build/local-lib-2.000029-2/blib/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-2/blib/lib/POD2/DE/local .cpan/build/local-lib-2.000029-2/blib/lib/auto/local .cpan/build/local-lib-2.000029-2/blib/lib/local .cpan/build/local-lib-2.000029-2/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-2/lib/POD2/DE/local .cpan/build/local-lib-2.000029-2/lib/local .cpan/build/local-lib-2.000029-1/blib/arch/auto/local .cpan/build/local-lib-2.000029-1/blib/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-1/blib/lib/POD2/DE/local .cpan/build/local-lib-2.000029-1/blib/lib/auto/local .cpan/build/local-lib-2.000029-1/blib/lib/local .cpan/build/local-lib-2.000029-1/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-1/lib/POD2/DE/local .cpan/build/local-lib-2.000029-1/lib/local .cpan/build/local-lib-2.000029-0/blib/arch/auto/local .cpan/build/local-lib-2.000029-0/blib/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-0/blib/lib/POD2/DE/local .cpan/build/local-lib-2.000029-0/blib/lib/auto/local .cpan/build/local-lib-2.000029-0/blib/lib/local .cpan/build/local-lib-2.000029-0/lib/POD2/PT_BR/local .cpan/build/local-lib-2.000029-0/lib/POD2/DE/local .cpan/build/local-lib-2.000029-0/lib/local But they are in the “build” directory. This is a little bit suspicious. Am I missing some installation steps? Would you please help me to install “local::lib” correctly? Thank you very much and have a wonderful day ahead! — Best wishes, Maxim Maxim Abalenkov \\ maxim.abalenkov@gmail.com +44 7 486 486 505 \\ www.maxim.abalenkov.uk https://www.nntp.perl.org/group/perl.beginners/2024/02/msg127817.html Thu, 15 Feb 2024 10:12:17 +0000 Are there any ALSA Perl Modules? (7 messages) Several years ago, I wrote some C code which turns one's computer's sound interface in to a sound-activated recorder that I could then connect to radio receivers or microphones and record when audio started and stop recording when there is nothing but silence. One essentially sets a sound card to record continuously but the sound samples go through code that knows what silence looks like. In short, silence looks like samples whose numeric value is exactly half-way between the lowest and highest voltage that the analog-to-digital converter reads, commonly either 32,767 representing silence, give or take a count or two due to digital sampling errors or decimal 128, hex 80 for 8-bit mono audio. The Advanced Linux Sound Architecture Project has C library functions for setting sample rates, mono, stereo, big or little endianness and 8 or 16-bit audio, whatever one needs for their application. One can even define samples as signed or unsigned integers. Once one gets a stream of ints which are usually 32-bits wide for stereo or 16-bit shorts for mono, the sound processing can begin which C is really good at but perl is just as good at so if one could get the same alsa modules which are used by aplay and arecord for setting up one's audio interfaces or sound cards, the manipulation of those data that was done in C could also be done in perl without hardly any modification to it at all. Perl has just the right mix of low-level logic and bitwise operators plus a much more easy-to-use string handling capability which is why I am asking this question. I may be looking in the wrong places but, so far, I seem to be batting zeros when looking for perl and alsa together. Any good ideas are greatly appreciated, here. Martin McCormick https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127804.html Sun, 28 Jan 2024 19:27:54 +0000 https://metacpan.org/pod/OpenOffice::OODoc (9 messages) Hi, is there a way to create libreoffice spreadsheets (ods) similar to Excel::Writer::XLSX? There is OpenOffice::OODoc and I don't see how to create spreadsheet documents with that. Is there still no way to do that? https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127801.html Thu, 25 Jan 2024 19:05:24 +0000 regex (14 messages) Please help me to understand this: $ perl -e 'exit(10) if "aaa"=~/a{,2}/;' $ echo $? $ 10 Thanks Jorge Almeida https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127787.html Mon, 22 Jan 2024 12:23:45 +0000 Using UNIX domain sockets (3 messages) Hi, I am trying to control mpv player using unix sockets but it looks like that perl is unable to send the string correctly. I run the following command: mpv --input-ipc-server=~/mpv.sock --idle=yes -v -v If I sent the string using system commands: $ echo '{"command":["stop"]}' | socat - ~/mpv.sock | jq { "data": null, "request_id": 0, "error": "success" } It works as expected and is accepted by mpv: [ipc_1] Client connected [cplayer] Run command: stop, flags=64, args=[flags=""] [ipc_1] Client disconnected Now I run this perl code: #!/usr/bin/perl use strict; use warnings; use IO::Socket::UNIX; my $mpv_socket = IO::Socket::UNIX->new( Type => SOCK_STREAM(), Peer => "$ENV{HOME}/mpv.sock", ) or die "socket failed: ",$!,"\n"; my $cmd='{"command":["stop"]}'; $mpv_socket->send($cmd); and it fails to send the correct text: [ipc_2] Client connected [ipc_2] Client disconnected [ipc_2] Ignoring unterminated command on disconnect. the message "Ignoring unterminated command on disconnect" is because the text sent does not seem to be correct and is ignored by mpv. For what reason could it be that the text sent does not end correctly? https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127784.html Mon, 15 Jan 2024 19:25:50 +0000 lambda array (5 messages) Hi, how do I pass an array that is created on the fly as one parameter of a function? Example: use feature 'signatures'; no warnings 'experimental::signatures'; sub reply_multi ( $xmpp_o, $rcpts, $msg ) { foreach my $rcpt (@$rcpts) { $$xmpp_o->MessageSend( type => 'chat', to => $rcpt, body => $msg ); } return; } reply_multi( \$daemon{xmpp_o}, \($adminuser{fromJID}, $fromJID), "blah" ); This gives me an error at runtime: "Too many arguments for subroutine 'main::reply_multi' (got 4; expected 3)". Yeah, sure, ok, but is that even right? Or is signatures too experimental to handel that yet? Or how do I do what I want here? https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127772.html Sat, 13 Jan 2024 14:51:24 +0000 How to reboot? (12 messages) Hi, I would like to write a program (daemon) which will be automatically started by systemd at boot which will allow me to reboot or restart my computer through commands sent via xmpp. The xmpp part (xmpp client) and starting that program is no problem. But how can I reboot/restart the computer from the xmpp client? I don't want the xmpp client to run as root all the time. I would use something like system('shutdown', '-r', 'now'); in the xmpp client, and that does require root privileges. To make things more complicated, systemd will probably interfere in some ways, and selinux also may get in the way. So how I can do that? The background is that some idiots have decided that pressing Ctrl+Alt+Del doesn't reboot the computer anymore but, at best, restarts after 60 seconds if I'm logged in to a gnome session or, if I'm not logged in --- like when the screen saver logged me out --- it does nothing. It doesn't seem to work when I'm on the console, either. That totally sucks when the display remains black and doesn't come back no matter what you do. In such cases, I still want to be able to reboot or to shutdown the computer instead of having to hold the power button until it turns off, and without pressing the reset button. Preferably, I'd like to get Ctrl+Alt+Del to work again like it should, but that's probably something we can only dream of these days :( https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127767.html Fri, 12 Jan 2024 13:16:48 +0000 Re: Knowledge for a basic programmer and advanced programmer (5 messages) On Sat, 16 Dec 2023 08:10:49 -0600 William Torrez Corea <willitc9888@gmail.com> wrote: > What needs to know a basic and advanced programmer? > > I am a basic programmer, I don't have enough experience to be an advanced > programmer. > > How many years of experience must an advanced programmer have? > hi William, I answered many of your questions in the FAQs I comaint. List here: https://www.shlomifish.org/meta/FAQ/which_faqs_do_you_comaint.xhtml -- Shlomi Fish https://www.shlomifish.org/ Parody of "The Fountainhead" - https://shlom.in/towtf Golden rule #12: When the comments do not match the code, they probably are both wrong. ;) — Steven Rostedt, https://lwn.net/Articles/433900/ Please reply to list if it's a mailing list post - https://shlom.in/reply . https://www.nntp.perl.org/group/perl.beginners/2024/01/msg127759.html Tue, 02 Jan 2024 11:17:24 +0000 Re: How to identify a scam of a contribution? (1 message) On Fri, Dec 29, 2023, 2:54 PM William Torrez Corea <willitc9888@gmail.com> wrote: > *How do you work?* > > I received a message on my social network from one account in Awka City of > Nigeria. > > The account is not verified and post spam in your account > > The website is *phishing*: > > > https://www.virustotal.com/gui/url/fa9e13783067e995e05672fd1c8bb8593f90fbc8d128a76bae67e976a5292068?nocache=1 > > The message with job offer: > -- > > With kindest regards, William. > > â¢â£´â ¾â »â¢¶â£¦â  > â£¾â â¢ â â â£¿â¡ Debian - The universal operating system > â¢¿â¡â â ·â â â  https://www.debian.org > â â ³â£â â â â  > > > https://www.nntp.perl.org/group/perl.beginners/2023/12/msg127757.html Fri, 29 Dec 2023 21:42:46 +0000 [getting PAUSE account] (9 messages) Dear all, How are you? I hope all is well with you. I’m reading the ‘Intermediate Perl’ textbook. It suggests applying for a PAUSE account. I applied a couple of days ago using the link listed in the book. However, I still haven’t received any reply. Am I doing something wrong? Shall I be more patient or is the advice in the book no longer relevant? Please let me know. Thank you and have a good day ahead! -- Best wishes, Maxim Maxim Abalenkov \\ maxim.abalenkov@gmail.com +44 7 486 486 505 \\ www.maxim.abalenkov.uk https://www.nntp.perl.org/group/perl.beginners/2023/12/msg127752.html Sat, 23 Dec 2023 16:01:27 +0000 Knowledge for a basic programmer and advanced programmer (1 message) What needs to know a basic and advanced programmer? I am a basic programmer, I don't have enough experience to be an advanced programmer. How many years of experience must an advanced programmer have? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/12/msg127751.html Sat, 16 Dec 2023 14:11:05 +0000 perlbrew (2 messages) Try to change the version of my Perl but not change. I have Perl v5.36.1, I tried to change Perl to Perl v5.10.0 but I didn't get the desired effect. I have the following error: A sub-shell is launched with perl-5.10.0 as the activated perl. Run 'exit' > to finish it. > -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127748.html Wed, 22 Nov 2023 21:14:59 +0000 Perl Design Patterns (2 messages) When must I use perl design patterns? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127744.html Sat, 18 Nov 2023 15:49:17 +0000 Program complete (1 message) *What is a complete program or what needs a program to be complete?* Is a different a program of C in comparison with a program in Perl. In C the program has a structure but in Perl it is different. my @numbers = (3,7,9,99,25); > my @perfect_squares; > > # the next statement is useful when you want to skip the processing > # of some elements. You can use this to rewrite the previous code > # to find all perfect squares in a loop > for my $number (@numbers){ > my $root = sqrt ($number); > > if (int ($root) != $root){ > next; #skip the rest of the loop BLOCK > } > > print "Found perfect square: $number\n"; > push @perfect_squares, $number; > } > ~ > > ~ > -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127743.html Wed, 15 Nov 2023 06:17:02 +0000 Over-productive or improductive (1 message) What is the best option for work in software development? *My weak * 1. I am *over-productive * 2. I have impostor syndrome 3. I have burnout 4. My learning curve is slow -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127742.html Mon, 06 Nov 2023 22:32:15 +0000 Software engineering (1 message) What happens if I use only perl for developing a program? What problems can come up? -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127741.html Sat, 04 Nov 2023 03:49:13 +0000 Developer Skills Report (1 message) In my country there are no developer skills reports, I read developer skills reports from the USA and Europe. Only know: the developers use Java, .Net, SQL Server, frameworks and the requirements of each company but there does not exist a direction. Some developers appeal to remote work, others maintain software and others create their own company. Nobody uses Perl in my country for development, maybe for personal projects or tasks of the university but the working market does not demand this language. -- With kindest regards, William. â¢â£´â ¾â »â¢¶â£¦â  â£¾â â¢ â â â£¿â¡ Debian - The universal operating system â¢¿â¡â â ·â â â  https://www.debian.org â â ³â£â â â â  https://www.nntp.perl.org/group/perl.beginners/2023/11/msg127740.html Wed, 01 Nov 2023 21:18:03 +0000