System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Get abbreviations
#!/usr/bin/perl
use warnings;
use strict;
use Text::Abbrev;
my $abbreviations = abbrev(@ARGV);
foreach (sort keys %{$abbreviations}) {
    print "$_ => $abbreviations->{$_} \n";
}