Skip to content

Instantly share code, notes, and snippets.

View wchristian's full-sized avatar

Christian Walde (Mithaldu) wchristian

View GitHub Profile
@wchristian
wchristian / gist:5908229
Last active December 19, 2015 05:59 — forked from churib/gist:5908179
(defun remove* (symbol tree)
"Removes SYMB0L from TREE."
(cond
((null tree)
tree)
((atom (car tree))
(if
(equalp symbol (car tree))
(remove* symbol (cdr tree))
(cons (car tree) (remove* symbol (cdr tree)))))
@wchristian
wchristian / difm.pl
Last active December 17, 2015 11:58
scripts to download all DI.fm playlists, either linear or parallelized ported from: https://twitter.com/_am3thyst/status/335854928654389248
use strictures;
use 5.010;
use IO::All -binary;
use JSON 'from_json';
run( $ARGV[0] ) if !caller;
sub run {
my ( $pl_path ) = @_;
$pl_path //= '.';
@wchristian
wchristian / gist:5119725
Created March 8, 2013 20:45 — forked from anonymous/gist:5119721
xml::libxml on windows
13-03-08@21:19:28 (jdb) http://paste.stacka.to/gejavoyifo.pl
13-03-08@21:19:51 (jdb) This is the script that is called to build libxml on the PPM builders.
13-03-08@21:20:33 (jdb) It assumes the tarball is already unpacked and the CWD is the top-level directory inside the tarball
13-03-08@21:21:19 (jdb) http://paste.stacka.to/furanimeli.avrasm
13-03-08@21:21:31 (jdb) This is the "control file"
13-03-08@21:24:58 (Mithaldu) can you give me links for the iconv sources you use?
13-03-08@21:25:34 (jdb) https://code.google.com/p/win-iconv/
13-03-08@21:26:05 (Mithaldu) and zlib?
13-03-08@21:26:33 (jdb) http://paste.stacka.to/guhelixuwo.pl
13-03-08@21:27:04 (jdb) http://zlib.net/zlib-1.2.5.tar.gz
@wchristian
wchristian / gist:4754484
Last active December 12, 2015 09:49
Using Git in Windows
use strictures 1;
use 5.010;
my $t = "ab";
my $r1 = qr/a/;
my $r2 = qr/b/;
my $s1 = "1";
my $s2 = "2";

MANIFESTO - scrubbed by mainstream media outlets

From: Christopher Jordan Dorner /7648

To: America

Subj: Last resort

Regarding CF# 07-004281

use strictures;
use 5.012;
use WWW::Alexa::TrafficRank;
use Tie::Array::CSV;
run();
sub run {
@wchristian
wchristian / gist:4142386
Created November 25, 2012 04:23
miniperl does not compile with strawberry gcc
----------------------------------------------
Welcome to Strawberry Perl Portable Edition!
* URL - http://www.strawberryperl.com/
* see README.portable.TXT for more info
----------------------------------------------
Perl executable: C:\strawberry-5.16.2.1\perl\bin\perl.exe
Perl version : 5.16.2 / MSWin32-x86-multi-thread
c:\strawberry-5.16.2.1>d:
@wchristian
wchristian / gist:4142377
Created November 25, 2012 04:17
miniperl working at 43c6b706eae7899eff9414f3bbb9e5ef095a07fd
d:\cpan\perl>gcc --version
gcc.exe (GCC) 3.4.5 (mingw-vista special r3)
Copyright (C) 2004 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
d:\cpan\perl>cd win32
@wchristian
wchristian / gist:4142366
Created November 25, 2012 04:11
miniperl broken at 925798f29c677c612a63a08a92ebb5f169e27b02
d:\cpan\perl>gcc --version
gcc.exe (GCC) 3.4.5 (mingw-vista special r3)
Copyright (C) 2004 Free Software Foundation, Inc.
This is free software; see the source for copying conditions. There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
d:\cpan\perl>cd win32
d:\cpan\perl\win32>dmake .\config.h ..\git_version.h
del /f config.h