| FILD
|
- html-3
- <html><body><p>この利用者はHTMLを自在に操ります。</p></body></html>
- xhtml-3
- <html><body><p>この利用者はXHTMLを自在に操ります。</p></body></html>
- css-2
- babel:after {content: "この利用者はある程度のCSSを理解しています。";}
- js-2
- alert("この利用者はある程度の JavaScript を理解しています。");
| perl-3
|
print "この利用者はPerlを自在に操ります。\n";
|
|
FILD（ファイルド）は人。口癖は「億劫」。
use strict;
my $word = 'I love Perl.';
print $word; # I love Perl.
- 最近、啓蒙されてきたファイルハンドルのレキシカル化
use strict;
open (my $fh, '<', 'hoge.dat') or die $!;
chomp (my @array = <$fh>);
close $fh;
use strict;
my $array = [
1, 'a', ['e', 'f', 'g',],
];
my $hash = {
red => 'blood',
blue => 'you',
};
print $array->[2][1]; # f
print $hash->{'red'}; # blood
my $sub_func = sub {
my $c = shift;
print $c;
};
$sub_func->('a'); # a
use strict;
my @array = (
'a'..'z',
);
my @new_array;
while (scalar @array) {
my $target = int (rand (scalar @array));
push (@new_array, $array[$target]);
splice (@array, $target, 1);
}
use strict;
package Hoge;
sub function {
shift; # 第1引数はpackage名
print $_[0];
}
package main;
'Hoge'->function('a'); # a
- ^ 実際のところ頓挫しているのが実情。
