use strict;
use Carp;
use Lingua::SA qw(sandhi vibhakti);


print “\nTable of all vibhakti/vachana combination for given noun/linga\n\n”;

my $noun=“raama”;   # a-kaarant
my $linga = 1;      # alias for “puM”;

print “Using noun $noun, linga $linga\n\n”;

for my $i (1..8){   # prathamA through sambodhana
    for my $j (1..3){   # eka-, dvi-, bahuvachana
        printf “%-20s\t”,
        sandhi(vibhakti({naam=>$noun,linga=>$linga,vibhakti=>$i,vachana=>$j}));
        }
     print “\n”;
     }
print “\n”;

USAGE: table_no_args.pl

OUTPUT

Table of all vibhakti/vachana combination for given noun/linga

Using noun raama, linga 1

rAmaH                   rAmau                   rAmAH

rAmam                   rAmau                   rAmAn

rAmeNa                  rAmAbhyAm               rAmaiH

rAmAya                  rAmAbhyAm               rAmebhyaH

rAmAt                   rAmAbhyAm               rAmebhyaH

rAmasya                 rAmayoH                 rAmANAm

rAme                    rAmayoH                 rAmeSu

he rAma                 he rAmau                he rAmAH