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