libitte · August 20, 2014 05:14
diff --git a/uniq_by_grep.pl b/uniq_by_grep.pl
 #!/usr/bin/env perl
 use strict;
 use warnings;
 use Data::Dumper;
 local $Data::Dumper::Indent   = 1;
 local $Data::Dumper::Terse    = 1;

 my @array = qw(goo bar buzz jri jri jri buzz);
 my %hash;
 my @ret = grep {!$hash{$_}++} @array;
 print Dumper \@ret;
 __END__
 [
  'goo',
  'bar',
  'buzz',
  'jri'
 ]
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use Data::Dumper;
	local $Data::Dumper::Indent = 1;
	local $Data::Dumper::Terse = 1;

	my @array = qw(goo bar buzz jri jri jri buzz);
	my %hash;
	my @ret = grep {!$hash{$_}++} @array;
	print Dumper \@ret;
	__END__
	[
	'goo',
	'bar',
	'buzz',
	'jri'
	]
No results found