Mega Code Archive

 

Categories / Perl / System Functions

 

Get abbreviations

#!/usr/bin/perl use warnings; use strict; use Text::Abbrev; my $abbreviations = abbrev(@ARGV); foreach (sort keys %{$abbreviations}) {     print "$_ => $abbreviations->{$_} \n"; }