Re: Help with REST API interaction.

2020-04-24 Thread Gil Magno
Hi Francisco, 2020-04-22 11:21:31 -0300 Francisco Acuña: > Good day, I've been getting familiarized with Perl for the last couple of > days due to a RT integration project I've been handed. I've also been doing > a lot of research and a lot of asking around in forums for pointers on how > to prope

Re: Help with REST API interaction.

2020-04-24 Thread Gil Magno
Correction: we should use $res->is_success in the 'if' below, not $ua->is_success. 2020-04-24 19:42:32 -0300 Gil Magno: > if ($ua->is_success) { signature.asc Description: PGP signature

Re: Unfamiliar syntax

2018-07-20 Thread Gil Magno
2018-07-20 16:04:11 +0100 James Kerwin: > Afternoon all, > > I have been asked to take a look at a .pl file which is part of a set-up > called "EPrints". The particular file controls who can access documents on > a server. > > Excluding some comments, the file starts like: > > $c->{can_request_v

Re: help with another regex

2018-07-17 Thread Gil Magno
2018-07-17 19:56:59 +0800 Lauren C.: > Hello, > > I want to match: > > /path/ > /path/123 > /path/abc > > but /path/?xxx should not be matched. > > This works: > > $ perl -le '$x="/path/abc"; print 1 if $x=~m{path/\w+}' > 1 > > > this works too: > > $ perl -le '$x="/path/?abc"; print 1 if

Re: help with a stat script

2018-07-12 Thread Gil Magno
2018-07-12 20:50:22 +0800 Lauren C.: > thanks for the kind helps. > do you know what the expression in { } stands for? > > ^(\S+) - - \[(\S+).*\] \"GET (.*?/)\s+ Hi, Lauren This is quickly explained in http://perldoc.perl.org/perlrequick.html#Using-character-classes \s (lowercase) stands for a

Re: help with a stat script

2018-07-12 Thread Gil Magno
2018-07-12 19:35:14 +0800 Lauren C.: > Hello, > > My web is powered by Apache and PHP,its access log seems as blow, > > xx.xx.xx.xx - - [12/Jul/2018:19:29:43 +0800] "GET > /2018/07/06/antique-internet/ HTTP/1.1" 200 5489 "https://miscnote.net/"; > "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_12_6)

Re: alternative to feature 'signatures'?

2017-11-22 Thread Gil Magno
On 19/11/17 13:57, hw wrote: > without being able to use feature 'signatures', how do I verify > that parameters passed to a function have been passed to it by > the caller? https://metacpan.org/pod/signatures https://metacpan.org/pod/signatures#SEE-ALSO https://metacpan.org/pod/Sub::Signatures

Re: alternative to feature 'signatures'?

2017-11-19 Thread Gil Magno
On 19/11/17 13:57, hw wrote: > without being able to use feature 'signatures', how do I verify > that parameters passed to a function have been passed to it by > the caller? If you're dealing with positional parameters[1] (and not with named ones) you can check for the size of @_ inside your funct

Re: alternative to feature 'signatures'?

2017-11-19 Thread Gil Magno
On 19/11/17 15:40, Gil Magno wrote: > $num_of_params = scalar @_; Complementing... In order to get the number of params, you could do $num_of_params = @_; without using "scalar @_", because this assignment is already in scalar context. But if you're in list context, you h

Re: Converting string to float

2017-03-02 Thread Gil Magno
On Thu, Mar 02, 2017 at 04:50:32PM +, mailing lists via beginners wrote: > > > just to clarify, the real purpose of the script is output the hash to a json > object, so the json output for the script: So you have to "numify" your number: https://metacpan.org/pod/JSON::PP#PERL-%3E-JSON >

Re: Understanding list and scalar context

2016-09-18 Thread Gil Magno
Hi Khalil 'say' creates list context. So if 'say' receives the list ('one', 'cd', 'qw') it will print 'abcdqw'. 'reverse' creates list context. So if 'reverse' receives the list ('ab', 'cd', 'qw') it will return a list with the same elements, but with its order inverted ('qw', 'bc', 'ab'). The c

Re: calculate within a loop

2016-09-09 Thread Gil Magno
Hi, Nathalie You could try the attached code. Best gil On 09/09/16 12:54, Nathalie Conte wrote: > Hello, > I have a question about making a calculation within a loop > > I have a hash of hashes > ## > #!/usr/bin/perl > use strict; > use warnings; > > use Data::Dumper qw(Dumper);