kdoc - Ruby

#!ruby
'hello'
%q{hello}
%q!hello!

"hello\n"
%Q{hello\n}
%Q!hello\n!

%w{a bb ccc d}

%x{ls}

#!perl
'hello'
q{hello}
q!hello!

"hello\n"
qq{hello\n}
qq!hello\n!

qw{a bb ccc d}

qx{ls} # = `ls`

<<EOS
あいうえお
かきくけこ
EOS

<<EOS
あいうえお
かきくけこ
EOS

<<'EOS'
あいうえお
かきくけこ
EOS

<<'EOS'
あいうえお
かきくけこ
EOS

<<"EOS"
あいうえお
かきくけこ
EOS

<<"EOS"
あいうえお
かきくけこ
EOS

# 末尾の識別子(EOS)の行頭にインデントが可能。
<<-"EOS"
あいうえお
かきくけこ
  EOS

#

<<"EOS"
print(Kconv.tosjis(<<"EOS"))
あいうえお
かきくけこ
EOS

#

name = '鈴木' + '一郎'

my $name = '鈴木' . '一郎';

name = '鈴木';
print("私は#{name}です。")
print("私は#{30 + 6}才です。")

my $name = '鈴木';
print "私は@{[ $name ]}です。";
print "私は@{[ 30 + 6 ]}才です。";

'あ' * 10

'あ' x 10

name = '鈴木'
name << '一郎'
# 以下も同じ。
name.concat('一郎')

my $name = '鈴木';
$name .= '一郎';

10進数  214
 2進数  0b11010110
 8進数  0326
16進数  0xD6

10進数  214
 2進数  0b11010110
 8進数  0326
16進数  0xD6

3_420_500

3_420_500

# 四則演算等
+ - * / % **

# 四則演算等
+ - * / % **

# 引数をそのまま出力。
print "abc\n"
# 末尾に改行をつけて出力。
puts 'abc'
# 引数が文字列の時ダブルクオートで囲って出力。
p 'abc'

#

# コメント

=begin
複数行
=end

# コメント

=for comment
複数行
=cut

# 変数の1文字目数字NG
# 変数に使えない予約語の例
BEGIN    class    ensure   nil      self     when
END      def      false    not      super    while
alias    defined? for      or       then     yield
and      do       if       redo     true
begin    else     in       rescue   undef
break    elsif    module   retry    unless
case     end      next     return   until

#

num += 2
num -= 2
num *= 2
num /= 2
num %= 2
num **= 2

num += 1
num -= 1

$num += 2;
$num -= 2;
$num *= 2;
$num /= 2;
$num %= 2;
$num **= 2;

$num ++;
$num --;

# falseとnilは偽
# falseとnil以外は全て真

#

# 関係演算子
== != > >= < <=

# 論理演算子
&& || !

# 関係演算子
== != > >= < <=

# 論理演算子
&& || !

# thenは省略可。
if num == 10 then
  p 'a'
elsif num == 20 then
  p 'b'
else
  p 'c'
end

unless num == 5 then
  p 'd'
end

flag = result > 10 ? 1 : 0

p 'e' if debug
p 'e' unless debug

if (num == 10) {
  print 'a';
}
elsif (num == 20) {
  print 'b';
}
else {
  print 'c';
}

unless (num == 5) {
  print 'd';
}

my $flag = $result > 10 ? 1 : 0;

print 'e' if $debug;
print 'e' unless $debug;

array = [2005, 2006, 2007, 2008]
p array[0]
p array.at(0)

array[0] = 1999

size = array.length

my @array = (2005, 2006, 2007, 2008);
print $array[0];

$array[0] = 1999;

my $size = scalar @array;

for value in array do
  p value
end

array.each{|value|
  p value
}

for my $value (@array) {
  print $value;
}

hash = {'name' => 'sakai', 'address' => 'Tokyo'}
p hash['name']
p hash.fetch('name')

hash['tel'] = '0123'
hash.store('tel', '0123')

my %hash = (name => 'sakai', address => 'Tokyo');
print $hash{name};

$hash{tel} = '0123';

hash.each{|key, value|
  p key + ' -> ' + value
}

hash.each_key{|key|
  p key + ' -> ' + hash[key]
}

while (my ($key, $value) = each %hash) {
  print $key . ' -> ' . $value;
}

for my $key (keys %hash) {
  print $key . ' -> ' . $hash{$key};
}

def print_hello
  p 'hello'
  return 1
end

def print_message(text)
  p text
end

def print_message(text = 'MESSAGE')
  p text
end

def print_message(*texts)
  texts.each{|text|
    p text
  }
end

sub print_hello {
  print 'hello';
  return 1;
}

sub print_message {
  my $text = shift @_;
  print $text;
}

sub print_message {
  my $text = shift @_ || 'MESSAGE';
  print $text;
}

sub print_message {
  my $texts = shift @_ || [];
  for my $text (@$texts) {
    print $text;
  }
}

value1, value2 = method(3, 7)

my ($value1, $value2) = method(3, 7);

# 整数→浮動小数点数
num.to_f
# 浮動小数点数→整数(小数点以下切り捨て)
f.to_i

num.round # 四捨五入
num.ceil # 大きい方へ
num.floor # 小さい方へ

num.to_s # 文字列へ
num.to_s(2) # 2進数へ
num.to_s(8) # 8進数へ

#

class Person
  def initialize(person_name='カー')
    @name = person_name
  end

  attr_accessor :name
end

person = Person.new()
person.name = 'sakai'
p person.name

# attr_accessorの他にattr_reader, attr_writerがあり。

my $person = Person->new;
$person->name('sakai');
print $person->name;

package Person;

sub new {
  my $class = shift;
  my $name = shift;
  my $self = {
    name => $name
  };
  return bless $self, $class;
}

sub name {
  my $self = shift;
  if (my $name = shift) {
    $self->{name} = $name;
    return $self;
  }
  return $self->{name};
}

1;

# 継承とスーパメソッドの呼び出し
class Baker < Person
  def work
    super
    p 'bake'
  end
end

package Baker;
parent 'Person';

sub new {
  my $class = shift;
  bless {}, $class;
}

sub work {
  my $self = shift;
  $self->SUPER::work;
  print 'bake';
}

text = 'hello';
chars = text[1, 2];

my $text = 'hello';
$chars = substr $text, 1, 2;

array.length
array.flatten
array.uniq
array.compact
array.delete(val)
array.delete_at(ind)
array.delete_if {|x| x % 2 == 0 }
array.reverse
array.sort
array.sort {|a, b| a <=> b }

#

t = Time.now
p t.year
p t.month
p t.day
p t.strftime("%Y-%m-%d %H:%M%S")

#

rbenv
gem
Bundler

plenv
cpanm
Carton

b = a.push(5) # あるいは b = a << 5 # 末尾に追加
b = a.pop # 末尾を削除
b = a.shift # 先頭を削除
b = a.unshift(5) # 先頭に追加

my @b = push @a, 5; # 末尾に追加
my $b = pop @a; # 末尾を削除
my $b = shift @a; # 先頭を削除
my @b = unshift @a, 5; # 先頭に追加

text = "aa-bb-cc"
array = text.split("-") or array = text.split(/-/)
array = text.split # 空白系文字で分割（先頭と末尾の空白系文字も消す）
array = text.split("")

text = array.join("/")
text = array.join

my $text = 'aa-bb-cc';
my @array = split /-/, $text;
my @array = split /\s+/, $text;
my @array = split //, $text;

my $text = join '/', @array;
my $text = join '', @array;

# 構文チェック
ruby -c test.rb

# 構文チェック
perl -c test.pl

#

#