A collection of small scripts, utilities, hacks.
Generate numerical abbreviations, for whatever reason. Maybe you want to work at a search company or something.
$ a68 localization
l10n
$ a68 kubernetes
k8s
$ a68 abbreviate
a8e
$ a68 abbrevi8
a68Produce ascii tables for the terminal. See source code for input format. Uses the Perl module Text::ASCIITable to render tables.
$ atbl Title foo:bar:baz 1:2:3 4:5:6
.-----------------.
| Title |
+-----+-----+-----+
| foo | bar | baz |
+-----+-----+-----+
| 1 | 2 | 3 |
| 4 | 5 | 6 |
'-----+-----+-----'
Sort of like grep, but instead of omitting non-matching lines, color-grep surrounds matching lines with terminal color codes instead, making the line stand out while retaining its context. Comes with a manual. Written in Perl.
Calculate the duration (in days) between two dates.
$ daterange 1970-01-01 2017-01-01
17167
Convert a hashsum list (as outputted by md5sum, sha1sum, etc. to a list of files grouped by the content digest.
input:
6ffd97154dba59c71f4059dbcccff151 ./foo
98ca96b92091e8887455c61d3ba764f1 ./bar
385cda1cb77b6f1fc6b33cd82bb2de24 ./baz
385cda1cb77b6f1fc6b33cd82bb2de24 ./qux
385cda1cb77b6f1fc6b33cd82bb2de24 ./quux
output:
---
6ffd97154dba59c71f4059dbcccff151:
- ./foo
98ca96b92091e8887455c61d3ba764f1:
- ./bar
385cda1cb77b6f1fc6b33cd82bb2de24:
- ./baz
- ./qux
- ./quux
Convert JSON or XML to YAML for easier reading. Work like a filters:
curl -s "$url.json" | json2yaml | less
curl -s "$url.xml" | xml-simple2yaml | less
(xml-simple2yaml uses XML::Simple, which has its weaknesses, but allows for a trivial implementation of this tool.)
A jq script to convert a JSON to a line based format.
{
"foo": "bar",
"baz": {
"lala": [
{"qux": "xxxx"},
{"kalle": "boll"}
]
},
"quux": [0, 1, 3, 4],
"quuuuuux": 1
}
into
foo=bar
baz/lala/0/qux=xxxx
baz/lala/1/kalle=boll
quux/0=0
quux/1=1
quux/2=2
quux/3=3
quux/4=4
quuuuuux=1
Called like:
$ json2line foo.json
$ json2line <foo.json
# To use an alternative delimiter, you can do:
$ json2line --arg delim \\ foo.json
When using the reference syntax for links in markdown, you define the reference definition separately from its usage. If we follow some conventions, we can automate this process for commonly used reference sources like Wikipedia or arXiv.
Running this script on a markdown file with undefined sources matching the id pattern [prefix:page], this script will automatically generate the URLs and append it to the output. Given the following input:
Here is a [link][wp:Foo].
The script will produce the following output:
Here is a [link][wp:Foo].
[wp:Foo]: https://en.wikipedia.org/wiki/Foo
Fetch and open up an ietf rfc in a pager. Also supports internet drafts using the -d flag.
$ rfc 1034
Scrape content from web pages using css selectors.
$ selector-scrape https://en.wikipedia.org/wiki/List_of_HTTP_status_codes 'dl > dt'
100 Continue
101 Switching Protocols
102 Processing (WebDAV; RFC 2518)
103 Early Hints (RFC 8297)
200 OK
201 Created
202 Accepted
203 Non-Authoritative Information (since HTTP/1.1)
204 No Content
...
A PoC /bin/sh replacement that lets the user override the system
shell to use via the environment. If /bin/sh is provided by
/bin/dash by default, this wrapper make it possible to instead
use bash in a specific shell session by setting the environment
variable INVOKE_SHELL to /bin/bash, while still not
interfering with the normal behavior. Comes with a manual.
Written as a portable shell script.
A PoC wrapper around tar to verify that an archive isn't a tar bomb (i.e. with multiple files in the toplevel) before unpacking.
Convert your shabby ascii boxes to unicode. Reads from stdin or takes a filename as a parameter. Filters the file and looks for boxes of "-" and "|" characters. Should not touch those characters when they are not a part of a box.
Try the script by running it on itself. There's some shabby ascii boxes at the bottom.
URI encoding/decoding on the command line. Reads from stdin:
$ echo -n '?/&' | uri-encode
%3F%2F%26
Can be symlinked to as uri-decode to provide the reverse behavior as well:
$ echo -n %3F%2F%26 | uri-decode
?/&
Written in Perl, based on the URI::Encode module.
Use wikipedia as a translation dictionary, by looking up the list of corresponding articles in other languages.
$ wp-translate en sv 'Machine translation'
Maskinöversättning
Look up Autonomous System Number (ASN) of an IP address.
$ aslookup 192.30.253.112
"36459 | 192.30.253.0/24 | US | arin | 2012-11-15"
Relies on a public service provided by cymru.com.
Generate a DS record from DNSKEY fetched over DNS.
$ dnssec-dsfromdns iis.se
$ iis.se. IN DS 18937 5 1 10DD1EFDC7841ABFDF630C8BB37153724D70830A
$ iis.se. IN DS 18937 5 2 B5C422428DEA4137FBF15E1049A48D27FA5EADE64D2EC9F3B58A994A6ABDE543
$ dnssec-dsfromdns github.com
$ Error resolving or no DNSKEY. github.com not signed?
Filterable list of http codes.
$ http-codes
<lists all codes, with their meaning>
$ http-codes 200
200 OK
$ http-codes OK
200 OK
498 Invalid Token (Esri)
499 Token Required (Esri)
$ http-codes '\bOK\b'
200 OK
Data taken from wikipedia (see source code for details).
Ping your default gateway without having to look up its ip address.
Compare cached serial for .se with authoritative data.
$ se_serial.sh
Cache is up to date with 2017071408
Upload a new Perl module release to PAUSE (CPAN)
Make it possible to override specific git subcommands with shell wrappers. Comes with a readme.
Download a gitignore file from Github using their gitignore database.
$ gitignore Perl >.gitignore
Running gitignore without parameters prints the list of available gitignore templates (for the various supported languages/development environments).
Find location where a Perl module is installed.