Your code is checking each line in the file with the input string. For that another way to do is, get all permutations from the input string, then compare each line in the file with all the permutations you got.

To get all permutations, you can use Math::Combinatorics. Get all permutations into an array and you can use grep to compare.

I have updated your code and is working fine for me. The code I updated is 

#!/usr/bin/perl
use strict;
use warnings;
use Math::Combinatorics; #to get all combinations

my $input = <STDIN>;
my @inputarray = split('',$input);

my $file = 'wordlist.txt';
open(INFO, $file);
my @lines = <INFO>;
close(INFO);

my @permutations= map { join "", @$_ } permute(@inputarray );# Get all
+ permutations of input string

my %dup;
@dup{@permutations}= ();
my @tacobell= grep { exists $dup{$_} } @lines; # Check if any of the c
+ombinations exists in file

print join ("\n",@tacobell);

exit();

[download]

Update: Fixed typo.

Cheers !

--VC


There are three sides to any argument.....
your side, my side and the right side.

In reply to Re: Simple regex wordlist question by atemon
in thread Simple regex wordlist question by escherist

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.