C3@work

備忘録deth

グリニッジ標準時

2018-02-08 22:45:13 | Perl
グリニッジ標準時(Greenwich Mean Time)を表示。

print scalar(gmtime) . "\n";
コメント
この記事をはてなブックマークに追加

配列の参照

2018-01-20 21:20:39 | Perl
\を付けてサブルーチンに渡す。
サブルーチンでは@を付けて参照。


@fish = ('sanma', 'saba', 'maguro');

&sakana(\@fish);

sub sakana {
  $uo = $_[0];
  print "@$uo[0]\n";
  print "@$uo[2]\n";
}

実行結果
sanma
maguro

※fishを参照->山椒魚
コメント
この記事をはてなブックマークに追加

elsif

2018-01-17 21:45:03 | Perl
Cだとelse if
Pythonはelif
RubyはPerlと同じでelsif

混同し易い。特にelse ifとelsif。
elseはどのプラミング言語も大抵elseなので間違うことはない。
コメント
この記事をはてなブックマークに追加

配列の要素数を求める

2018-01-13 23:29:16 | Perl
my @test_table = ();
print "$#test_table\n";
my $test_table[0] = 'nogizaka46';
print "$#test_table\n";
my $test_table[1] = 'keyakizaka46';
print "$#test_table\n";

実行結果
-1
0
1

コメント
この記事をはてなブックマークに追加

サブルーチンで複数の値を返す

2018-01-04 19:38:16 | Perl
my ($center1, $center2) = center46('nogizaka');
print "$center1\n";
print "$center2\n";

sub center46 {
  if ($_[0] eq 'nogizaka') {
    return 'nanamaru', 'asyurin';
  } elsif ($_[0] eq 'keyakizaka') {
    return 'techi', '';
  } else {
    return 'error!', '';
  }
}

実効結果
nanamaru
asyurin
コメント
この記事をはてなブックマークに追加

Perlの複数行コメント

2017-12-31 22:26:24 | Perl
コメントアウトしたい行を'=pod'と'=cut'で囲む。

=pod
print "こんな感じ\n";
print "podは他の文字列でもよい\n";
=cut
コメント
この記事をはてなブックマークに追加

uc

2016-12-15 11:13:53 | Perl
文字列を大文字に変換する。
コメント
この記事をはてなブックマークに追加

perldoc

2016-11-30 11:31:45 | Perl
Perlモジュールのファイルパスを調べる。

$perldoc -l Net::POP3

Perlモジュールのソースを読む。

$perldoc -m Net::POP3
コメント
この記事をはてなブックマークに追加

SIGKILL

2016-11-29 15:31:40 | Perl
ひでぶ。

$SIG{KILL} = sub {
  die "このプロセスはすでに氏んでいる。";
};
コメント
この記事をはてなブックマークに追加

SIGINT

2016-11-29 15:27:44 | Perl
SIGINT(CTRL+C)を拾う。

$SIG{INT} = sub {
  die "INTシグナルがこのプロセスに送られますた。";
};
コメント
この記事をはてなブックマークに追加