Mail:Chimp3 Updating Groups/Interests

JEWebDes has asked for the wisdom of the Perl Monks concerning the following question:

According to the MailChimp API, it should be easy to update a subscribers groups/interests, but that's not been my experience. In my code below, the subscriber is not added to the Group with groupid1, but is removed from the Group with groupid2. Why wasn't the subscriber added to Group groupid1? Makes no sense.

my %groups = (
    'GroupID1' => true,
    'GroupID2' => false
);
$email_address = lc('member_email');
$subscriber_hash = md5_hex( $email_address );
my $response = $mailchimp->update_member (
    list_id  => 'listid',
    subscriber_hash => $subscriber_hash,
    interests => \%groups
);
[download]

Comment on Mail:Chimp3 Updating Groups/Interests Download Code

Replies are listed 'Best First'.
Re: Mail:Chimp3 Updating Groups/Interests by tangent (Parson) on Jan 31, 2020 at 01:52 UTC
It looks like you are not using 'use strict' in your script, if you did you would get errors as 'true' and 'false' have no special meaning in Perl: `use strict; use warnings; my %groups = ( 'GroupID1' => true, 'GroupID2' => false );` [download] Errors: `Bareword "true" not allowed while "strict subs" in use Bareword "false" not allowed while "strict subs" in use` [download] Your hash will be turned into a JSON structure before it is sent to MailChimp, and the way to represent JSON true and false in a Perl hash is: `my %groups = ( 'GroupID1' => \1, 'GroupID2' => \0 );` [download] Maybe try that and see.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Mail:Chimp3 Updating Groups/Interests
by tangent (Parson) on Jan 31, 2020 at 01:52 UTC

use strict;
use warnings;
my %groups = (
    'GroupID1' => true,
    'GroupID2' => false
);
[download]

Bareword "true" not allowed while "strict subs" in use
Bareword "false" not allowed while "strict subs" in use
[download]

my %groups = (
    'GroupID1' => \1,
    'GroupID2' => \0
);
[download]

[reply]
[d/l]
[select]