読者です 読者をやめる 読者になる 読者になる

雑記 - otherwise

最近はDQ10しかやっていないダメ技術者がちまちまと綴る雑記帳

祭りっぽいので乗ってみる

Perl

……わんくまの祭りなのに相変わらずはてダで反応する人。>自分

VB, C++, C# と既に揃っているので、あえて Perl で。

#!perl

use strict;
use warnings;
use utf8;

binmode STDOUT, ':encoding(shiftjis)';

my $cat = [
      { Name => 'しゅうたん',   Type => 'アメショ' },
      { Name => 'ろり',         Type => 'アメショ' },
      { Name => 'みずきちゃん', Type => 'スコティ' },
      { Name => 'マグさん',     Type => 'ほげ' }
];

my @non_hoge = grep { $_->{Type} ne 'ほげ' } @{$cat};

for (@non_hoge) {
  printf '%sは%s' . "\n", $_->{Name}, $_->{Type};
}

# 気づかれないと淋しいので、皆の記事に TB 送ってみる。 :p < そんなに気づかれたいならわんくま Blog で書けばいいんじゃw