My site got exploited the other week. I had a backup of my WordPress domain, so after importing the backup, most of the infected files were gone. However, some files outside the public_html folder were infected. I deleted those files, and my website loads up fine. Just wondering, is there a way I can restore those files without having my hosting company reinstall Perl?

Thx in advance.

/home2/user1/perl5/lib/perl5/x/index.php: SL-PHP-FILEHACKER-fbo.UNOFFICIAL FOUND

/home2/user1/perl5/lib/x/index.php: SL-PHP-FILEHACKER-fbo.UNOFFICIAL FOUND

/home2/user1/perl5/bin/x/index.php: SL-PHP-FILEHACKER-fbo.UNOFFICIAL FOUND

/home2/user1/perl5/x/index.php: SL-PHP-FILEHACKER-fbo.UNOFFICIAL FOUND

-ABS

submitted by /u/AnotherBrokenSpirit
[link] [comments]

Sorry I didn't get this out here earlier (and it's an xpost from Perlmonks), but Perl Community (parent org of the Science Perl Committee that is initiated the Science Track) is giving out a "peoples choice" award at the end of Conference Lightning Talks. It's sincere gesture from us and allows anyone to vote for anyone in the Perl community at large, as a "thank you" from us.

link to Google voting form

The Science Track talks have been great, some are even starting to come online. Thanks to everyone who made this happen, especially the TPRC Planning Committee.

submitted by /u/OODLER577
[link] [comments]

The 2024 Golden PERL Award

The Golden PERL Award AKA The People's Choice Award is sponsored by PerlCommunity.org and the Public Enrichment & Robotics Labs. Anyone is eligible to cast a vote and anyone in the global Perl community is eligible to receive a vote.

^{Google Docs}

I want to repeat a process for every key in a hash, with numeric keys. So there are 3 possibilities, with 3 if, and each one compares the value of the index of an array, so that if that position eq to "sp", "sp2" or "sp3" it will search in a document some value so then it can be printed. It doesn´t work and every times gives me only one value, i would like to get the values that correspond with the hash. For example the hash could be %grupos=(1,'A',2,'G',3,'J')

and the array @hibridaciones=("sp","sp2",sp3")

The document .txt (simplified) is:

HS0.32 CS0,77 CD0.62 CT0,59 C10,77 C20,62 C30,59 OS0.73 OD0,6 O10,73 O20,6 NS0.75

The code is:

open (covalencia,"<", "cov.txt") or die "$!\n"; print keys %grupos; keys %grupos; foreach my $z (keys %grupos) { print "\n$z\n"; if (@hibridaciones[my $z-1] eq “sp") { while (my $line = <covalencia>) { if ( $line=~/C1/) { $line =~s/C1//; $radio=$line; print "\n$radio"; } } } if (@hibridaciones[my $z-1] eq "sp2") { while (my $line = <covalencia>) { if ($line=~/C2/) { $line =~s/C2//; $radio=$line; print "\n$radio"; } } } if (@hibridaciones[my $z-1] eq "sp3") { while (my $line = <covalencia>) { if ($line=~/C3/) { $line =~s/C3//; $radio=$line; print "\n$radio"; } } } } close (covalencia);

submitted by /u/SamuchRacoon
[link] [comments]

On this site: https://codegolf.stackexchange.com/questions/246845/convert-json-object-of-directories-to-list-of-paths

There is an interesting perl solution but I'm trying to wrap my head around it and am baffled.

map/}/?/{/&&say($s)..$s=~s|[^/]+/$||:($s.=s/"//gr."/"),/{?}|".+?"/g When I do a simple test: my $s = <some json string> .. the map above I don't get any output. Thanks in advance 

Convert JSON object of directories to list of paths

Task The input consists of a JSON object, where every value is an object (eventually empty), representing a directory structure. The output must be a list of the corresponding root-to-leaf paths.

^{Code Golf Stack Exchange}

I have a bunch of files that I am parsing out a simple tag
<institution content-type="division">(.+?)?<\/institution>

Everything is going fine until I hit this result:
2) School of Chemical & Biomolecular Engineering

This is complaining because it thinks the ) is unmatched. How do I get it to accept whatever is in the capture? I tried playing around with \Q and \E but that isn't working. For clarity, I won't know what is in this tag, it could be anything at all and the tag is simple enough that I don't want to use some XML parser.

submitted by /u/sirhalos
[link] [comments]

Mo utilities for email.

Changes for 0.02 - 2024-04-26T23:02:53+02:00

• Add tests for error parameters.
• Rewrite the tests so that the functional tests are first and then the errors.

Hi! Asking for a wisdom here...

We have a module that modifies signal handler $SIG{__DIE__} to log information and to die afterwards. Hundreds of scripts relied on this module which worked fine in perl 5.10.1.

Recently we had the opportunity to install several Perl versions but unfortunately a large number of scripts that used to work with Perl 5.10.1 now behave differently:

• Failed in 5.14.4: /home/dev/perl-5.14.4/bin/perl -wc test.pl RECEIVED SIGNAL - S_IFFIFO is not a valid Fcntl macro at /home/dev/perl-5.14.4/lib/5.14.4/File/stat.pm line 41
• Worked without changes in 5.26.3: /home/dev/perl-5.26.3/bin/perl -wc test.pl test.pl syntax OK
• Worked without changes in 5.38.2: /home/dev/perl-5.38.2/bin/perl -wc test.pl test.pl syntax OK

Many of the scripts can only be updated to 5.14.4 due to the huge jumps between 5.10 and 3.58; But we are stuck on that failures.

Was there an internal Perl change in 5.14 which cause the failures but works on other recent versions without any update on the scripts?

Cheerio!

submitted by /u/Longjumping_Army_525
[link] [comments]

Sanity-check calling context

Changes for 0.04

• (no code changes)
• Switched to MIT license.
• Switched README from POD to Markdown.
• Removed Travis CI.

Sort lines of text by a SortKey module

Changes for 0.001 - 2024-03-07

• First release.

Sort lines of text by a Comparer module

Changes for 0.002 - 2024-03-07

• No functional changes.
• [doc] Mention some related links.

An assortment of date-/time-related CLI utilities

Changes for 0.128 - 2024-03-07

• [clis strftime, strftimeq] Use localtime() instead of gmtime(). We can still show UTC using "TZ=UTC strftime ...".

Future-based web+HTTP handling

Changes for 0.001 - 2024-04-24T00:49:13+08:00

• Initial version for websocket + per-message compression support

Perl implementation for the Prague Markup Language (PML).

Changes for 2.26 - 2024-04-23T17:31:17Z

• Properly fix saving relative paths to resource files.

I understand that many disagree with this statement, but it really makes it easier to build distributions for people who not monks. Wish the documentation was more detailed

submitted by /u/ReplacementSlight413
[link] [comments]

Sah schemas related to BCA (Bank Central Asia) bank

Changes for 0.002 - 2024-04-03

• Rename module/dist Sah-Schema{s,Bundle}-* following rename of Sah-Schema{s,Bundle} (for visual clarity and consistency with naming of other bundles).

search nested hashref/arrayref structures using JSONPath

Changes for 1.0.5 - 2024-04-22T16:10:46-05:00

simulating paper and pencil techniques for basic arithmetic operations

Changes for 0.01 - 2024-04

• First version, with the four basic operations, plus square-root, GCD and radix conversion. And HTML rendering

Use a type to validate values in a deep comparison.

Changes for 1.0.1 - 2024-04-22

• Add Test2::Tools::Type

An open source web-based network management tool.

Changes for 2.076000 - 2024-04-22

• NEW FEATURES
• ENHANCEMENTS
• BUG FIXES

Silverpeak Orchestrator REST API client library

Changes for 0.011000 - 2024-04-22T17:58:39+02:00

• add support for version 9.3+ API endpoints

A module that performs semantic similarity in PXF/BFF data structures and beyond (JSON|YAML)

Changes for 0.07 - 2024-04-22T00:00:00Z

• Excluded keys with {} or [] values (e.g. subject.vitalStatus: {})
• Precompiled regex patterns where possible
• Schema validation errors related to weights are now directed to STDERR
• Added support for variables with non-word characters (e.g., "Survey.Timestamp.1")

Pango style markup formatting

Changes for 0.036 - 2024-04-22

• Introducing struts. Update SYNOPOSIS example to modern PDF::API2 conventions. Fix/enhance drawing of brackgrounds. Fix problem with wrongly calculated underlining.

My environment is perl/5.18.2 on CentOs 7

I'm trying to use a SWIG generated module in perl, which has a c plus plus backend. The backend.cpp sets an environment variable, $MY_ENV_VAR =1

But when I try to access this in perl, using $ENV{MY_ENV_VAR} this is undef.

However doing something like print echo $MY_ENV_VAR works

So the variable is set in the process, but it's not reflected automatically since nothing updates the $ENV data structure.

I'm assuming it may work using some getEnv like mechanism, but is there a way to reset/ refresh the $ENV that it rebuilds itself from the current environment?

submitted by /u/sarcasmwala
[link] [comments]

By default cpanm drops Perl modules into ~/perl5. How do I tell cpanm to use a different location, such as ~/.local/share/perl5 instead?

submitted by /u/s-ro_mojosa
[link] [comments]

Get stock and mutual fund quotes from various exchanges

Changes for 1.61_01 - 2024-04-21T17:50:16-07:00

• YahooWeb.pm - Issue #377. Modified YahooWeb to account for changes from Yahoo.

Sah schemas related to SortKey

Changes for 0.002 - 2024-03-07

• Rename module/dist Sah-Schema{s,Bundle}-SortKey.

Perl Data Language

Changes for 2.088 - 2024-04-22

• Slatec::ch{ic,sp} work arrays now [t]
• add Slatec::bvalu
• add Func::{pchip,spline}, and a demo
• add Ufunc::diff2
• extra ) on end of Pars now an error
• PP dim sizes can be =CALC(...) instead of explicit RedoDimsCode
• PP add loop(n=start:end:inc) idiom to stop not at end and have non-1 inc
• updated README.md - thanks @falsifian
• support T_PTROBJ in typemap

an interactive plotting widget and library for PDL and Prima

Changes for 0.21 - 2024-04-22

• demo now only loads Prima when run, reducing perldl problems

demonstrate PDL::Graphics::PLplot capabilities

Changes for 0.84 - 2024-04-22

• add perldl demo
• fix plFreeGrid to use free that matches the allocator
• pl{Alloc,Free}{,2d}Grid error if not match allocating and freeing routine
• minimum PDL 2.083 due to output OtherPars

Fast Perl SSG: now with automatic Language Translation via OCI and translate.pl. Check it out at

https://github.com/SunStarSys/orion

submitted by /u/joesuf4
[link] [comments]

GitHub - SunStarSys/orion: SunStar Systems' Orion Enterprise Wiki SSG

SunStar Systems' Orion Enterprise Wiki SSG. Contribute to SunStarSys/orion development by creating an account on GitHub.

^GitHub

Tags helper for table view.

Changes for 0.06 - 2024-04-21T17:26:14+02:00

• Fix of setting of table data. Copy in this time.

Tags helper for CPAN::Changes object.

Changes for 0.04 - 2024-04-21T16:06:08+02:00

• Add trivial Changes file and test on it.
• Fix output on ex1.changes test file.

parses .pm file as PAUSE does

Changes for 0.47 - 2024-04-21

• Improve class detection

Plack application for running Tags::HTML objects.

Changes for 0.17 - 2024-04-21T12:34:17+02:00

• Add test for 'css_data'.
• Rewrite examples in doc to version with indented output.

Perl extension for finding the memory usage of Perl variables

Changes for 0.83_50 - 2024-04-21

• patch from Slaven:
• CvOUTSIDE is again set on all cloned subs [CPAN #149902]