Open Zoom (or whatever video conference) URL in the current calendar event with gcalcli (https://github.com/insanum/gcalcli)

zoom.pl

#!/usr/bin/env perl                                                                                                         
use strict;

my $calendar = 'your-calendar@example.com';
my $regex = qr!https?://\w+\.zoom\.us/j/\d+(?:\?pwd=[\w\-_]+)?!; # change to your conference software                       

my $now = localtime();
my $end = localtime(time + 3600);

my $cal = `gcalcli --refresh --calendar=$calendar agenda --nodeclined "$now" "$end" --details all --tsv`;

for my $event (split /\n/, $cal) {
    my @data = split /\t/, $event;

    if ($event =~ /($regex)/) {
        print "$data[8]\n"; # title                                                                                         
        warn "Opening $1\n";
        system "open", $1;
        exit;
    }
}

print "No event or Zoom URL found.\n";