Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

The Monastery Gates

( [id://131]=superdoc: print w/replies, xml ) Need Help??

If you're new here please read PerlMonks FAQ
and Create a new user.

Quests
Wall of Larry Quest
Starts at: Feb 26, 2024 at 05:00
Ends at: Dec 31, 2024 at 04:59
Current Status: Active
2 replies by jdporter

    By now you've all seen The St. Larry Wall Shrine. Well, it could use a fresh coat of gold leaf and shellac. Therefore, we are soliciting Larry-related items to be placed on the shrine. Links to offsite content are good; or if you have small bits of content, such as quotes, you'd like to contribute, that's fine too. Please reply to this Quest with your humble offerings. Thank you! And may St. Larry bless your codings and your debuggings.

poll ideas quest 2024
Starts at: Jan 01, 2024 at 00:00
Ends at: Dec 31, 2024 at 23:59
Current Status: Active
2 replies by pollsters
    First, read How do I create a Poll?. Then suggest your poll here. Complete ideas are more likely to be used.

    Note that links may be used in choices but not in the title.

Monk Quips Quest
Starts at: May 01, 2023 at 08:00
Ends at: Apr 30, 2024 at 07:59
Current Status: Active
9 replies by erzuuli
    Esteemed Monk kcott has recently proposed an excellent idea.

    heretoforthwithstanding, we invite all monks to submit ideas for new monk quips!

    Your quip suggestion should include the following details:

    • Intended quip location: either XP Nodelet, Chatterbox, or Monkbar (that's the page header).
    • Text of quip.
    • Optional: background & foreground colours. If you include these, be sure they are nicely contrasting.

    .

Perl News
Denouncing "The German Perl/Raku Workshop 2024"
on Apr 23, 2024 at 10:49
1 reply by LanX
    Apparently we forgot to announce the GPW24 in Frankfurt, the same way we did before...

    So time to at least denounce it now. ;-)

    It was great again:

    • 20% more attendants than the year before
    • interesting talks, especially about AI
    • Sleep inducing oxygen deprivation, till we managed to regularly open the windows
    • International guest-speakers: Indians from India, Americans from France, Ukrainians from Finland, Kiwis from Germany, Germans from London, Brits from Alpine State-lets and ... Bavarians ... ;-)
    Thanks to for organizing :)))

    And sorry for everyone I missed denouncing!

    See you next year in Munich.

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    see Wikisyntax for the Monastery

    PS: Apparently there is still a huge (200+ attendants) YAPC happening in Japan each year, would be nice to connect here (or anywhere else) ...

Announcing The London Perl & Raku Workshop 2024 (LPW)
on Apr 22, 2024 at 05:48
1 reply by leej
Supplications
IPC::Run3 not working as expected when running Docker command
2 direct replies — Read more / Contribute
by nysus
on Apr 22, 2024 at 16:00

    Got this docker command I want to run. Note the tail command at the end for keeping the container up and running.

    docker run -d --name xxxyyyzzz-blah alpine /bin/ash -c "/usr/bin/tail +-f /dev/null"

    The following backtick operation runs this command with no issue and the container is detached from and the container is left still running:

    use v5.38; `docker run -d --name xxxyyyzzz-blah alpine /bin/ash -c "/usr/bin/tail + -f /dev/null"`;

    However, with the IPC::Run3 module, the container gets set up, but the tail command never seems to get executed and the container exits immediately:

    use v5.38; use IPC::Run3; my $cmd = [ 'docker', 'run', '-d', '--name', 'xxxyyyzzz-blah', 'alpine +', '/bin/ash', '-c', '"/usr/bin/tail -f /dev/null"' ]; my ($out, $err); my $success = run3($cmd, undef, \$out, \$err); print $success; # prints 1

    I tried breaking up the the last element into 3 different elements separated by spaces but that didn't help.

    $PM = "Perl Monk's";
    $MC = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar Parson";
    $nysus = $PM . ' ' . $MC;
    Click here if you love Perl Monks

Returning data
5 direct replies — Read more / Contribute
by frank1
on Apr 20, 2024 at 15:46

    Am trying to get my output of data to this format

    ({ "items": [ { "title": "Valls" }, { "title": "AUT15605" }, { "title": "10UT15605" } ] })

    Am getting this error with my code

    Can't modify private hash in concatenation (.) or string
    my $dbh = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, { RaiseError => 1, }) or die $DBI::errstr; my $sth = $dbh->prepare("SELECT titles FROM tbl_1"); $sth->execute(); my $Data = $sth->fetchall_arrayref(); my %output; foreach my $Data (@$Data) { my ($title) = @$Data; %output .= ( 'items' => [("title" => "$title")] ); } my $results = to_json(\%output); print "Content-type: text/html\n\n"; print $results;
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (3)
As of 2024-04-25 06:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found