Shell Programming and Scripting

alex@lol-pc:~/Desktop$ ./pip
alex@lol-pc:~/Desktop$

perl -nle'BEGIN {
  @_{split / /, shift} = (1) x length($ARGV[0]);
  }
keys %_ == grep $_{$_}, split // and print;
' 'n i o m s c t a' wordlist

perl -lane 'print   if (join("",sort (split //)) eq "acimnost");' file

#!/bin/sh

letters=niomscta
length=${#letters}

while read word; do
    [ $length -ne $(echo $word | sed 's/\(.\)/\1 /g' | tr -s ' ' '\n' | sort | uniq | wc -l) ] && continue
    [ -z "$(echo $word | tr -d $letters)" ] && echo $word
done < data

#!/bin/sh

# letters must be sorted
letters=acimnost

while read word; do
    uniqchars=$(echo $word | sed 's/\(.\)/\1 /g;y/ /\n/' | sort | uniq | paste -s - | tr -d '\t')
    [ "$letters" = "$uniqchars" ] && echo $word
done < data

perl -nle'BEGIN {
  @_{split / /, shift} = (1) x length($ARGV[0]);
  }
keys %_ <= grep $_{$_}, split // and print;
' 'n i o m s c t a' infile

letters=(n i o m s c t a)
letters=${(j::)${(uo)letters}}
  
while read -r; do
  [[ ${(j::)${(ous::)REPLY}} == $letters ]] &&
    print -- $REPLY
done<wordlist