SOLVED I found a typing error in the reference to the hash with the URL.

And the typo was? I bet on

- $snapshot-> url( "IPCamera{$key}");
+ $snapshot-> url( "$IPCamera{$key}");
[download]

BTW there's no need to put that into double quotes, or is there? if you had written

$snapshot-> url( IPCamera{$key});
[download]

the compiler would have catched that error.

Yes, because it was in double quotes, so it was a valid string. You don't need the quote though, $snapshot->url( $IPCamera{$key} ); does pretty much the same thing. One difference is that if you forget the $ outside of a string, it is not valid code anymore. The double quotes also mean that perl turns $IPCamera{$key} into a string before using it as a parameter for url(). But I'm pretty sure that your url already is a string to begin with, so stringifying it is not necessary.

Your question garnered very few replies which is often an indication that it wasn't well constructed. In this case using a literal string instead of the hash value would not only have made it clearer for us, but you'd actually have discovered the error an hour ago before you even submitted the question. A virtue of Perl Monks that has nothing to do with the community is that well asked questions often provide their own answer. :-)

Hello Yes, it wasn't a good night for troubleshooting code. I have incorporated your suggestions and fixed the code.
I used a hash because I have a couple of switches and args that determine which camera is being used and where the files should go.

Moving onto my next problem. I want to call a subroutine ImageNotDark. I want to pass an Image::Magick object ($pic).
By design, the object is not changed inside the subroutine. My problem is that I am not passing the image object correctly.


# Convert to Image::Maggick image
my $pic = Image::Magick->new(magick=>'jpg');  #   create new image obj
+ect
$pic->BlobToImage($img);  #convert the grabbed blob image to Image::Ma
+gick object

## test point A

#pass the $pic object to the subroutine and measure image darkness.
my $test = ImageNotDark ($pic);  #
[download]

The code snippet at the start of the subroutine is as follows:

sub ImageNotDark  {
# Argument is one reference to an image object.
# ImageNotDark compares the image with a blank black canvas.  If the c
+omparison is
# above the defined threshold, the image is bright enough to send (not
+ dark).
# the return value is true if the images is bright enough.

    my $iutImage = Image::Magick->new;  #the image tested for darkness
    $iutImage->Read(@_);  # get the image under test (iut)
[download]

So the debugger shows that $iutImage is not initialised. At test point A, I temporarily added code to save the $pic image to a file.
I was able to confirm that $pic holds a valid image. So I am reasonably certain the problem is the way I call the subroutine and attempt to pass the image. Any tips would be much appreciated.

Moving onto my next problem.

As this question is unrelated to the rest of the thread, it'd have been better to post it in a new thread.

You don't need to construct a new Image::Magick over the argument passed to the subroutine. The normal way to handle arguments is (see perlsub):

sub ImageNotDark {
  my ($iutImage,$arg2,$arg3,...) = @_;
  # --OR--
  my $iutImage = shift;
  my $arg2 = shift;
  ...
[download]

Or, if your intention were to work with a copy of the image in the subroutine, you could simply do my $imgCopy = $_[0]->Clone(); inside the subroutine.

Hi, just a thought. Shouldn't

 $iutImage->Read(@_);  # get the image under test (iut)
[download]

be

my $x = $iutImage->ReadImage($_[0]);
warn "$x" if "$x";
[download]

Also, you can try passing \$pic to pass the object by reference.

---

I'm not really a human, but I play one on earth. ..... an animated JAPH