tinder_extract.pl

#!/usr/bin/env perl
use 5.026;
use warnings;

use List::Util qw(uniq);
use JSON;

# Extracts the likes, passes and matches from the Tinder JSON data, outputting it in CSV instead.
# To run it, go to https://tio.run/#perl5, paste in this code in the "Code" box, the content of your JSON file in the "Input" box, and click run.
# The output is then a semicolon-separated CSV you can import into Excel, Google Sheets or similar.

my $stdin = do { local $/; <STDIN> };
my $input = JSON::decode_json($stdin);

my @keys = qw(swipes_likes swipes_passes matches);

my @dates = sort { $a cmp $b } uniq( map { keys $input->{Usage}->{$_}->%* } @keys );

say join(";", 'date', @keys);
for my $date (@dates) {
    say join(";", $date, map { $input->{Usage}->{$_}->{$date} } @keys);
}