Hi,

To get folding in Emacs 25 for Perl programs I have cargo-cult-copied the outline-based set-up https://github.com/villadora/emacs-config/blob/master/modes.el.

In particular I have:

  ;; CPerl mode hook
  (setq cperl-mode-hook 'my-cperl-customizations)

  (defun my-cperl-customizations ()
    "cperl-mode customizations that must be done after cperl-mode load
+s"
    (outline-minor-mode)
    (abbrev-mode)
    (defun cperl-outline-level ()
      (looking-at outline-regexp)
      (let ((match (match-string 1)))
        (cond
         ((eq match "=head1" ) 1)
         ((eq match "package") 2)
         ((eq match "=head2" ) 3)
         ((eq match "=item"  ) 4)
         ((eq match "sub"    ) 5)
         (t 7)
         )))
    (setq cperl-outline-regexp  my-cperl-outline-regexp)
    (setq outline-regexp        cperl-outline-regexp)
    (setq outline-level        'cperl-outline-level)
    )
[download]

My expectation was that if I have

  =head2 STUFF
  =over
  =item foo
  Do foo
  =cut
  sub foo {
    return 'foo';
  }
[download]

I should be able to fold to

  =head2 STUFF...
[download]

but instead I just can only fold to, say

  =head2 STUFF...
  =item foo
  Do foo
  =cut
  sub foo {
    return 'foo';
  }
[download]

i.e. the hierarchy, which I thought gets defined by 'outline-level' doesn't seem to work.

I do have

  (add-hook 'outline-minor-mode-hook 'outshine-hook-function)
[download]

to get tab-cycling, but maybe this is screwing things up.

Any thoughts or other approaches?

Thanks,

loris

Note: This is something I originally posted, somewhat spuriously, to the Orgmode mailing list several weeks ago. Not that surprisingly, I got no reply.

perl -MExtUtils::Installed -le 'print join "\n", grep /lwp/i, ExtUtils::Installed->modules()'

LWP::ConsoleLogger
LWP::MediaTypes
LWP::Protocol::http::SocketUnixAlt
LWP::Protocol::https
Test::LWP::UserAgent

perl -MExtUtils::Installed -le 'print join "\n", grep /libwww/i, ExtUtils::Installed->modules()'

libwww::perl

perl -MExtUtils::Installed -le 'print join "\n", ExtUtils::Installed->files("libwww::perl")'

/perl-5.26.2/lib/site_perl/5.26.2/LWP.pm
43 more files...

perl -MModule::Metadata -MData::Dumper -le' print(Dumper(Module::Metadata->new_from_module("libwww::perl")))'

$VAR1 = undef;

perl -MModule::Metadata -MData::Dumper -le' print(Dumper(Module::Metadata->new_from_module("LWP")))'

$VAR1 = bless( {
                 'filename' => '/perl-5.26.2/lib/site_perl/5.26.2/LWP.pm',
                 'module' => 'LWP',

perl -MExtUtils::Installed -le 'print join "\n", ExtUtils::Installed->files("LWP")'

LWP is not installed at -e line 1.

As a new contributor to CPAN with the confusion of how to create a distribution still relatively fresh in my mind, I'd like to start a series of tutorials to help new cpan contributors make sense of Dist::Zilla. I think that the existing documentation for Dist::Zilla isn't really geared toward new module developers and generally assumes a basic familiarity with how to create module distributions without it. This is too bad because as confusing as it was for me to figure it out, I credit Dist::Zilla with saving me from a lot of the tedious work involved in module creation and it helped me create higher quality modules than I would have created without it. So my goal is to do what I can to help beginner perl module distributors to try to help them avoid the pain I experienced in putting Dist::Zilla to good use.

I'm looking for feedback for my first tutorial in this series: "A 30,000 Foot View of Dist::Zilla and Software Distributions". If you can spare a few minutes to read it over and offer feedback, I'd appreciate it. Thanks!

• My sqld is up and running
• I can connect to it just fine with a mysql client and PHPMyAdmin and select, update etc
• However when I try to connect to it with DBD::mysql I get "bad handshake" in DBI->errstr()

What kind of things can I check on? How can I debug this?

Dancer2::Plugin::Database and database errors

I have written an number of Dancer/Dancer2 applications, and really like using this framework. This time I decided to try out the Danver2::Plugin::Database. It certainly has made some things significantly easier, so I'm basically happy with the decision. But the problem I have is when there is an error, I have no idea what the error is. I'm doing a quick_select on a (SQLite) table that worked before. I made changes to the table structure and such, and now when I try to do the quick_select, it returns an error -- but I cannot figure out what the error is.

This same database connection will do the quick_insert, so I'm pretty sure it isn't a database missing or database corrupt or whatever. So I'm lost.

The (fairly limited) documentation states it is a subclass of DBI, so I tried using the ->err and ->errstr methods, neither one worked. The actual code I am using to get the info is:

        my $delstatus = 'checking for: [' . $data->{'host_name'} .
            '][' . $data->{'service_description'} . '] for last output
+ entry.';
        my @last_records = database('current')->quick_select('states',
            {
                host_name => $data->{'host_name'},
                name => $data->{'service_description'}
                },
            { order_by => { desc => 'id' } }
            ) or $delstatus .= '/error from quick_select call;' .
                ' ERR [' . database('current')->err . '];' .
                ' ERRSTR [' . database('current')->errstr . ']';
        $delstatus .= '/found [' . (scalar @last_records) . '] to dele
+te';
        debug("QUICK SELECT STATUS: --=> $delstatus <=--");
[download]

And a sample response I am getting is:

Use of uninitialized value in concatenation (.) or string at /home/svc
+anagios/n2s/bin/../lib/NagiosToServiceNow/json.pm line 699.
Use of uninitialized value in concatenation (.) or string at /home/svc
+anagios/n2s/bin/../lib/NagiosToServiceNow/json.pm line 699.[NagiosToS
+erviceNow::json:51461] debug @2018-09-22 15:41:00> QUICK SELECT STATU
+S: --=> checking for: [targethostname][targetchecktext] for last outp
+ut entry./error from quick_select call; ERR []; ERRSTR []/found [0] t
+o delete <=-- in /home/svcanagios/n2s/bin/../lib/NagiosToServiceNow/j
+son.pm l. 709
[download]

So I know the two calls are not right. But also, a select from the command line for this particular check showed a count of 11 items. This pass made it 12 (the write is right after this block).

I cannot imagine this module has been around this long with nobody else needing to get the error message(s) from the database, so I am certain it is there and avaiable; I'm just not finding it documented anywhere.

So if you have the answer, I'll promise to pass good vibes about you into the universe for at least the next month... :D

Imagine I have a base package (SomePackage.pm) that performs a number of functions against a website with a restful interface. That package is written in a perl OO way, with a new() constructor. Another script (caller.pl) will be the user of this package.

That said, I have a number of other sub modules in the base package: SomePackage::Auth.pm, SomePackage::Client.pm, SomePackage::Tickets.pm, etc.

Auth provides the methods to handle authentication to a given site. Client provides a LWP::UserAgent and any methods around certain functions the website offers. Tickets provides methods to create/modify/manage tickets on the site.

The goal I have here is that in the caller.pl, I instantiate the base package SomePackage->new; That sets up the base as well as setting up internal members to be a client (via SomePackage::Client) and ticket (via SomePackage::Ticket). It also has a method wrapper around SomePackage::Ticket's createTicket method:

package SomePackage;
use strict; use warnings;
use SomePackage::Auth;
use SomePackage::Client;
use SomePackage::Ticket; 

sub new {
    my $class = shift;
    my $self = {};
   
    SomePackage::Auth->getCredentials;
    $self->{client} = SomePackage::Client->new;
    $self->{ticket} = SomePackage::Ticket->new;

    bless $self, $class;

    return $self;
}

sub createTicket {
    my $self = shift;
    my $class = shift;
    my $project = shift;

   return  $self->{ticket}->createTicket($self, $project);
} 
[download]

Now, in caller.pl, I do something like

my $packObj = SomePackage->new;
$packObj->createTicket($project);
[download]

On running caller.pl, I get use of unitialized value in subroutine entry. What is the proper way to structure classes/objects such that makes passing internal attributes/objects around painless? Am I going about this wrong way?

i want to open file and insert it into dir with new filename

my $NFILE = "09911"; #NEW FILE NAME
my $FILE = '02190.JPG'; #FILE TO OPEN 
my $openfile = open(DATA, ">$FILE"); #OPEN FILE
my $newfile = rename($openfile, $NFILE); #RENAME FILE FROM 02190.JPG T
+O 09911.JPG
my $writefile = open(DATA,">>", "img/$newfile"); #INSERT THE FILE IN I
+MG DIR WITH NEW NAME 09911.JPG
close DATA;
[download]

Hello monks

I am playing with Text::Fuzzy in order to match and replace strings in a text file with a fuzzy logic (I need to take account in my matching of inflected words, such as sing/plural, etc.). The function that seems most promising is:

my ($offset, $edits, $distance) = fuzzy_index ($needle, $haystack);
[download]

Once I have the offset of a fuzzy much I can apply:

my $needleLenght=length ($needle);
substr($haystack, $offset, $needleLenght) = "my new value";
[download]

However, the module's documentation states that the value returned is the offset of the closest match found. However, I need to find ALL offsets of my $needle in $haystack. Do you know any module that achive this? Or any trick to have it with this module?