タグ

perlとsubに関するzegenvsのブックマーク (2)

  • YappoLogs: Re: perl - use utf8;

    Re: perl - use utf8; 404 Blog Not Found:perl - use utf8; ちなみに、utf8 pragmaの配下では、リテラルだけではなくシンボル名にもUnicodeを使うことが出来る。 (コード略) Enjoy! Dan the Just Another PerlUnicode Hacker ぼくだったらこう書きます><#!/usr/bin/perl use strict; use warnings; use utf8; sub 改行 { "\n" } sub 国際的なエンコーディングっぽい何か { ':utf8' } sub 表示するよ { print(@_) }; *普通の出口に = *STDOUT; sub IO::Handle::ハンドルいぢるよ { binmode shift, shift }; { package で; sub で {

  • my と local のサンプル - IT戦記

    local と my - IT戦記の続き local と my の違いが分かるサンプルを書いてみた our $foo = 0; do { # ... (1) local $foo = 1; do { print "$foo\n" }; # 1 sub { print "$foo\n" } # 0 }->(); do { # ... (2) my $foo = 1; do { print "$foo\n" }; # 1 sub { print "$foo\n" } # 1 }->(); ちなみに do {...} は return の扱いを除いて (sub {...})->() と等価だと考えていいです。まあ、関数をその場で呼び出すようなものですね。単なる {...} との違いは、 {...} が式ではなくて文(ブロック)であって、 do {...} は式(do 関数の呼出し)というところで

    my と local のサンプル - IT戦記
  • 1