~ubuntu-branches/ubuntu/utopic/softcatala-spell/utopic

Tags: 0.20111230b-4

And back again to softcatala-spell name now that original package with
this source name has been accepted into unstable.

added added

removed removed

#!/usr/bin/perl -w

$inputfile="catalan-i.dic";

$ignore="CDVWYZ";

open (INPUTFILE,"< $inputfile") || die "Could not open inputfile: $inputfile";

while (<INPUTFILE>){

chomp;

($root,$flags)=split('/');

if ( $flags ){

$flags=~s/[$ignore]*//g;

}

if ( $flags ){

print "$root/$flags\n";

} else {

print "$root\n";

}

close INPUTFILE;