Get abbreviations : Text « System Functions « Perl

1. Perl
2. System Functions
3. Text

Get abbreviations

      
#!/usr/bin/perl

use warnings;
use strict;
use Text::Abbrev;

my $abbreviations = abbrev(@ARGV);

foreach (sort keys %{$abbreviations}) {
    print "$_ => $abbreviations->{$_} \n";
}

   
    
    
    
    
    
  

Related examples in the same category