Brandon Wood Woody2143

## hb_all_books_dl.js
/*
After purchasing a humble book bundle, go to your download page for that bundle.
Open a console window for the page and paste in the below javascript
*/
$('a').each(function(i){
   if ($.trim($(this).text()) == 'MOBI') {
      $('body').append('<iframe id="dl_iframe_'+i+'" style="display:none;">');
      document.getElementById('dl_iframe_'+i).src = $(this).data('web');
   }
});

## hyper_benchmark.p6
use v6;

# 2016-02-09  <bruce.gray@acm.org>

my $length = @*ARGS.shift;
say "Length = $length";

my @x = 1..$length;
my @y = @x.reverse;

## Notes
1. Spelling corrected: Schwartzian transform
2. No need to use parens around \d{8}.
3. I like ST better, but GRT is faster for large lists:
    http://www.perlmonks.org/?node_id=145659
4. Need to warn or die to show bad data when regex fails.
5. Perl 6 automatically does ST for you:
    my @sorted = @files.sort({ / SWITCH _ \d**8 _ (\d**6) / or die; $0; });

## Index.pm
package Index;

use Mouse;
use namespace::autoclean;
use Index::Types;


has 'date'    => (
     is       => 'rw',
     isa      => 'Index::Types::Date',

## pf_with_data_structure.pl
#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dump qw(dump);
use Parallel::ForkManager 0.7.6;

my @servers = map { sprintf("svr%03d", $_) } (1 .. 1000);
my %results;

## some_website
#!/bin/sh
#
# some_website - this script starts and stops some_website
#
# chkconfig:   - 85 15
# description:  Some website description

# pidfile:     /var/run/plackup.some_website.pid

PID=/var/run/plackup.some_website.pid

## index.tt
<html>
<head>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>

<script>
var socket;

$(function() {
    // ws_path should be of the form ws://host/_hippie/ws
    var ws_path = "ws:<% request.base.opaque %>_hippie/ws";
	/*
	After purchasing a humble book bundle, go to your download page for that bundle.
	Open a console window for the page and paste in the below javascript
	*/
	$('a').each(function(i){
	if ($.trim($(this).text()) == 'MOBI') {
	$('body').append('<iframe id="dl_iframe_'+i+'" style="display:none;">');
	document.getElementById('dl_iframe_'+i).src = $(this).data('web');
	}
	});
	use v6;

	# 2016-02-09 <bruce.gray@acm.org>

	my $length = @*ARGS.shift;
	say "Length = $length";

	my @x = 1..$length;
	my @y = @x.reverse;
	1. Spelling corrected: Schwartzian transform
	2. No need to use parens around \d{8}.
	3. I like ST better, but GRT is faster for large lists:
	http://www.perlmonks.org/?node_id=145659
	4. Need to warn or die to show bad data when regex fails.
	5. Perl 6 automatically does ST for you:
	my @sorted = @files.sort({ / SWITCH _ \d8 _ (\d6) / or die; $0; });
	package Index;

	use Mouse;
	use namespace::autoclean;
	use Index::Types;


	has 'date' => (
	is => 'rw',
	isa => 'Index::Types::Date',
	#!/usr/bin/env perl

	use strict;
	use warnings;

	use Data::Dump qw(dump);
	use Parallel::ForkManager 0.7.6;

	my @servers = map { sprintf("svr%03d", $_) } (1 .. 1000);
	my %results;
	#!/bin/sh
	#
	# some_website - this script starts and stops some_website
	#
	# chkconfig: - 85 15
	# description: Some website description

	# pidfile: /var/run/plackup.some_website.pid

	PID=/var/run/plackup.some_website.pid
	<html>
	<head>
	<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>

	<script>
	var socket;

	$(function() {
	// ws_path should be of the form ws://host/_hippie/ws
	var ws_path = "ws:<% request.base.opaque %>_hippie/ws";