Perl always passes by reference. It’s just that sometimes the caller passes temporary scalars. The first thing you have to realise is that the arguments of subs can be one and only one thing: a list of scalars.* One cannot pass arrays or hashes to them. Arrays and hashes are evaluated, returning a list of … Read more
This is a property of the statement handle. You should be able to access the ID like that: $sth->{mysql_insertid}
Your code seems to be missing some significant chunks, so let’s add in the missing bits (I’ll make some assumptions here) and fix things as we go. Add missing boilerplate. #!/usr/bin/perl use strict; use warnings; use JSON; my $name = “test”; my $type = “A”; my $data = “1.1.1.1”; my $ttl = 84600; Make the … Read more
Please see the answer regarding openhandle() from Scalar::Util. The answer I originally wrote here was once the best we could do, but it’s now badly outdated.
The => operator in perl is basically the same as comma. The only difference is that if there’s an unquoted word on the left, it’s treated like a quoted word. So you could have written Martin => 28 which would be the same as ‘Martin’, 28. You can make a hash from any even-length list, … Read more
The downside of the “if” solution is that the commented out code still has to be compiled (and therefore still has to be syntax checked). The downside of your pod solution is that your comments will appear in any documentation generated from the pod. I use a version of the pod solution that doesn’t have … Read more
my $arr_ref = [qw(Field3 Field1 Field2 Field5 Field4)]; my ($last_arr_index, $next_arr_index); If you need to know the actual index of last element, for example you need to loop over the array’s elements knowing the index, use $#$: $last_arr_index = $#{ $arr_ref }; $last_arr_index = $#$arr_ref; # No need for {} for single identifier If you … Read more
On Linux Mint I had to type $ sudo apt-get install libswitch-perl
/”(?:[^\\”]|\\.)*”/ This is almost the same as Cal’s answer, but has the advantage of matching strings containing escape codes such as \n. The ?: characters are there to prevent the contained expression being saved as a backreference, but they can be removed. NOTE: as pointed out by Louis Semprini, this is limited to 32kb texts … Read more
You could wrap it in an eval. See: perldoc -f eval For instance, you could write: # warn if routine calls die eval { routine_might_die }; warn $@ if $@; This will turn the fatal error into a warning, which is more or less what you suggested. If die is called, $@ contains the string … Read more