jbarrett

#!/usr/bin/env perl

# usage:
#   ./wavsplitter.pl [--channels=number of channels in output] [--sox=path to sox] file-list
#
#   Back up your files before use, provided as-is, no warranty etc.

use strict;
use warnings;
use experimental qw/ signatures /;

jbarrett

die "This code should not be used, ever!" unless $ENV{MULTIMETHOD_DEATHWISH};
package Multimethod;

use v5.38;
use experimental qw/ try /;
use List::Util qw/ uniq /;
use List::MoreUtils qw/ each_array /;
use Scalar::Util qw/ blessed /;
use Keyword::Declare;
use Object::Pad::MOP::Class qw/ :experimental(mop) /;

jbarrett

#!/usr/bin/env perl

# Change the mayor's name in SimCity 2000
#
# You should probably stick with plain ASCII if you use it.

use strict;
use warnings;

use bytes;

jbarrett

#!/usr/bin/env perl

use strict;
use warnings;
use v5.32; # Perl on Windows is still hard...
use experimental 'signatures';

use IO::Async::Timer::Periodic;
use IO::Async::Routine;
use IO::Async::Channel;

jbarrett

#!perl.exe

# Attempt to set power profile based on whether fullscreen app (game) running OR process name
# No guarantees if you have more than one monitor :)

# Edit these

# > powercfg /list
my $LOW      = 'a1841308-3541-4fab-bc81-f71556f20b4a';
my $BALANCED = '381b4222-f694-41f0-9685-ff5bb260df2e';

jbarrett

#!/usr/bin/env perl

use strict;
use warnings;

use v5.32;
use experimental qw/ signatures /;

use MIDI;
use Path::This '$THISDIR';

jbarrett

#!/usr/bin/env perl

use IO::All -utf8;

my $in = 'library.bib';
my $out = 'library-munged.bib';

my @lines = io($in)->slurp;

for my $url ( grep { /^url/ } @lines ) {

jbarrett

As published on https://perlweeklychallenge.org/blog/a-new-week-a-new-challenge/
Submissions demonstrated here using Reply.

Write a script to replace the character ‘e’ with ‘E’ in the string ‘Perl Weekly Challenge’. Also print the number of times the character ‘e’ is found in the string.

I didn't write a script so I fail this challenge already.

0> my $foo = 'Perl Weekly Challenge'
$res[0] = "Perl Weekly Challenge"

jbarrett

#!/usr/bin/env bash

[ -z "$1" ] && echo PR number required. && exit 1

BRANCHNAME=pr$1
[ ! -z "$2" ] && BRANCHNAME=$2

git fetch origin pull/$1/head:$BRANCHNAME
git checkout $BRANCHNAME

jbarrett

#!/usr/bin/env perl

use strict;
use warnings;
use File::Copy qw/ mv /;
use File::Find ();

my $dir = $ARGV[0] || '.';

use vars qw/*name *dir *prune/;