This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert the shell pipeline for the list of committers to a Perl 1 liner.
authorNicholas Clark <nick@ccl4.org>
Thu, 19 Nov 2009 17:05:54 +0000 (17:05 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 19 Nov 2009 17:05:54 +0000 (17:05 +0000)
To me it feels better to promote our own dogfood.

Porting/how_to_write_a_perldelta.pod

index a6e9a29..5627812 100644 (file)
@@ -335,7 +335,7 @@ The list of people to thank goes here.
 
 You can find the list of committers and authors by:
 
 
 You can find the list of committers and authors by:
 
-  % git log v5.11.1..HEAD |grep Author | cut -d : -f 2 | cut -d \< -f 1 | sort | uniq
+  % git log v5.11.1..HEAD | perl -nlwe '$seen{$1}++ if /^Author: ([^<]*)/; END { print for sort keys %seen }'
 
 And how many files where changed by:
 
 
 And how many files where changed by: