

#!/usr/bin/perl
use strict;
use warnings;
my @list = qw(pig cat bat pig dog cat);
my %seen;
foreach my $i (@list) {
next if $seen{$i};
print "$i\n";
$seen{$i} = 1;
}
#!/usr/bin/perl
use strict;
use warnings;
my @list = qw(pig cat bat pig dog cat);
my %seen;
print join("\n", grep {!$seen{$_}++} @list), "\n";
echo "pig\ncat\nbat\npig\ndog" | perl -nle 'print if!$s{$_}++'
pig cat bat dog

これはグーグルの物語である。
グーグルは何を考え、何をめざしているのか。
『マッキントッシュ物語』でアップルの全貌を暴いた著者が、巨人の内側に密着取材。
これまでベールに包まれていた謎を解き明かす渾身のドキュメント。
徹底的な隠蔽戦略で見つけたネットの「金の鉱脈」、ジョブズが憎んだアンドロイド携帯、中国市場での失態、フェイスブックに挑むグーグル+、クラウドコンピューティング戦略。
誰も描かなかったグーグルの歴史のすべてが、ここにある。