Skip to content

Instantly share code, notes, and snippets.

View perlpunk's full-sized avatar

Tina Müller (tinita) perlpunk

155 followers · 53 following
View GitHub Profile
@perlpunk
perlpunk / 10_susedistribution.pl
Created October 11, 2022 10:04
#!/usr/bin/perl
# Copyright @ SUSE LLC
# SPDX-License-Identifier: GPL-2.0-or-later
use Test::Most;
use testapi;
use Test::MockModule;
use Test::MockObject;
subtest 'handle_password_prompt' => sub {
@perlpunk
perlpunk / lastfm-user-toptracks-tags.pl
Last active August 29, 2015 14:27 — forked from hoehrmann/lastfm-user-toptracks-tags.pl
For a given last.fm user, retrieves all their top tracks, and for each track, all tags for the track, and then prints out the 7 most-used tags for each track.
#!/usr/bin/env perl -w
use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use URI;
use URI::QueryParam;
my $ua = LWP::UserAgent->new;