Hey all!
As a recent graduate seeking a junior developer position, I received an invitation for a job interview which included a Perl coding exercise. How can i make my code better? Additionally, are there recommended best practices for documenting my progress on this exercise? I never programmed in perl, so bare with me. Thanks a lot!!
here's the task:
- read the data from a .csv file
- store data in one hash
- outputs the data as HTML, sorted by company and within the company by name
here is my code:
#!/usr/bin/perl use strict; use warnings; use Text::CSV; my $csv_file = 'Bewerbungstest.csv'; open(my $fh, '<', $csv_file) or die "Could not open file '$csv_file' $!"; my $csv = Text::CSV->new({ binary => 1 }) or die "Cannot use CSV: ".Text::CSV->error_diag(); $csv->header($fh); # Hash Wert my %data_hash; while (my $row = $csv->getline($fh)) { my $pid = $row->[0]; # PID as key my $company = $row->[1]; # Company name as key my $last_name = $row->[2]; # Employee last name my $first_name = $row->[3]; # Employee first name push @{$data_hash{$company}}, [$pid, $last_name, $first_name]; } close($fh); # Sort the company names alphabetically foreach my $company (sort keys %data_hash) { @{$data_hash{$company}} = sort {$a->[1] cmp $b->[1]} @{$data_hash{$company}}; } # HTML Output open(HTML, '>', 'output.html') or die "Could not open file: $!"; print HTML "<html>\n"; print HTML "<head>\n"; print HTML "<title>Employee List</title>\n"; print HTML "</head>\n"; print HTML "<body>\n"; print HTML "<h1>User Liste</h1>\n"; print HTML "<table border='1'>\n"; print HTML "<tr><th>PID</th><th>Company</th><th>Last Name</th><th>First Name</th>\n"; foreach my $company (sort keys %data_hash) { foreach my $entry (@{$data_hash{$company}}) { my ($pid, $last_name, $first_name,) = @$entry; print HTML "<tr>\n"; print HTML "<td>$pid</td>\n"; print HTML "<td>$company</td>\n"; print HTML "<td>$last_name</td>\n"; print HTML "<td>$first_name</td>\n"; print HTML "</tr>\n"; } } print HTML "</table>\n"; print HTML "</body>\n"; print HTML "</html>\n"; close(HTML); print "HTML file erfolgreich generiert\n";
submitted by /u/stayin_alive23
[link] [comments]
I have inherited some perl scripts that I've generally been able to edit well enough with my knowledge from other languages, but I need to make a change that has me stumped.
The user wants the output that happens from this loop to be reversed.
for ($nn=0;$nn<=$range_max;$nn++) { my $range=sprintf("%02d",$nn); $sum_of_A += $A_EACH_RANGE{"$range"}; $sum_of_B += $B_EACH_RANGE{"$range"}; printf("\"\",\"%s\",\"%s\",\"%s\",\"%s\",\"%s\"\n", $scale[$nn], commify($A_EACH_RANGE{"$range"}), commify($B_EACH_RANGE{"$range"}), commify($sum_of_A), commify($sum_of_B)); } So I figured all I had to do was start the for loop at the end like this:
for ($nn=$range_max;$nn>=0;$nn--) { Then I realized there's some cumulative math going on in the loop, which means the sum of everything needs to be at the top now instead of the bottom.
Now I'm stuck, I've made a few attempts like pushing it into an array so I could have the option to output in forward or reverse, but all my attempts just hang with no warnings or errors.
I figure there's a more elegant solution but my Google-fu hasn't helped.
submitted by /u/wirikidor
[link] [comments]
Randal Schwartz is guest on Flosss Weekly 765, mostly for Dart, but he also talks quite a bit about Perl.
One of the interesting management of Dart is that they have people assigned to work shifts to triage and respond to issues so that requestors can get immediate feedback that at least someone saw their issue. I'll let him tell the rest of the story, but it's a good one.
submitted by /u/briandfoy
[link] [comments]
FLOSS Weekly Episode 765: That Ship Sailed… And Sank
This week Jonathan Bennett and Aaron Newcomb talk with Randal Schwartz, the longest running host of FLOSS Weekly, Perl’s biggest cheerleader, and now Dart and Flutter expert. What’s new…Hackaday
Hi,
I am using Template::Mustache in a prooted Debian in termux on Android.
It works fine, however it produces this annoying warning:
"Flock not available: 'Function not implemented': continuing in unsafe mode".
As far as I can see it ultimately comes from Path::Tiny when slurping a file.
I have tried to get rid of it with "no warnings" but that did not do the trick.
So how can I suppress this warning?
submitted by /u/ghiste
[link] [comments]
[link] [comments]
(cdlxxxvii) 12 great CPAN modules released last week
Updates for great CPAN modules released last week. A module is considered great if its favorites count is greater or equal than 12. App...niceperl.blogspot.com
[link] [comments]
Hackathon Perl / Open Food Facts in Paris
2024-03-23T09:00:00Z (UTC)→2024-03-24T17:00:00Z (UTC) Open Food Facts, 3 avenue victoria, 79004 Paris English below French En association avec les mongueurs, nous proposons d’organiser un Hackathon (marathon de programmation) autour de l’utilisat…Open Food Facts Forum
Hello everyone, I'm new to Perl and I'm currently writing a script to handle a repeated call of a sequence of commands (currently using the ` operator to evaluate them) to generate a dataset. As the generation takes a lot of time, i would like to find a way to do a clean interrupt in the middle in case I need to shutdown, so I set up a sigint handler to exit the loop. However, the Sigint also interrupts the command and I would like to avoid that. Since I don't really have control over the command's code, is there a way to block the sigint from Perl to prevent it from reaching the evaluating command?
submitted by /u/P1G4ME
[link] [comments]
So, I was imagining some sort of debug thingy, where one would insert debug commands into code, like with two ##es like critic or even straight Perl as with Data::Printer. But these wouldn't render on stderr but to another output. A tmux layout on another shell would then listen to these output and display whatever comes from the executing code. Like some kind of display socket.
It would render in a log like way, but also tui like, say htop, kind. How, in gross terms, and with which libs, could this be done?
submitted by /u/fellowsnaketeaser
[link] [comments]
 | submitted by /u/davorg [link] [comments] |
Pointless personal side projects - Perl Hacks
I can’t be the only programmer who does this. You’re looking for an online service to fill some need in your life. You look at three or four competing products and they all get close but none of them do everything you want.Dave Cross (Perl Hacks)
[link] [comments]
(cdlxxxvi) 15 great CPAN modules released last week
Updates for great CPAN modules released last week. A module is considered great if its favorites count is greater or equal than 12. CGI...niceperl.blogspot.com
I'm new tp Perl, and got some questions about cpan. If it's a package manager, how to remove a package it installed? And i don't quite follow the info when downloading a package, the info seems to be compiling package? Or just ignore all of them as long as it works?
submitted by /u/MassiveSleep4924
[link] [comments]
Hi,
I am writing an Alien file to install the pipx package manager in a somewhat portable way (the package manager can be installed in as many different ways, as the number of operating systems out there ) , and I was wondering if there is a better way to do so than the following hack
use alienfile; use strict; use warnings; ## dummy probe for a system install probe sub { 'system'; }; ## check that pipx is actually installed my $has_pipx; my $cmd = `pipx --version`; chomp $cmd; $has_pipx = $cmd =~/[0..9\.]+/ ; unless($has_pipx) { ## OS specific install instructions } 1; The reason I'd like to do it via Alien is because I am writing an application with numerous external dependencies, some of which can be installed by downloading and building C/Rust/C++ apps from source, but others are (vomit) python modules and I would like to use a consistent way to handle non-perl dependencies.
submitted by /u/ReplacementSlight413
[link] [comments]
Hi all! I am looking for companies currently hiring Perl developers. So far I found only a couple of them (booking, 17hats) and I was wondering if anybody knows others? Possibly in EU, but remote is also good. Thank you!
submitted by /u/Neither-Television-3
[link] [comments]
sealed.pm implements dougm’s original patch to compile method lookups for typed lexicals:
https://www.perl.com/pub/2000/06/dougpatch.html/
v5.1.5 on CPAN resolves longstanding reentrancy issues.
Internally sealed always relied on an undocumented method in B::Generate to construct the replacement B::PADOP opcode, but internally it’s invoking newPADOP, which leaves the associated padname unaddressed.
This causes segfaults in Perl_pad_push reliably, when it indexes that padname element.
In v5.1.5, the padname gets created by an XS subroutine, which does the needful.
submitted by /u/joesuf4
[link] [comments]
Notes on Doug's Method Lookup Patch
Since 1997 Perl.com has published articles about the Perl programming language, its culture and community.Perl.com
Is there a module that can facilitate writing something similar to DBI, where one uses a common API for many different tools, swapping one for another but keeping the rest of of the program intact ? The non OO way is that of a dispatch table, but I want to elevate my OO a bit, and allow registration of components without touching the main application.
submitted by /u/ReplacementSlight413
[link] [comments]
[link] [comments]
(cdlxxxv) 7 great CPAN modules released last week
Updates for great CPAN modules released last week. A module is considered great if its favorites count is greater or equal than 12. CGI...niceperl.blogspot.com
 | submitted by /u/ThranPoster [link] [comments] |
Thranpages :: devlog :: Rescamming: The story of haha.pl
A naughty script delivers payback to some Facebook scammers. A story featuring Perl, great justice and many copypastas.Thranpages
Hi all.
I'm currently working as a PHP Developer, and I want to learn something new, because I've been developing in PHP for 7 years.
My current tech leader is a super senior developer with around 25 years of experience developing software, and he said his main programming language is Perl, and he worked with it so many years and so many projects, also he said he could teach me Perl in an advanced way if I wanted to.
So i have this opportunity to learn Perl from a professional with a lot of experience.
The only thing stops me, is that I know that Perl jobs are not that common, at least not as PHP jobs.
But something that motivates me is learning a new technology and apply it.
I know there are a lot of JS and Python jobs, but I don't really like those languages, I would prefer Java or C#.
This is my situation, should I invest this time into learning Perl if I want to expand my market opportunities?
Greetings!
submitted by /u/oscar_96vasa
[link] [comments]
 | submitted by /u/perlancar [link] [comments] |
List of new CPAN distributions – Feb 2024
dist author abstract date Acme-CPANModules-ArrayData PERLANCAR List of modules related to ArrayData 2024-02-05T00:05:46 Acme-CPANModules-FormattingDate PERLANCAR List of various methods to format d…perlancar's blog
Hi,
Can anyone help explain to me why this is failing? I am trying to install Env::C and it seems to me that it is failing because of a leak test. Am I reading that right?
[root@a34 ~]# cat /root/.cpanm/work/1708960597.71560/build.log cpanm (App::cpanminus) 1.7047 on perl 5.026003 built for x86_64-linux-thread-multi Work directory is /root/.cpanm/work/1708960597.71560 You have make /usr/bin/make You have LWP 6.34 You have /usr/bin/tar: tar (GNU tar) 1.30 Copyright (C) 2017 Free Software Foundation, Inc. License GPLv3+: GNU GPL version 3 or later <https://gnu.org/licenses/gpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. Written by John Gilmore and Jay Fenlason. You have /usr/bin/unzip Searching Env::C () on cpanmetadb ... --> Working on Env::C Fetching http://www.cpan.org/authors/id/M/MS/MSCHOUT/Env-C-0.15.tar.gz -> OK Unpacking Env-C-0.15.tar.gz Entering Env-C-0.15 Checking configure dependencies from META.json Checking if you have ExtUtils::MakeMaker 6.58 ... Yes (7.34) Configuring Env-C-0.15 Running Makefile.PL Checking if your kit is complete... Looks good Generating a Unix-style Makefile Writing Makefile for Env::C Writing MYMETA.yml and MYMETA.json -> OK Checking dependencies from MYMETA.json ... Checking if you have warnings 0 ... Yes (1.37) Checking if you have DynaLoader 0 ... Yes (1.42) Checking if you have strict 0 ... Yes (1.11) Checking if you have Test::More 0.88 ... Yes (1.302135) Checking if you have ExtUtils::MakeMaker 0 ... Yes (7.34) Building and testing Env-C-0.15 cp lib/Env/C.pm blib/lib/Env/C.pm Running Mkbootstrap for C () chmod 644 "C.bs" "/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- C.bs blib/arch/auto/Env/C/C.bs 644 "/usr/bin/perl" "/usr/share/perl5/vendor_perl/ExtUtils/xsubpp" -typemap '/usr/share/perl5/ExtUtils/typemap' C.xs > C.xsc Please specify prototyping behavior for C.xs (see perlxs manual) mv C.xsc C.c gcc -c -D_REENTRANT -D_GNU_SOURCE -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -fexceptions -fstack-protector-strong -grecord-gcc-switches -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -m64 -mtune=generic -fasynchronous-unwind-tables -fstack-clash-protection -fcf-protection -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -g -DVERSION=\"0.15\" -DXS_VERSION=\"0.15\" -fPIC "-I/usr/lib64/perl5/CORE" C.c rm -f blib/arch/auto/Env/C/C.so gcc -lpthread -shared -Wl,-z,relro -Wl,-z,now -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -L/usr/local/lib -fstack-protector-strong C.o -o blib/arch/auto/Env/C/C.so \ -lperl \ chmod 755 blib/arch/auto/Env/C/C.so Manifying 1 pod document "/usr/bin/perl" -MExtUtils::Command::MM -e 'cp_nonempty' -- C.bs blib/arch/auto/Env/C/C.bs 644 PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/author-pod-coverage.t .. skipped: these tests are for testing by the author t/author-pod-syntax.t .... skipped: these tests are for testing by the author t/author-signature.t ..... skipped: these tests are for testing by the author # Failed test 'setenv does not leak' # at t/leak.t line 31. # got: 63416 # expected: 63418 # Looks like you failed 1 test of 1. t/leak.t ................. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests t/smoke-multi.t .......... ok t/smoke.t ................ ok Test Summary Report ------------------- t/leak.t (Wstat: 256 Tests: 1 Failed: 1) Failed test: 1 Non-zero exit status: 1 Files=6, Tests=14, 0 wallclock secs ( 0.01 usr 0.01 sys + 0.30 cusr 0.01 csys = 0.33 CPU) Result: FAIL Failed 1/6 test programs. 1/14 subtests failed. make: *** [Makefile:1033: test_dynamic] Error 255 -> FAIL Installing Env::C failed. See /root/.cpanm/work/1708960597.71560/build.log for details. Retry with --force to force install it. [root@a34 ~]#
submitted by /u/dovi5988
[link] [comments]
[link] [comments]
(cdlxxxiv) 9 great CPAN modules released last week
Updates for great CPAN modules released last week. A module is considered great if its favorites count is greater or equal than 12. CPA...niceperl.blogspot.com
 | submitted by /u/davorg [link] [comments] |
The present isn't evenly distributed either - Perl Hacks
The future is already here – it’s just not very evenly distributed – William Gibson The quotation above was used by Tim O’Reilly a lot around the time that Web 2.0 got going.Dave Cross (Perl Hacks)
Hey Reddit Community, as of 2024, what are the most innovative and practical applications of Perl in today's tech landscape?
submitted by /u/MrLaurieLaurenceJr
[link] [comments]
