わいえむねっと

shebang 自動認識

|#!/usr/bin/perl
|use strict;
|use warnings;
|
|# This is a comment
|my $animal = "camel";
|my $answer = 42;
|
|print "The animal is $animal\n";
|print "The square of $answer is ", $answer * $answer, "\n";

#!/usr/bin/perl
use strict;
use warnings;

# This is a comment
my $animal = "camel";
my $answer = 42;

print "The animal is $animal\n";
print "The square of $answer is ", $answer * $answer, "\n";

略記

|#!perl
|use strict;
|use warnings;
|
|# This is a comment
|my $animal = "camel";
|my $answer = 42;
|
|print "The animal is $animal\n";
|print "The square of $answer is ", $answer * $answer, "\n";

use strict;
use warnings;

# This is a comment
my $animal = "camel";
my $answer = 42;

print "The animal is $animal\n";
print "The square of $answer is ", $answer * $answer, "\n";

行ハイライト

|#!perl[5,8]
|use strict;
|use warnings;
|
|# This is a comment
|my $animal = "camel";
|my $answer = 42;
|
|print "The animal is $animal\n";
|print "The square of $answer is ", $answer * $answer, "\n";

use strict;
use warnings;

# This is a comment
my $animal = "camel";
my $answer = 42;

print "The animal is $animal\n";
print "The square of $answer is ", $answer * $answer, "\n";

開始行指定

|#!perl[5,8]#5
|my $animal = "camel";
|my $answer = 42;
|
|print "The animal is $animal\n";
|print "The square of $answer is ", $answer * $answer, "\n";

my $animal = "camel";
my $answer = 42;

print "The animal is $animal\n";
print "The square of $answer is ", $answer * $answer, "\n";

    |#!perl
  *5|my $animal = "camel";
    |my $answer = 42;
    |
   *|print "The animal is $animal\n";
    |print "The square of $answer is ", $answer * $answer, "\n";

2010/07/07 18:23:31

• テーブルでレイアウトしているので各行が tr なのかと思いきや、tr は1つだけで、これは gutter と code を横に並べているのみ

• IE用の補正項目がいくつか存在
• important だらけなので、スタイルを上書きする場合は要注意

行のずれについての検証

IE8

• font-size: 90%;

• font-size: 90%; font-weight: normal;

• font-size: 85%;

FireFox 3.6.6

• font-size: 90%;

• font-size: 90%; font-weight: normal;

• font-size: 85%;

適用にあたり追加したスタイル(および、それ自身によるハイライト表示)

.syntaxhighlighter {
    border: 1px solid #c9d7f1;
    font-size: 85% !important;
    width: 95ex !important;
}
.syntaxhighlighter.ie {
    font-size: 85% !important;
}

.syntaxhighlighter.collapsed .toolbar {
    border-style: none !important;
}

.syntaxhighlighter .gutter .line {
    border-color: #c9d7f1 !important;
}
.syntaxhighlighter .toolbar,
.syntaxhighlighter .gutter .line.highlighted {
    background-color: #c9d7f1 !important;
}

.syntaxhighlighter .bold,
.syntaxhighlighter .keyword,
.syntaxhighlighter .script,
.syntaxhighlighter.printing .keyword,
.syntaxhighlighter.printing .script {
    font-weight: normal !important;
}

• 外枠を追加
• フォントサイズと幅を変更
• collapsed=true の場合に border が重複するので無効化
• アイコンとセパレータの色を変更
• bold を無効化

2010/07/06 19:20:26

2010/07/03 13:42:49

ついでのウィスキーメモ

2010/07/03 18:28:01

use strict;
use warnings;
use CGI;

print $CGI::VERSION;
# 3.20

$ENV{REQUEST_METHOD} = 'GET';
$ENV{QUERY_STRING} = 'foo=bar';

my $q = new CGI;
print $q->param('foo');
# bar

$ENV{QUERY_STRING} = 'foo=baz';

$q = new CGI;
print $q->param('foo');
# bar
#   new しても変化しない

$q->init;
print $q->param('foo');
# bar
#   init しても変化しない

$q->initialize_globals;
$q->init;
print $q->param('foo');
# barbaz
#   initialize_globals してから init すると push される

$q->initialize_globals;
$q = new CGI;
print $q->param('foo');
# baz
#   initialize_globals してから new すると更新される

2010/06/30 12:44:07

2010/06/30 20:12:46