in reply to Getting values with help of curl

If you don't want to change the URL yourself, you could convert the curl invocation to Perl code (using, for example, curl2lwp, written by me):


#!perl
use strict;
use warnings;

use HTTP::Tiny;

my $ua  = HTTP::Tiny->new();
my $res = $ua->request(
    'GET' => 'https://url.../',
    {
        headers => {
            'Accept'        => '*/*',
            'User-Agent'    => 'curl/7.55.1',
            'Authorization' => 'Basic YWRtaW46cGFzc3dvcmQ='
        },

    },
);



__END__

Created from curl command line
curl -k --silent -u admin:password https://url...

[download]

Simply appending &active=true to the URL might also work.

Replies are listed 'Best First'.
Re^2: Getting values with help of curl
by PerlMonkey22 (Novice) on Sep 01, 2022 at 11:28 UTC

    Thanks! Is there any option to implement it just in the curl -s -k -u admin:pass https://url../GetDeviceInfo? So I can prompt it just with the console command?

[reply]

      I'm not sure what "it" is. If you simply want to change the URL, you can do that in the Perl code. But I'm not sure what your URLs are, or where the active=true part plays any role.

      I think it would help if you show us the two URLs you want and the behaviours you want. My current vague interpretation is that you want something like the following maybe:

      my $url = "https://url../GetDeviceInfo";

if( ... whatever condition ...) {
    $url .= "&active=true";
}

say "Requesting $url";
my $output = `curl -s -k -u admin:password "$url"`;

...

      [download]
[reply]
[d/l]
[select]

        I can get the values in Postman as followed: management/api/v2/GetDeviceInfo?active=false. And since im new in the company and to programming I got the task to write a script that does exactly the same but in perl. As a hint I got the info that you can do it with help of curl and $ARGV and the code posted above can be shortend acording to my coworker.

        #Edit, got the solution, saving here for the future monks: my $content = system ("curl -s -k -u admin:pass https://url/management/api/v2/GetDeviceInfo?$ARGV[0]"); Upon typing perl test.pl active=true, prints every true value.

[reply]

In Section Seekers of Perl Wisdom