I am trying to replace <tags> in a document. I noticed something interesting: if I do 'more FOO.txt' I see: <93> abcde <94> if I view the same file with ptked or gedi, I see: \x{93} abcde \x{94} SOOO, is the 'more' filter correct or is the editor written in PERL correct? I want to convert the stupidness to plain ASCII(?) punctuation marks so the grammar is correct, it looks better, and I can search with a perl/ptk program I am writing. Has someone already written a program to do this? I have already figgered out how to convert the EOL chars to "/n" .

#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;

my $A = "1112"
#    . ''
;

@_ = ( 'a' .. 'i' );

$A =~ /1+
    (??{
        print "[$&]";
        $_ .= shift @_;
        s!\B!shift@_!e;
        print "\$_:[$_]";
        })
    $
    /x;
[download]

Latest change is I need to filter out some google-clutter -- but instead of doing that last as I was, I find spamassassin is finding one of their hosts "offensive" (in a black list), so I need to run the de-googer before running SA.

Before ran SA 1st, so the SA-client just read the msg from STDIN and I read SA's stamped version using an open of spamc with an output pipe that I read from.

Now, I have to read the incoming msg 1st, filter-it, then send it to SA(spamc), and then read spamc's "stamped" (w/the spamassassin markup) from the client. The fact that I need to write to the client and read from it at the same time has me needing at least 1 explicit pipe and a fork.

I might as well post the first bit of code here -- this is a mockup of the flow control to show my "algorithm". The mockup is a condensation of about 80 lines, which I can post if needed.

01   sub get_Spamc_msg($) {
02     my $de_cluttered_msg = shift;
03 
04     pipe $from_spamc, $spamc_out;
05 
06     if ( ($stat=fork()) == 0) { # child will write msg to spamc
07       close $from_spamc;        # parent will read from this
08       open(\*STDOUT, ">&", $spamc_out)
09       open (my $spamc_h , "|-", "$Spamc -u law")
10       print $spamc_h for @$de_cluttered_msg;
11       close($spamc_h)
12       exit 0;                   # exit child
13     } elsif ( $stat > 0 ) {     # this is parent
14       close $spamc_out;         # parent won't be writing to this
15     }
16     ...
17     my @lines=<$from_spamc>;    # expects array to catch. (chked on entry)
18     @lines
19   }
20   ...
21   @msg=get_Spamc_msg(\@filtered)
22 
23   die P("No message? USE_SPAMC=%s, message too small:  msg=@msg\n", 
24           $USE_SPAMC) if $#msg < 2;
25 ----
26 output: 
27 No message? USE_SPAMC=1, message too small:  msg=GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)GLOB(0xb1b940)...

So next I fork -- child closes the 'from_spamc' end of the pipe so only parent holds it. I then dup spamc_out into STDOUT. I originally had it without the '\*' - gave same output - so made no difference, but staring at the examples in perlfunc(open), that seems to be the right syntax for that.

Then I open a pipe for writing to spamc from the child, then print my decluttered msg in line 10 to the child, then close that file handle and then child exits.

Continuing in the parent, it closes the child side of the pipe so it only has the input handle from the pipe. From that input handle ($from_spamc), I grab the output into the "@lines" array and return that. Back in the main line at #21, @msg receives the output from the 'get_spamc_msg' sub, but I'm getting back a bunch of GLOB(0xb1b940) -- one for each line in the message. I.e. instead of the msg, I get GLOB'd. Indeed, Trying to look at @lines in 17-18 above, the parent is only seeing the globs as 1 line.

So I have some I/O criss-crossed, but it looks correct. I'm wondering if I'm really seeing the STDOUT from the spamc child or wondering if perl has played with the output of spamc in the open statement (ln#09).

Since I'm not certain if perl is playing with other than spamc's input handle, my next step is to move to another pipe and fork to do explicitly what perl should be doing in the "|-", $Spamc...

For fun, tried it with 'cat' instead of spamc -- got the same.

Anyone see what I'm doing wrong here? I mean it's not like its rocket science is it?...*sigh*

Thanks in advance...

I found from reading in perlop a suggestion to use chomp() to get rid of the extra newline at the end of my here-doc. For testing purposes I would like my test function to return exactly what the file contains. This is the first time I have noticed or cared about this so I thought I would share what I learned.

I'm working on my first module to upload to CPAN and I plan to put this function in a module in 't/lib'. Is there a nicer way to handle retrieving this? I could just make the function slurp the json file and return it. I've been looking at other modules but haven't found a good example yet. Thanks.

use warnings;
use strict;
use Test::More tests => 1;

print "-------\n";
print json_q();
print "-------\n";
print json_here();
print "-------\n";

is(json_q(), json_here(), "should be the same");

sub json_q {
q(      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
});

}

sub json_here {
    chomp(my $json = <<'END_JSON');
      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
}
END_JSON

$json
}
[download]

The output looks like:

1..1
-------
      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
}-------
      "Type": 0,
      "Width": 504,
      "X": 18,
      "Y": 18
    }
  ]
}-------
ok 1 - should be the same
[download]

Hello

I am trying to install on Windows 10, Strawberryperl v5.28.1, the module Text::Summarizer. I get the following - for my knowledge - strange error. Do you know what can I do to solve this issue?

cpanm Text::Summarizer
--> Working on Text::Summarizer
Fetching http://www.cpan.org/authors/id/F/FA/FAELIN/Text-Summarizer-2.
+01.tar.gz ... OK
Could not create directory 'C:\Users\TE\.cpanm\work\1610820965.16324\T
+ext-Summarizer-2.01\Corpus\written\newspaper:newswire' for 'Text-Summ
+arizer-2.01/Corpus/written/newspaper:newswire': mkdir C:\Users\TE\.cp
+anm\work\1610820965.16324\Text-Summarizer-2.01\Corpus\written\newspap
+er:.: Invalid argument; Die Syntax f³r den Dateinamen, Verzeichnisnam
+en oder die Datentrõgerbezeichnung ist falsch at C:/Strawberry/perl/l
+ib/Archive/Tar.pm line 819.
 at C:\Strawberry\perl\bin\cpanm.bat line 132.
Could not extract 'Text-Summarizer-2.01/Corpus/written/newspaper:newsw
+ire' at C:\Strawberry\perl\bin\cpanm.bat line 132.
==> Found dependencies: Module::Build
Found Module::Build 0.4231 which doesn't satisfy 2.01.
! Installing the dependencies failed: Installed version (0.4224) of Mo
+dule::Build is not in range '2.01'
! Bailing out the installation for Text-Summarizer-2.01.
[download]

We all know that "In list context, a regex match returns a list of captured substrings." And, we also know "Numeric quantifiers express the number of times an atom may match. {n} means that a match must occur exactly n times." So can the numeric quantifier work with the captured substrings?

perl -E '$s = q[AAD34017837201D98AAED18778DEF993]; 
say length($s), " ", $s;
@m = $s =~ /(....)(....)(....)(....)(.+)/; 
say "", join("-",@m);'
# 32 AAD34017837201D98AAED18778DEF993
# AAD3-4017-8372-01D9-8AAED18778DEF993
[download]

In contrast, the following regex uses a numeric quantifier but does not work as above:

perl -E '$s = q[AAD34017837201D98AAED18778DEF993]; 
say length($s), " ", $s;
@m = $s =~ /(....){4}(.+)/; 
say "", join("-",@m);'
# 32 AAD34017837201D98AAED18778DEF993
# 01D9-8AAED18778DEF993
[download]

So, is there a way to use capture groups to match multiple times like separate groups does in the first example?

I am working on a script whose logic is essentially as follows:

#!/usr/bin/perl -w
use strict;

use Tk;

my $status = 0;
my $prev_status = 0;

my $mw = MainWindow->new();
$mw->withdraw();

while (1)
{
    my $status = check_for_status();
    
    if ($status != $prev_status)
    {
        # need to notify user but don't wait for click
    
        $mw->messageBox(
            -title        => 'status changed',
            -message      => 'status changed',
            -type         => 'OK',
            -icon         => 'info',
        );    
    }
    
    $prev_status = $status;
}
[download]

I would like the window to display and also have the program keep executing, but currently the program waits for the user to click "OK". The windows are only intended to notify the user that the status variable has changed and no action is taken based on clicking OK to close the windows. I was not able to find a Tk window type that does not have some sort of dialog button that causes execution to wait for the user to click them.

I also considered somehow using fork() to spawn off each dialog window as a separate process, but exec() expects a system call. Is there an equivalent to exec() that accepts a block of perl code that I can use to spawn off each dialog window and have execution continue within the main loop? Status changes are relatively infrequent so I don't expect the computer to be swamped with open dialog boxes.

G'day All,

At $work, we're currently coding to Perl 5.16.0 as a minimum version: our clients are expected to have this version available to be able to run our software.

We are considering increasing that minimum version. Doing so has been agreed in principle. However, we're scratching our heads a bit, trying to determine what a practical new version might be.

By out-of-the box, I'm talking about what's available either as a new installation, or through standard updates through package managers. I'm not referring to what's possible by manual builds or using installation software (such as Perlbrew).

As an example, I've quite recently updated Cygwin, which gives me:

$ /usr/bin/perl -v | head -2 | tail -1
This is perl 5, version 30, subversion 3 (v5.30.3) built for x86_64-cy
+gwin-threads-multi
[download]

I have also installed a few Perl versions using Perlbrew:

$ perlbrew list
   perl-5.33.5
 * perl-5.32.0
   perl-5.30.0
[download]

So my answer to this question would be: "Cygwin: 5.30.3".

I added "lowest common denominator" because, in practical terms for the current exercise, it's more important to know "ABC Linux: 5.20.0" than "XYZ Linux: 5.32.0".

Your feedback on this would be very much appreciated. Thanks in advance.

Greetings wise brothers, I seek your advice on secret communication an how we can be sure we know who we are talking to.

Specifically, I am trying to get LWP::UserAgent running inside a locally compiled perlbrew install, to accept a corporate root cert.

At my company, IT have created a private SSL certificate keypair, and used it to sign the ssl certs on numerous internal servers. They also publish the public half of the SSL cert which (on ubuntu) I have installed in /etc/ssl/certs/ where it is accepted by system perl, firefox, wget etc.

For some reason the corporate public certificate is not accepted by a perlbrew install of perl 5.10 that I have compiled localy. Do I need to install the corporate root cert somewhere else for perlbrew to accept it?

Code to reproduce

use strict;
use warnings;

use XML::Simple;
use LWP::UserAgent;
use Data::Dumper;

my $url = "https://--- REDACTED ----";
my $parser = new XML::Simple;
my $ua = new LWP::UserAgent;

# $ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00);

my $req = new HTTP::Request('GET', $url);
my $resp = $ua->request($req);

# print "Result from fetching $url : " . Dumper($resp);

if( $resp->is_success() ){
    # print "Result content: ". $resp->content;
    
    eval{
        my $parsed_xml = $parser->XMLin($resp->content, ForceArray => 
+['publishedfile']);
    };
    if( $@ ){
        print "Error parsing XML: $@";
    }
    else
    {
        print "File downloaded and XML parsed OK"
    }
}
else
{
    die "Error fetching $url : ".$resp->message;
}
[download]

This code works fine using Ubuntu's system perl on all the versions of Ubuntu I could find. It also works if I uncomment the $ua->ssl_opts( verify_hostname => 0 ,SSL_verify_mode => 0x00); line, But it fails on line 35 with  Can't connect to REDACTED:443 (certificate verify failed) at scripts/dev/test_ssl_download.pl line 35. if I use perlbrew perl.

Any ideas?

NB: I asked this question in chatterbox about an hour ago, but did not get a reply, so I am re-posting as a perl question.