Skip to content

Instantly share code, notes, and snippets.

@clort81
clort81 / clortrain.pl
Last active Nov 8, 2021
ANSI Abstrace Terminal Art Perl Animation
View clortrain.pl
#! /usr/bin/env perl
use strict;
use warnings;
use utf8;
use feature qw(say);
use experimental qw(signatures);
use List::Util qw(max any);
use Term::ReadKey qw(GetTerminalSize);
use Time::HiRes qw(sleep);
*STDOUT->binmode(':encoding(UTF-8)');
@clort81
clort81 / bashbeep.sh
Last active Nov 8, 2021
Bash Scripting Sound Audio Beep pcspkr
View bashbeep.sh
#!/bin/bash
# 255 mysmps SIMPLE SAWTOOTH SOUND
# <-----------------------> \/\/\/\/\/\/\/\/\/\/\
# . . A beep for bash shell
# | mypeak | for machines without
# \ | /\ pc speaker beep \007.
# \ | / \
# \ | / \ It requires alsa and
# \ | / \ 'play' via alsautils.
# \ | / \