while(<>){
        chomp;
        my @s = split /\t/,$_;
        my $r_name = $s[0];
        my $seq = $s[9];
        push @{$read2seq{$r_name}}, substr($seq,0,12);
}
[download]

Hello, I have a form that I need to pre-populate with the previous responses made from that form. I was going to pre-populate the HTML Form with JSON data using jquery and then pass to a CGI to save the results to a JSON file, but Chrome is now blocking external files like this, even though everything is on the same local server.

So now I am doing this with CGI to load the JSON values and output the HTML with the form data pre-populated.

So can I submit the form data to the same CGI Perl script? Or do I need to have one CGI for the HTML Form, and another CGI to process the form and save to the JSON file?

I see lots of examples of posting form data from HTML to a CGI to process, and I have done this before. I am not finding any examples of how to bring the data into the same CGI script from the outputted HTML.

I am probably missing something simple, but if the only way to do it is with 2 CGI scripts, that will work as well.

Thank you.

Original content restored above by GrandFather

PerlMonks admins, please remove. Unfortunately people here think every question is stupid, and no longer wish to help other people like they used to do. They only want to downvote questions from people trying to learn and ask for help when something is confusing, instead of trying to help them.

I will look for help elsewhere.

Thank you.

Basically I have an XML

<root>
  <ref name="abc_sia_%version1.ref%">
    <func envname = "test01" objectdir = "/home/pv66" 
     base="default_771"/>
  </ref>
</root>
[download]

my $xml = new XML::Simple;
my $data = $xml->XMLin("/home/pv66", ForceArray => 1, KeyAttr => { ref
+ => "name"});
print Dumper ($data);
[download]

$VAR1 = {
         'ref' => 
{
 'abc_sia_%version1.ref' => 
{
 'func' => [
            {
             'envname' => 'test01',
             'objectdir' => '/home/pv66',
             'base' => 'default_771'
            }
           ]       
}                  
};
[download]

$VAR1 = {

 'abc_sia_%version1.ref' => 
{
 'func' => [
            {
             'envname' => 'test01',
             'objectdir' => '/home/pv66',
             'base' => 'default_771'
            }
           ]       
}                  
};
[download]

This option instructs the compiler to assume that signed arithmetic ov
+erflow of addition, subtraction and multiplication wraps around using
+ twos-complement representation.
[download]

This option generates traps for signed overflow on addition, subtracti
+on, multiplication operations.
[download]

As part of connecting to LinkedIn using LWP::Authen::OAuth2, I have decided to write a sub-class of LWP::Authen::OAuth2::ServiceProvider which is designed to be sub-classed for exactly this kind of application. This way, it will hopefully be useful to other people.

However, I need to override a method which has not been designed to be overridden! The LinkedIn API doesn't comply with the OAuth2 spec. The token_type parameter is mandatory but missing. Therefore, I am trying to inject it into the response from LinkedIn by sub-classing the method, adding the missing parameter and then calling the method in the super class. But I am not managing to get the injection to work.

Here is the sub in LWP::Authen::OAuth2::ServiceProvider that I am overridding:

This is my sub that overrides the above...

sub construct_tokens {
    my ($self, $oauth2, $response) = @_;
    
    my $content = eval {$response->decoded_content};
    eval {decode_json($content)};
    $response->push_header( 'token_type', 'Bearer' ) unless $@;
    
    $self->SUPER::construct_tokens($oauth2, $response);
}
[download]

Is there a good way to to inject this parameter or am I approaching this in the wrong way?

I'm planning a little module ( an interactive cli using Term::ReadLine ) but I want make possible for the module user to add some method in the constructor, no Moo* usage is planned so I'd like to see basic perl approaches. At the moment I have soemthing like:

sub new{
        my $class = shift;    
        my %opts = @_;    
        unless ( defined $opts{dumper} ){
                require Data::Dumper;
                # + () to avoid Name "Data::Dumper::Dumper" used only 
+once: possible typo at
                # full qualified name to avoid runtime error
                $opts{dumper} = sub{ print +Data::Dumper::Dumper(\$_[0
+]) }        
        }
        return bless { %opts }, $class;       
}
[download]

dynamic method creation

I can build up a method dynamically with *{"${class}::${meth}"} = sub { my $self = shift; ... } I imagine I can do this directly in the new constructor, right? There are drawbacks or pitfall I overlooked in this approach?

dispatch table

The above code for new adds not a method but a property of the object actually being a callable sub: after I can access it like in  $obj->{dumper}->([1,2,{a=>42}])

I can expand this providing to the module user a method to add commends: use Data::Dump; $obj->add_command( {descr=>'a dumper', command => sub{ dd $_[0] } )

This seems to me a simpler approach and I cant imagine drawbacks using it. The only one I can imagine is that not being a method I cannot have $self available inside this calls (even if I dont know atm if will be needed).

pseudo methods?

But I can craft execute_command to pass $self as first argument:

sub execute_command{
   my $self = shift;
   my $wanted_command = shift;
   my @whole_data = @_;
   
   $self->{ $wanted_command }->( $self, @whole_data );
}
[download]

This leads to something like a pseudo method; is this too dirty? Has other drawbacks? Do you expulse me from perlmonks if I write it down? :)

In addition: if new will be as above in the final module, should I add Data::Dumper to prerequisites? I'd say yes but... if not Data::Dumper but Math::Mersenne::Primes was the case? I must add it to prerequisites even if there is the chance it will be never loaded?

L*

Learned friends,

I am attempting to convert my Starman log to structured JSON to match the app logs, and to add a request ID to all the log entries starting with the Starman log.

I have both of these things working separately but they are not playing nicely with each other. I used Plack::Middleware::AccessLog::Structured for the log, and as advertised I get nice single-line JSON in my access_log. I also used Plack::Middleware::RequestId to generate the request ID, and this too is working, in the sense that in the application code, the value is present in the Plack env.

However, the initial log entry from Starman cannot read the request ID from the env, and I suspect it's because it's in the same builder block. I have tried pushing the value to an HTTP header and the regular ENV as well as the Plack env, and all attempts have the same outcome: the value is null in the log for the Starman entry and present for the app log entries. Here's my app.psgi:

use Meta::Portal;

use Plack::Builder;
use Plack::Middleware::AccessLog::Structured;
use Plack::Middleware::RequestId;
use Data::GUID;

my $app = Meta::Portal->to_app;

builder {
    enable 'RequestId', id_generator => sub {
        Data::GUID->new->as_string;
    };

    enable 'AccessLog::Structured', callback => sub {
        my ($env, $message) = @_;
        #use Data::Dumper;
        #warn Dumper $env;
        $message->{date} = Time::Moment->from_epoch( delete $message->
+{epochtime} )->strftime('%F %T%6f');
        $message->{tracking_id} //= $env{'psgix.request_id'};
        return $message;
    };

    $app;
};
[download]

Thanks for any help!

Learned friends,

The doc for Plack::Middleware::AccessLog states This middleware is enabled by default when you run plackup as a default development environment.

I am wanting to run another middleware for logging and thus wish to disable the default. Can anyone tell how?

Thanks!

Below is code snippet where i am reading a log file and grepping the failed testcase, then if the failed testcase is also mentioned in the reference file (/icd/eps2/kaakash_p4/readSyntechScript/failedTest) then need to ignore testcase. But, i want to modify this code for more than 1 testcase, kindly help as i am new to perl

Note: utils commands are in-house package, please ignore

my $results = '';
    my $cmd = "ls /icd/eps2/kaakash_p4/readSyntechScript/testsuites_re
+port* | tail -1";
    utils::execCommand(Command => $cmd, Results => \$results);
    chomp($results);
    my @reportContents = utils::getFileContents("$results");
    my ($failedTest) = grep { /FAIL/ } @reportContents;
    $failedTest =~ /\|\s+(\w+)/g;
    my $failedTestsuite= $1;
    chomp ($failedTestsuite);
    print "Failed Testsuite = $failedTestsuite\n";

    my $ignoreTestFile = "/icd/eps2/kaakash_p4/readSyntechScript/faile
+dTest";
    my @ignoreContents = utils::getFileContents("$ignoreTestFile");
    my $referenceFailedTest = $ignoreContents[0];
    chomp($referenceFailedTest);
    print "Reference Failed Testsuite = $referenceFailedTest\n";

    if ("$failedTestsuite" eq "$referenceFailedTest") {
      print "ignore testcase";
    }
[download]

2021-04-18 Retitled by Discipulus, as per Monastery guidelines

I've uploaded Business::Stripe::WebCheckout to CPAN as a developer release. Release 1 failed when Stripe couldn't be contacted. Release 2 has cured this problem and, so far, all the CPAN Testers reports have passed 😊

However, Windows doesn't have gzip. So in Makefile.PL I have this line to use IO::Compress::Gzip which is included with Strawberry Perl:

dist  => { COMPRESS => q{perl -MIO::Compress::Gzip=gzip,:constants -e"
+my $$in = $$ARGV[0]; gzip($$in => qq($$in.gz), q(Level) => Z_BEST_COM
+PRESSION, q(BinModeIn) => 1) or die q(gzip failed); unlink $$in;"}, S
+UFFIX => 'gz', },
[download]

Does this need changing in the release?
My best guess is that it is OK as it is only used when building the distribution, not when installing it but I wanted to check this is correct.