これはPerl？　それともRuby？クイズ〜〜〜〜〜！！！- Perl or Ruby Quiz

͜Ε͸1FSMʁɹͦΕͱ΋3VCZʁ ΫΠζʙʙʙʙʙʂʂʂ :"1$)BLPEBUF-5 !NP[OJPO

ʮ1FSMॻ͚ΔͳΒ3VCZॻ͚ΔΑͶʁʯ

ʮ3VCZॻ͚ΔͳΒ1FSMॻ͚ΔΑͶʁʯ

ͲͪΒ΋ਓݖ໰୊Ͱ͋Δͱ ޿͘ೝࣝ͞Ε͍ͯΔ

͓͖ͯ͞ʜʜ ΫΠζʙʙʙʙʂʂʂʂʂ

ճ౴ީิ 1. Perl 2. Ruby 3. ྆ํ 4. ͲͪΒͰ΋ͳ͍
5. ྆ํͰಈ͕݁͘Ռ͕ҧ͏

print "yapc"

print "yapc" ྆ํ

say "yapc"

say "yapc" 1FSM

print "yapc" print "hakodate"

print "yapc" print "hakodate" 3VCZ

print '0' ? 'true' : 'false'

print '0' ? 'true' : 'false' ྆ํͰಈ͕݁͘Ռ͕ҧ͏

@l ist = (1..5); print @ l ist;

@l ist = (1..5); print @ l ist; ྆ํͰಈ͕݁͘Ռ͕ҧ͏

$_ a = '5'; $_ b = '10'; print
$ _ a + $ _ b;

$_ a = '5'; $_ b = '10'; print
$ _ a + $ _ b; ྆ํͰಈ͕݁͘Ռ͕ҧ͏

print $ _

print $ _ ྆ํͰಈ͕݁͘Ռ͕ҧ͏

class Example { }

class Example { } 1FSM

print true

print true ྆ํ 1FSMͷόʔδϣϯґଘ

use v5.40; print true;

class Person attr_accessor :name attr_accessor :age end

class Person attr_accessor :name attr_accessor :age end 3VCZ ͱ͜ΖʹΑΓ1FSM

package Filter; use Filter::Util::Call; sub im port { filter_add([]);
} sub filter { my ( $ self) = @_ ; my $status = filter_read(); return $status if $status <= 0; s/\bclass\s+(\w+)/package $1 {/g; s/\bend\b/}/g; s/\battr_accessor\s+:(\w+)/sub $ 1 { my \$self = shift; \ @ _ ? \$self->{\ $ 1 } = shift : \$self->{\ $1 } }/g; return $status; };

attr_accessor 'yapc', 'hakodate'

attr_accessor 'yapc', 'hakodate' 3VCZ ͱ͜ΖʹΑΓ1FSM

use Rubyish::Class; attr_accessor 'yapc', 'hakodate'

def add(a, b) a + b end

def add(a, b) a + b end 3VCZ ͱ͜ΖʹΑΓ1FSM

use Inline::Ruby; __END__ __Ruby__ def add(a, b) a +
b end

͍͔͕Ͱ͔ͨ͠ʁ

3VCZͱ1FSMͬͯࣅͯ·͢Ͷ

これはPerl？ それともRuby？ クイズ〜〜〜〜〜！！！- Perl or Ruby Quiz

これはPerl？ それともRuby？ クイズ〜〜〜〜〜！！！- Perl or Ruby Quiz

More Decks by moznion

Other Decks in Technology

Featured

Transcript

これはPerl？　それともRuby？クイズ〜〜〜〜〜！！！- Perl or Ruby Quiz

これはPerl？　それともRuby？クイズ〜〜〜〜〜！！！- Perl or Ruby Quiz