delphinus

@namespace url(http://www.w3.org/1999/xhtml);

@-moz-document domain("mail.google.com") {
/* メールを等幅フォントで表示 */
div[class^="ii gt"],div[class^="ii gt"] * {
	font-family:"Ricty Discord",monospace!important;
	/*font-size:10pt!important;*/
}
textarea {
    /*font-size:9pt!important;*/

delphinus

use Test::More;
use Capture::Tiny qw!capture!;
plan tests => 2;
my $script = 'test.pl';
my ($stdout, $stderr, undef) = capture {
	system "perl -c $script";
};
is $stdout => '', "$script compile output none to STDOUT.";
is $stderr => <<ERR, "$script compile output true message to STDERR.";
$script syntax OK

delphinus

@font-face {
	font-family: "ＭＳ Ｐゴシック";
	src: local("Meiryo mod 12pt AA"), local("メイリオ"), local("Meiryo"), local("ＭＳ Ｐゴシック");
}
@font-face {
	font-family: "MS PGothic";
	src: local("Meiryo mod 12pt AA"), local("メイリオ"), local("Meiryo"), local("ＭＳ Ｐゴシック");
}
@font-face {
	font-family: "ＭＳ ゴシック";

delphinus

perl -i -pe 's/\x0D\x0A/\n/g;tr/\r/\n/' filename

delphinus

#!/bin/sh
usage_exit() {
    echo "Usage: $0 [--from-code,-f FROM] [--to-code,-t TO] [--help,-h] file" 1>&2
    exit 1
}

# default values
FROM=EUC-JP
TO=UTF-8

delphinus

git config --global http.sslcainfo /etc/pki/tls/cert.pem

delphinus

for i in `git status -sb | grep -v ^## | cut -d' ' -f3`; do [ -e $i ] || git rm $i; done

delphinus

clang -Wall -fobjc-arc -framework Foundation -o exsample exsample.m

delphinus

SELECT SQL_CALC_FOUND_ROWS id, name FROM address LIMIT 10, 30;
SELECT FOUND_ROWS();

delphinus

#!/usr/bin/env perl
use strict;
use warnings;
use Date::Manip;
use LWP::Simple;
use JSON;
use YAML;
use URI;

my $uri = URI->new('http://api.woopra.com/rest/analytics/get.jsp');