package mylib::json;
  use Exporter 'import';
  our @EXPORT=qw(jsonEncode);
  use JSON::XS;
  sub jsonEncode($) {
    my ($o) = @_;
    my $j = undef;
    eval { $j = JSON::XS->new->encode($o); };
    return $@ ? undef : $j;
  }
[download]

  package mylib;
  use Exporter 'import';
  use lib 'mylib';
  use mylib::json;
  our @EXPORT = ( @mylib::json::EXPORT );
[download]

  use strict;
  use warnings;
  use lib '.';
  use mylib;
  print jsonEncode({foo => 'bar'});
[download]

  use strict;
  use warnings;
  use lib '.';
  use mylib;
  use JSON::WebToken;
  print jsonEncode({foo => 'bar'});
[download]

This warns:

Attempt to call undefined import method with arguments ("encode_json" 
+...) via package "JSON" (Perhaps you forgot to load the package?) at 
+C:/Strawberry/perl/site/lib/JSON/WebToken.pm line 12.
[download]

I don't understand what I am doing with mylib that impacts what JSON::WebToken does? Without mylib JSON::WebToken is working fine.

use strict;
use warnings;
use version '5.38';
use feature 'say';
use Test::More tests=>1;

my @arry1 = ('string'=~ m/str/, 'second');
my @arry2 = ('string'=~ m/foo/, 'second');
# no value stored for failed match.
is $arry2[1], $arry1[1];
[download]

RESULT

not ok 1
#   Failed test at tryit2.pl line 10
#          got: undef
#     expected: 'second'
# Looks like you failed 1 test of 1.
[download]

Hi!

I'm searching for a sane tracking software, for developing medical devices. Let me explain:

At work, we are currently using a really old version of Jira, with add-ons for tracking requirements and product tests. It's so f*ed up that all attempts to update it fail. Updating was never easy, but the last available installer/updater package actively destroys configuration and database, rendering the installation unusable. The fine print: You need to be at the latest version to be able to migrate to the cloud Jira. We can't get to that version. Tech support is not helpful.

Now, we running one project in a cloud Jira setup, paid for by our customer. I always thought the user interface of the old server installation was bad, but the cloud user interface is a mine field. Ideally, you run it on a separate computer, with mouse and keyboard disconnected. Only connect them if you really want to interact with it. Because almost any key and any click anywhere on the user interface triggers some action, even in empty spaces. The screen is littered with junk that you don't need, stuff that you need is well hidden. And as if all of that was not worse enough, we completely give up control of the data we enter into the system. Atlassian as a long history of mishandling or deleting user data, and we legally have to keep that data. I don't see any sane way of doing that.

So, guess what? I want to get rid of Jira. I don't want to even have to think about migrating existing data from our existing Jira instances to cloud Jira, and I don't want to use cloud Jira. And as much as I would like to, I don't want to write my own system. I want an existing software, running on a local webserver. I would prefer open source software, so we could tweak things if we really need to. I don't think we need much tech support, so a "community support for free, pay for professional support" model (as for Proxmox or Virtualbox) would be ok. We could pay a license fee, but we are a small company. We mostly do small projects, so license fees that costs in the order of an entire project are simply impossible.

What do we need?

• local installation (no cloud)
• web-based
• runs on Linux
• preferably open source
• issue tracking
• requirement tracking
• tracking test plans and test plan execution (product validation, testing that you fulfilled all requirements)
• a way to import old (non-cloud) tickets from Jira, including how they are linked - a REST API might be sufficient, so I can scrape data from the existing Jira instances

The classic Bugzilla ticks almost all checkboxes, except that it can't do requirement tracking and test tracking. And it's name is burned because an unloved and unmaintained installation lingered around since well before I was hired. That's clearly not the fault of Bugzilla, but some people are just strange.

Before Jira, we (the software developers) starting using Redmine just for tracking issues, with the intention to make the entire company using it. Jira won because Redmine wasn't even invited to the race. Redmine has no requirement and test tracking, but at least it has interfaces to third party tools.

A final note: Jira (with pluins) integrates the bugtracker on the one hand and requirement / tests tracking on the other hand into a single software. We are used to it, but we don't need that integration. Some bug tickets may refer to requirements or tests, but that's all. There is no tracking, not even counting. Nobody checks how many bugs a requirement "attracted". It is convienient to just type FOO-123 and it will be converted to a link to a requirement, just like typing FOO-456 will be converted to a link to an issue. But honestly, copying https://reqs.example.com/req-tracker/req/FOO-123 from the browser's address line into a issue ticket would hurt nobody.

So, how do you track issues, requirements, tests? Do you know a software that might fit our needs?

Alexander

DocumentRoot /var/webapps/sandbox/public
 
    <FilesMatch "\.(?:cgi|shtml|phtml|php)$">
        SSLOptions +StdEnvVars
    </FilesMatch>
    <Directory "/var/webapps/sandbox/public">
        Options +Indexes +FollowSymLinks +MultiViews +ExecCGI
    AddHandler cgi-script .cgi
        AllowOverride None
        Require all granted
    SSLOptions +StdEnvVars
    </Directory>
    RewriteEngine On
    RewriteCond %{REQUEST_FILENAME} !-f
    RewriteRule ^(.*)$ /dispatch.cgi$1 [QSA,L]

    # ScriptAlias / /var/webapps/sandbox/public/dispatch.cgi/
    <Location />
        # Set up your Dancer2 application
        SetHandler cgi-script
        AddHandler application/x-httpd-perl .cgi
        PerlSetEnv Dancer2_APP /var/webapps/sandbox/bin/app.pl
        PerlSetEnv DANCER2_CONFDIR /var/webapps/sandbox 
        PerlSetEnv DANCER_CONFDIR /var/webapps/sandbox 
        PerlSetEnv DANCER2_ENV development 
    </Location>
[download]

# Your application's name
appname: "sandbox"

# We want to keep session data around so
engines: 
  session:
    YAML:
      session_dir: /tmp/dancer-sessionstore

engines:
    template:
      template_toolkit:
        start_tag: '<%'
        end_tag:   '%>'
template: "template_toolkit"
session: YAML
# The default layout to use for your application (located in
# views/layouts/main.tt)
layout: "main"
# when the charset is set to UTF-8 Dancer2 will handle for you
# all the magic of encoding and decoding. You should not care
# about unicode within your app when this setting is set (recommended)
+.
charset: "UTF-8"

# template engine
# simple: default and very basic template engine
# template_toolkit: TT

# template: "simple"

plugins:
    Database:
        driver: 'mysql'
        database: 'vlabs'
        host:'something'
        port: 3306
        username: 'rouser'
        password: 'xxxxxxxxxx'
        connection_check_threshold: 10
[download]

    debug "displaying login page";
    template 'login.tt', { path => param('requested_path') };
    debug "showed login page";
[download]

[sandbox:12160] debug @2025-04-05 15:07:00> displaying login page in /
+var/webapps/sandbox/public/../lib/sandbox.pm l. 45
[sandbox:12160] debug @2025-04-05 15:07:00> showed login page in /var/
+webapps/sandbox/public/../lib/sandbox.pm l. 47
[download]

Not really a question. Well, I did ask this question around 3 or so years ago, and I was finally able to figure it out - how to connect to perl with JDBC. One challenge I found was that the documenetation for modern databases was very sparse. I'm including directions here- in case any one runs into this problem.

Perl + JDBC + Trino End-to-End Example 1. Prerequisites Strawberry Perl with DBI and DBD::JDBC modules installed. Java Proxy JAR (from DBD::JDBC) running: java -jar jdbc_bridge.jar -port 12345 Trino JDBC Driver (trino-jdbc-*.jar) in your CLASSPATH. 2. Certificate Setup (Optional SSL) If your Trino instance requires a trusted connection: Convert your .crt file to .jks (Java KeyStore): keytool -import -trustcacerts -alias trino -file your_cert.crt -keystore truststore.jks -storepass changeit Then use the truststore.jks with your Java command if needed: java -Djavax.net.ssl.trustStore=truststore.jks -Djavax.net.ssl.trustStorePassword=changeit -jar jdbc_bridge.jar -port 12345 3. Perl Script: trino_connect.pl

use strict;
use warnings;
use DBI;
# -- Your credentials
my $user     = "svc-ndevfcollect";
my $password = "yourPasswordHere!";  # Use secure storage in productio
+n
# -- JDBC URL to Trino (443 confirmed)
my $url = "jdbc:trino://query.comcast.com:443?SSL=true&catalog=dx";
# -- JDBC bridge connection (localhost to Java proxy)
my $dsn = "dbi:JDBC:hostname=localhost;port=12345;url=$url";
# -- Optional: Print connection hash for debugging
my %conn_attrs = (
    RaiseError     => 1,
    jdbc_user      => $user,
    jdbc_password  => $password,
    jdbc_catalog   => "dx",            # Change as needed
);
use Data::Dumper;
print Dumper(\%conn_attrs);
# -- Connect to Trino
my $dbh = DBI->connect($dsn, undef, undef, \%conn_attrs)
    or die "Failed to connect: $DBI::errstr";
print "Connected successfully!\n";
# -- Run sample query
my $sth = $dbh->prepare("SELECT current_user");
$sth->execute();
while (my @row = $sth->fetchrow_array) {
    print "User: $row[0]\n";
}
$sth->finish();
$dbh->disconnect();
[download]

In my code I frequently have to write conditions like this:

if (defined $string and $string ne "") {
  .....
}
[download]

What I really want is to check if the string is not entirely empty. I would like to be able to do something like if ($string) but this would exclude "0".

So I hope that there is a shorter and nicer way to do this. For now I have been using a utility strempty subroutine which runs that check but I doubt it's idiomatic.

In my own code I try to have it so that empty strings are simply undef, where applicable, but sometimes it can't be helped and external modules don't follow this rule hence why I have to write these conditions.

if ($STRING =~ m/[^\x00-\xFF]{1}/)
{
  ...
}
[download]

OR MAYBE:

if (length($STRING) > ($STRING =~ tr|\x00-\xFF|\x00-\xFF|))
{
  ...
}
[download]

I can't think of anything better. Maybe this, but I bet it's slow:

sub isUnicode
{
  my $L = defined $_[0] ? length($_[0]) : 0;
  for (my $i = 0; $i < $L; $i++)
  {
    ord(substr($_[0], $i, 1)) < 256 or return 1;
  }
  return 0;
}
[download]

Hello Monks,

I've recently learned about the DEFINE predicate and I'm testing it with a simple script that I wrote to practice Perl and regular expressions. The script simply checks for IPv4 or IPv6 addresses (I know there is a CPAN module for that, this is for me to practice), and I re-wrote the regular expression like so:

my $re = qr{
  (?>
    \b ((?&IPV6) | (?&IPV4)) \b
  )

  (?(DEFINE)
    (?<IPV6>
      (                                   ((?&H16) :){6} (?&LS32))
      | (                             ::  ((?&H16) :){5} (?&LS32))
      | ((                 (?&H16))?  ::  ((?&H16) :){4} (?&LS32))
      | ((((?&H16) :){0,1} (?&H16))?  ::  ((?&H16) :){3} (?&LS32))
      | ((((?&H16) :){0,2} (?&H16))?  ::  ((?&H16) :){2} (?&LS32))
      | ((((?&H16) :){0,3} (?&H16))?  ::  ((?&H16) :){1} (?&LS32))
      | ((((?&H16) :){0,4} (?&H16))?  ::                 (?&LS32))
      | ((((?&H16) :){0,5} (?&H16))?  ::                 (?&H16) )
      | ((((?&H16) :){0,6} (?&H16))?  :: )
    )
    (?<LS32>        ((?&H16) : (?&H16)) | (?&IPV4)               )
    (?<H16>         (?&HEX_DIGIT){1,4}                           )
    (?<HEX_DIGIT>   [a-fA-F0-9]                                  )
    (?<IPV4>        ((?&DEC_OCTET)\.){3}(?&DEC_OCTET)            )
    (?<DEC_OCTET>   25[0-5]|2[0-4]\d|1\d\d|\d\d|\d               )
    (?<IP_VFUTURE>
      v(?&HEX_DIGIT)+\.((?&UNRESERVED) | (?&SUB_DELIMS) | : )+
    )
    (?<UNRESERVED>[a-zA-Z0-9\-\._~]                              )
    (?<SUB_DELIMS>[!\$&'\(\)\*\+,;=]                             )
  )
}x;
[download]

It works, but it only seems to capture the first occurrence of an IP address on each line. For example:

if ("This is the same address in IPv6: 0:0:0:0:0:0:0:1 and 127.0.0.1" 
+=~ /$re/g ) {
  say $&;
  say $1;
  say $2;
}
[download]

I was expecting to capture both IP addresses, but only the first is ever captured. Can anyone shed some light on how could I make this work in this way?

Thank you!

use HTTP::Tiny;
use HTTP::CookieJar;
use HTTP::Cookies::Mozilla;

my $cookies = HTTP::Cookies::Mozilla->new(file => $firefox_cookies_sql
+ite_file);
my @cookies = map { s/^Set-Cookie3:\s*//; $_ }
    split "\n", $cookies->as_string;
my $cookie_jar = HTTP::CookieJar->new;
$cookie_jar->load_cookies(@cookies);
my $ua = HTTP::Tiny->new(cookie_jar => $cookie_jar);
[download]

Dear monks,

I'm trying to search for several regexes in some long files. To speed things up, I tried first checking a combined regex, to see if any of them matches the line. Like so:

my $comb=join('|',@ARGV);
while($line=<$infile>){
  if($line=~$comb){
    for $target(@ARGV){
      if($line=~$target){
        # do a thing
}}}}
[download]

This seems to speed things up, at least when the regexes are just plain words. But: If I try input regexes which are anchored ("^word"), then suddenly it's much slower! Is there some weirdness with alternations and anchors? Or did I make some obvious mistake?

(I could rewrite ^aaa|^bbb|^ccc as ^(aaa|bbb|ccc), but it might be that only some of the inputs are anchored.)