Keedi Kim keedi

My perl5 TODO list

Below is a formal list of possible optimizations, which most would agree on. We had these discussion in 2001 with damian were perl6 and perl5i took off. I'd like to work on these for perl5 core and need decisions. Most p5p hackers seem to be informed about the general possibilities and directions, but not all. We'd need this to improve general perl5 performance, and also help static compilation.[1]

tmux shortcuts & cheatsheet

start new:

tmux

start new with session name:

tmux new -s myname

tmux cheat sheet

(C-x means ctrl+x, M-x means alt+x)

Prefix key

The default prefix is C-b. If you (or your muscle memory) prefer C-a, you need to add this to ~/.tmux.conf:

remap prefix to Control + a

tmux cheatsheet

As configured in my dotfiles.

start new:

tmux

start new with session name:

	#!/usr/bin/env perl
	#
	# qrencode-gui.pl - Simple GUI for qrencode
	#
	# Requires qrencode.
	#
	# Seungwon Jeong <[email protected]>
	#
	# Copyright (C) 2012 by Seungwon Jeong
	#

	#!/usr/bin/env perl

	use 5.010;
	use utf8;
	use strict;
	use warnings;

	use autodie;
	use Getopt::Long::Descriptive;
	use Carp qw/croak/;

	#!/usr/bin/env perl
	use Encode;
	use LWP::Simple;

	my $c = get('http://eyenews.hankooki.com/mm_theme_view.php?gisa_id=00119568&cate_code=0402');
	my %imgs = ( $c =~ m{content:"(.?)<br>.?(http://photo.hankooki.com/gisaphoto/inews/2012/06/29/0629.*?\.jpg)"}g );

	foreach my $name ( keys %imgs ) {
	my $new_name = Encode::encode('cp949', $name); # 윈도우 일때
	#my $new_name = Encode::encode('utf8', $name); # 리눅스 utf8 환경일때

	#!/bin/sh
	message-pass \
	--input STDIN \
	--output STDOUT

	<!DOCTYPE html>
	<html>
	<head>
	<title>Upload your files</title>
	</head>
	<body>
	<form enctype="multipart/form-data" action="upload.php" method="POST">
	<p>Upload your file</p>
	<input type="file" name="uploaded_file"></input><br />
	<input type="submit" value="Upload"></input>

	use strict;
	use Tie::IxHash;
	use JSON::PP;

	# magic start

	my $obj_parser_sub = \&JSON::PP::object;
	*JSON::PP::object = sub {
	tie my %obj, 'Tie::IxHash';
	$obj_parser_sub->(\%obj);