view release on metacpan or  search on metacpan

examples/v201309/basic_operations/get_keywords.pl  view on Meta::CPAN

    field => "AdGroupId",
    operator => "IN",
    values => [$ad_group_id]
  });
  my $criteria_type_predicate = Google::Ads::AdWords::v201309::Predicate->new({
    field => "CriteriaType",
    operator => "EQUALS",
    values => ["KEYWORD"]
  });
  my $paging = Google::Ads::AdWords::v201309::Paging->new({
    startIndex => 0,
    numberResults => PAGE_SIZE
  });
  my $selector = Google::Ads::AdWords::v201309::Selector->new({
    fields => ["Id", "AdGroupId", "KeywordText"],
    predicates => [$ad_group_id_predicate,$criteria_type_predicate],
    ordering => Google::Ads::AdWords::v201309::OrderBy->new({
      field => "AdGroupId",
      sortOrder => "ASCENDING"
    }),
    paging => $paging
  });

  # Paginate through results.
  my $page;
  do {
    # Get all ad group keywords.
    $page = $client->AdGroupCriterionService()->get({
      serviceSelector => $selector
    });

    # Display a page of keywords.
    if ($page->get_entries()) {
      foreach my $ad_group_criterion (@{$page->get_entries()}) {
        my $prefix = "Keyword";
        if ($ad_group_criterion->isa(
            "Google::Ads::AdWords::v201309::NegativeAdGroupCriterion")) {
          my $prefix = "Negative keyword";
        }
        printf "$prefix with ad group id \"%d\", keyword id \"%d\"," .
               " and text \"%s\" was found.\n",
               $ad_group_criterion->get_adGroupId(),
               $ad_group_criterion->get_criterion()->get_id(),
               $ad_group_criterion->get_criterion()->get_text();
      }
    }
    $paging->set_startIndex($paging->get_startIndex() + PAGE_SIZE);
  } while ($paging->get_startIndex() < $page->get_totalNumEntries());

  return 1;
}

# Don't run the example if the file is being included.
if (abs_path($0) ne abs_path(__FILE__)) {
  return 1;
}

# Log SOAP XML request, response and API errors.
Google::Ads::AdWords::Logging::enable_all_logging();

# Get AdWords Client, credentials will be read from ~/adwords.properties.
my $client = Google::Ads::AdWords::Client->new({version => "v201309"});

# By default examples are set to die on any server returned fault.
$client->set_die_on_faults(1);

# Call the example
get_keywords($client, $ad_group_id);