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

YAPC::Hakodate 2024のLT資料です

1. ͜Ε͸1FSMʁɹͦΕͱ΋3VCZʁ
   ΫΠζʙʙʙʙʙʂʂʂ   :"1$)BLPEBUF
   -5
   !NP[OJPO
2. ʮ1FSMॻ͚ΔͳΒ3VCZॻ͚ΔΑͶʁʯ
3. ʮ3VCZॻ͚ΔͳΒ1FSMॻ͚ΔΑͶʁʯ
4. ͲͪΒ΋ਓݖ໰୊Ͱ͋Δͱ
   ޿͘ೝࣝ͞Ε͍ͯΔ
5.  ͓͖ͯ͞ʜʜ
   ΫΠζʙʙʙʙʂʂʂʂʂ
6.  ճ౴ީิ 1. Perl 2. Ruby 3. ྆ํ 4. ͲͪΒͰ΋ͳ͍ 5. ྆ํͰಈ͕݁͘Ռ͕ҧ͏
7. 2
8.  print "yapc"
9.  print "yapc" ྆ํ
10. 2
11.  say "yapc"
12.  say "yapc" 1FSM
13. 2
14.  print "yapc" print "hakodate"
15.  print "yapc" print "hakodate" 3VCZ
16. 2
17.  print '0' ? 'true' : 'false'
18.  print '0' ? 'true' : 'false' ྆ํͰಈ͕݁͘Ռ͕ҧ͏
19. 2
20.  @l ist = (1..5); print @ l ist;
21.  @l ist = (1..5); print @ l ist; ྆ํͰಈ͕݁͘Ռ͕ҧ͏
22. 2
23.  $_ a = '5'; $_ b = '10'; print $ _ a + $ _ b;
24.  $_ a = '5'; $_ b = '10'; print $ _ a + $ _ b; ྆ํͰಈ͕݁͘Ռ͕ҧ͏
25. 2
26.  print $ _
27.  print $ _ ྆ํͰಈ͕݁͘Ռ͕ҧ͏
28. 2
29.  class Example { }
30.  class Example { } 1FSM
31. 2
32.  print true
33.  print true ྆ํ
    1FSMͷόʔδϣϯґଘ
34.  use v5.40; print true;
35. 2
36.  class Person attr_accessor :name attr_accessor :age end
37.  class Person attr_accessor :name attr_accessor :age end 3VCZ
    ͱ͜ΖʹΑΓ1FSM
38.  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; };
39. 2
40.  attr_accessor 'yapc', 'hakodate'
41.  attr_accessor 'yapc', 'hakodate' 3VCZ
    ͱ͜ΖʹΑΓ1FSM
42.  use Rubyish::Class; attr_accessor 'yapc', 'hakodate'
43. 2
44.  def add(a, b) a + b end
45.  def add(a, b) a + b end 3VCZ
    ͱ͜ΖʹΑΓ1FSM
46.  use Inline::Ruby; __END__ __Ruby__ def add(a, b) a + b end
47.  ͍͔͕Ͱ͔ͨ͠ʁ
48. 3VCZͱ1FSMͬͯࣅͯ·͢Ͷ