コンテンツにスキップ

利用者:FILD

FILD
ja この利用者は日本語母語としています。
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(ファイルド)は人。口癖は「億劫」。

自己[編集]

  • 生年月日:1991年4月10日

趣味[編集]

  • Perlスクリプティング[1]

Perl[編集]

  • I love Perl
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);
}
  • Package
use strict;

package Hoge;

sub function {
 shift; # 第1引数はpackage名
 print $_[0];
}

package main;

'Hoge'->function('a'); # a

注釈[編集]

  1. ^ 実際のところ頓挫しているのが実情。