E

@ef3

hello.py

Python
3 years ago
print("Hello, world!")

Perlの数値

Perl
3 years ago
use v5.34; use warnings; print <<EOS; 42\t--> @{[ 42 ]} 0b1101\t--> @{[ 0b1101 ]} 0177\t--> @{[ 0177 ]} 0o333\t--> @{[ 0o333 ]} 0xff\t--> @{[ 0xff ]} 3.14\t--> @{[ 3.14 ]}

try{}catch{}を使った例外処理

Perl
3 years ago
use v5.34.0; use warnings; use feature qw(try); no warnings "experimental::try"; sub div { my ( $x, $y ) = @_; die "@{[join ':', caller]}: Domain error: div($x, $y)" if $x == 0 and $y == 0; $x / $y; }

特殊変数

Perl
3 years ago
use v5.30.0; say $^V;