新宿Perl -見習い編 このページをアンテナに追加 RSSフィード

2007年11月16日

コードリファレンスの基本 14:24 コードリファレンスの基本 - 新宿Perl -見習い編 を含むブックマーク はてなブックマーク - コードリファレンスの基本 - 新宿Perl -見習い編 コードリファレンスの基本 - 新宿Perl -見習い編 のブックマークコメント

コードリファレンス(orコードレフ)の基本的な使い方を学びました。とりあえずハッシュに格納して呼び出す感じです。

#!/usr/bin/perl

use strict;
use warnings;

my %printer = (
  with_nl     => \&print_with_nl,
  without_nl  => \&print_without_nl,
  all_capital => \&print_all_capital,
);

sub print_with_nl {
  local $_ = shift;
  print /\n$/ ? $_ : $_."\n";
}

sub print_without_nl {
  local $_ = shift;
  s/\n$//;
  print;
}

sub print_all_capital {
  local $_ = shift;
  s/(\w+)/\U$1/g;
  print;
}

my $str = "I am learning Perl!\n";

$printer{with_nl}    ->($str);
$printer{without_nl} ->($str);
$printer{all_capital}->($str);

実行結果

I am learning Perl!
I am learning Perl!I AM LEARNING PERL!