Perl使いの国のRubyist

2009 21070
2010 22227
2011 21910
2012 22647
2013 25760
2014 27272
2015 22999
2016 19982
2017 16352
2018 6052 => 17096

Version.group("TO_CHAR(created_at, 'YYYY')").count.sort
# => [["2009", 39336],
["2010", 59267],
["2011", 82608],
["2012", ...

my $array = ["a", "b", "c"];
for (@$array) {
print $_ . "n";
}
my $array2 = [map { $_ . "foo"; } @$array];

def foo
@foo ||= heavy_method
end
# heavy_method boolean
def foo
return @foo if defined?(@foo)
@foo = heavy_method
end

sub foo {
shift->{_foo} //= heavy_method
}

package Hoge;
use parent 'Exporter';
our @EXPORT = qw/foo bar/;
sub foo { ... }
sub bar { ... }

package Fuga;
use Hoge qw/foo/;

# perl
reverse uniq grep { $_ ~= /foo/ } <ARGV>;
# ruby
IO.read(ARGF).lines.grep {|l| l ~/foo/ }.uniq.reverse

sub hoge {
my $foo = 'foo';
my $bar = 'bar';
{
my $foo = 'baz';
print $foo . $bar . "n"; # => 'bazbar'
}
print $foo . $bar...

sub hoge {
{
# memcached
my $guard = Proc::Guard->new(command => ["memcached", "-p", "11211"]);
# do something ...
}
# mem...

our $foo = 'foo';
sub print_foo {
print $foo . "n";
}
print_foo; # foo
{
local $foo = 'bar';
print_foo; # bar
}
print_foo;...

sub foo {
my ($num, $str) = @_;
print $num . "n";
print $str . "n";
}
foo(1, "a");

use Smart::Args::TypeTiny qw(args);
sub create {
args my $id => 'Id',
my $title => 'Str',
my $description => 'Maybe[Str]',...

my $a = localtime;
my @b = localtime;
use Data::Dumper;
print Dumper $a;
# $VAR1 = 'Fri May 4 16:14:45 2018';
print Dumper...

sub foo { print @_ . 'n'; }
my $method_name = 'foo';
{
#
no strict 'refs';
&{$method_name}('bar');
}

5.027009 => {
delta_from => 5.027008,
changed => {
'B::Op_private' => '5.027009',
... # 140
'warnings' => '1.41',
},
remov...

Takafumi ONAKA