🐰

Sharl Morlaroll sharl

🐰

sharl / Safari6.0.2Mountain.pkg.resumeData

Created November 2, 2012 03:15

	<?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>NSURLDownloadBytesReceived</key>
	<integer>8047</integer>
	<key>NSURLDownloadEntityTag</key>
	<string>"2cc95b5-4cd4e1fddbc32"</string>
	<key>NSURLDownloadServerModificationDate</key>
	<string>Tue, 30 Oct 2012 22:15:32 GMT</string>

sharl / gist:4006488

Created November 3, 2012 07:55

ミシャグジー最後のクイズはこうやって解いた

	$ for s in `seq 1 25`; do echo -n "$s "; echo OFWUOHCI \| caesar $s; done
	1 PGXVPIDJ
	2 QHYWQJEK
	3 RIZXRKFL
	4 SJAYSLGM
	5 TKBZTMHN
	6 ULCAUNIO
	7 VMDBVOJP
	8 WNECWPKQ
	9 XOFDXQLR

sharl / gist:4058174

Created November 12, 2012 08:34

sharl / acd.reg

Created November 15, 2012 01:15

	Windows Registry Editor Version 5.00

	[HKEY_CLASSES_ROOT\acd]
	@="\"URL:Amazon Cloud Drive Protocol\""
	"URL Protocol"="\"\""

	[HKEY_CLASSES_ROOT\acd\DefaultIcon]
	@="\"AmazonCloudDrive.exe,1\""

	[HKEY_CLASSES_ROOT\acd\shell]

sharl / gpara_ranking

Created December 12, 2012 02:43

	#!/usr/bin/perl
	# -- coding: utf-8 --

	use strict;
	use warnings;
	use HTTP::Tiny;
	use HTML::Entities;

	my $target = 'http://ranking.gpara.com/special/event/ranking/ogranking12b/ranking_list.php';

sharl / batt

Created January 22, 2013 04:25

OS X battery monitor script

	#!/bin/sh

	d=`/usr/sbin/ioreg -c AppleSmartBattery -r \| /usr/bin/grep -E "MaxCapacity\|CurrentCapacity\|ExternalConnected" \| /usr/bin/cut -d= -f2`
	echo $d \| while read MaxC CurC Ext; do
	if [ $Ext = 'Yes' ]; then
	echo "AC"
	exit 0
	else
	p=`echo "scale=2; 100 * $CurC / $MaxC" \| /usr/bin/bc`
	echo "Batt $p%"

sharl / gfl

Created January 23, 2013 04:06

Google Feeling Lucky

	#!/usr/bin/env perl

	use strict;
	use warnings;
	use URI::Escape 'uri_escape';
	use LWP::Simple qw(head $ua);

	if ($ARGV[0]) {
	my $word = join('', @ARGV);
	my $URI = 'https://www.google.com/search?q=' . uri_escape($word) . '&btnI';

sharl / _

Created February 18, 2013 02:39

	use HTTP::Tiny;
	use Data::Dumper;

	my $get = HTTP::Tiny->new->get('http://twitter.com/MyoyoShinnyo/copy-paste-bot-garbage',
	{ max_redirect => 0, },
	);
	print Dumper $get->{headers};
	$VAR1 = {
	'x-mid' => '6f8ee694d6012587d237ab0aea726412bbae3a26',
	'connection' => 'close',

sharl / HelloWorld.pl

Created March 8, 2013 13:38

sharl / gist:5435276

Created April 22, 2013 13:53

Master of Epic クライアント起動時の通信内容