Skip to content

Instantly share code, notes, and snippets.

@trwyant
trwyant / lexical-pragmas
Created December 29, 2021 16:28
Sample Perl lexical pragma
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
package Noise;
BEGIN {
@trwyant
trwyant / match-nothing
Created June 14, 2021 14:25
Perl regular expression timer
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use Benchmark;
use Getopt::Long 2.33 qw{ :config auto_version };
use Pod::Usage;
@trwyant
trwyant / name.wyant.tom.smoker.plist
Created April 3, 2018 16:12
macOS plist file to run Perl smoker
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>Label</key>
<string>name.wyant.tom.smoker</string>
<key>LowPriorityIO</key>
<false/>
<key>ProgramArguments</key>
<array>
@trwyant
trwyant / find-libssl
Created March 11, 2016 04:13
Perl script to find installed Perl modules that link to libssl
#!/usr/bin/env perl
use 5.010;
use strict;
use warnings;
use File::Find;
use File::Spec;
use Getopt::Long 2.33 qw{ :config auto_version };