<commit_before>#!/usr/bin/perl

use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use PubNub::PubSub;

#  s.send('GET /publish/pub-c-5afaf11d-aa91-4a40-b0d2-77961fb3a258/sub-c-0cd3a376-28ac-11e4-95a7-02ee2ddab7fe/0/HyperLogLogDemo1/0/"'+str(id[random.randrange(0, numID-1)])+'" HTTP/1.1\r\nHost: pubsub.pubnub.com\r\n\r\n')
my $pubnub = PubNub::PubSub->new(
    pub_key => '<KEY>',
    sub_key => 'sub-c-0cd3a376-28ac-11e4-95a7-02ee2ddab7fe',
    channel => 'HyperLogLogDemo1',
    callback => sub {
        my ($res, $req) = @_;
        print "=" x 20 . "\n";
        print "REQ: $req" . "\n";
        print "=" x 20 . "\n";
        print "RES: $res" . "\n";
        print "=" x 20 . "\n";
    }
);

$pubnub->send('message1', 'message2');

1;<commit_msg>not sure if it works<commit_after>#!/usr/bin/perl

use strict;
use warnings;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use PubNub::PubSub;

#  s.send('GET /publish/pub-c-5afaf11d-aa91-4a40-b0d2-77961fb3a258/sub-c-0cd3a376-28ac-11e4-95a7-02ee2ddab7fe/0/HyperLogLogDemo1/0/"'+str(id[random.randrange(0, numID-1)])+'" HTTP/1.1\r\nHost: pubsub.pubnub.com\r\n\r\n')
my $pubnub = PubNub::PubSub->new(
    pub_key => '<KEY>',
    sub_key => 'sub-c-0cd3a376-28ac-11e4-95a7-02ee2ddab7fe',
    channel => 'HyperLogLogDemo1',
    callback => sub {
        my ($res, $req) = @_;
        print "=" x 20 . "\n";
        print "REQ: $req" . "\n";
        print "=" x 20 . "\n";
        print "RES: $res" . "\n";
        print "=" x 20 . "\n";
    }
);

my @messages;
foreach (1 .. 50) {
    push @messages, "message" . int(rand(10000));
}
$pubnub->send(@messages);

1;
{'fraction_non_alphanumeric': 0.22181372549019607, 'fraction_numerical': 0.08946078431372549, 'mean_word_length': 2.762672811059908, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 17, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6225950', 'n_tokens_mistral': 809, 'n_tokens_neox': 739, 'n_words': 121}