This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# at the top of all of our code | |
use ourperl; | |
# this does this | |
# | |
# use Import::Into; | |
# use strict; | |
# use warnings; | |
# use experimental (); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
2Pac | |
A Tribe Called Quest | |
Aaliyah | |
Aerosmith | |
Against Me! | |
Air | |
Amy Winehouse | |
Animal Collective | |
Aphex Twin | |
Arcade Fire |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
* 300. Green Day, American Idiot (Reprise, 2004) | |
* 299. Parquet Courts, Sunbathing Animal (What’s Your Rupture?, 2014) | |
* 298. Ice Cube, AmeriKKKa’s Most Wanted (Priority, 1990) | |
* 297. Gorillaz, Demon Days (Virgin, 2005) | |
* 296. Various Artists, Total 4 (Kompakt, 2002) | |
* 295. Old 97’s, Too Far to Care (Elektra, 1997) | |
* 294. Sigur Rós, Ágætis Byrjun (Play It Again Sam, 1999) | |
* 293. Garbage, Version 2.0 (EastWest/Warner Bros., 1998) | |
* 292. Usher, Looking 4 Myself (RCA, 2012) | |
* 291. The Hold Steady, Separation Sunday (Frenchkiss, 2005) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
######################################################################## | |
# Do actions (e.g. notify me) when someone says something in HipChat | |
######################################################################## | |
use 5.0016; | |
use strict; | |
use warnings; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use DBI; | |
use Test::More; | |
{ | |
my $dbh = DBI->connect("dbi:Pg:dbname=circonus;host=wdb3;port=5490",$ENV{USER},$ENV{PASSWORD}, { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Test::More tests => 2; | |
use Mojo::DOM; | |
# passes | |
{ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
use strict; | |
use warnings; | |
use Test::More tests => 1; | |
use Mojo::DOM; | |
my $string = <<'ENDHTML'; | |
<dl> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
try { | |
assert.deepEqual(record,result); | |
success = true; | |
} catch (e) {} | |
if (success) { | |
console.log("ok "+i); | |
} else { | |
console.log("not ok "+i); | |
console.log("# got: "); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/perl | |
# This chunk of stuff was generated by App::FatPacker. To find the original | |
# file's code, look for the end of this BEGIN block or the string 'FATPACK' | |
BEGIN { | |
my %fatpacked; | |
$fatpacked{"Clone/PP.pm"} = <<'CLONE_PP'; | |
package Clone::PP; | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
mark@travis-5:~$ perl find2.pl /usr/share/dict/words | |
acalycine calycine calcine alcine aline line lie ie i | |
acalycine calycine calcine alcine aline line lie li i | |
acalycine calycine calcine alcine aline line lin in i | |
acalycine calycine calcine alcine aline line lin li i | |
acalycine calycine calcine alcine aline alin lin in i | |
acalycine calycine calcine alcine aline alin lin li i | |
acalycine calycine calcine alcine aline alin aln an a | |
acalycine calycine calcine alcine aline alin aln al a | |
acaridean caridean caridea carida carid arid rid id i |