unscramble words and write to file (have code)

[helpmesos]

hihi

Firstl i got most of this code from another person on another forum but I have been trying like crazy to modify it so that it reads a list of scrambled words from a file and outputs the unscrambled words to another file.

scrambled.txt = input file
unscrambled.txt = output file

here is the code:

use strict;
use warnings;
#!/usr/local/bin/perl
 
my $dict = 'wordlist.txt';
my @Unscrambled = ();
 
# Do not space-separate the word in this version.
my $scrambled_word   = shift
  or die "Must specify a word\n";
 
my $scrambled_length = length $scrambled_word;
my $scrambled_sorted = join '', sort split '', $scrambled_word;
 
my $pattern = qr{
    \A
        (?:
            [$scrambled_word]{$scrambled_length}
        )
        \n
    \z
}x;
 
open DICT, '<', $dict
  or die "Cannot open '$dict': $!";
 
while () {
    next unless /$pattern/o;
 
    chomp;
    my $sorted = join '', sort split '', $_;
    next unless $sorted eq $scrambled_sorted;
 
            push @Unscrambled, $_;
}
 
close DICT or warn;
 
 
open (MYFILE, '>>data.txt');
        foreach (@Unscrambled) {
                  print MYFILE "$_";
}
close (MYFILE);
 

And I'm pretty new to perl..

thanks allot!

[KevinADC]

If you're going to copy code off a forum at least copy it right:

while () {

should be:

while (<DICT>) {

[numberwhun]

Also, this:

#!/usr/bin/perl
 

should always be the very first line in your script. If it is not, it will not be processed as it will be considered a comment. On a Unix system, that means that you would not be able to just make the script executable, you would need to trigger it as an option to the Perl binary.

Regards,

Jeff

[helpmesos]

ok so I modified it:

#!/usr/local/bin/perl
use strict;
use warnings;
 
my $dict = 'wordlist.txt';
my @scrambled=();
 
open (FILE, "input.txt") or die "Couldn't open location file: $!";
@scrambled = <FILE>;
close FILE;
 
open FILE, ">output.txt" or die $!; 
 
foreach my $scrambled_word(@scrambled) {
 
# Do not space-separate the word in this version.
 
my $scrambled_length = length $scrambled_word;
my $scrambled_sorted = join '', sort split '', $scrambled_word;
 
my $pattern = qr{
    \A
        (?:
            [$scrambled_word]{$scrambled_length}
        )
        \n
    \z
}x;
 
open DICT, '<', $dict
  or die "Cannot open '$dict': $!";
 
while (<DICT>) {
    next unless /$pattern/o;
 
    chomp;
    my $sorted = join '', sort split '', $_;
    next unless $sorted eq $scrambled_sorted;
 
    print "$scrambled_word";
    print FILE "$_\n"; 
}
}
close FILE;
close DICT or warn;

Still no luck, It's not printing anything into the output file.

[KevinADC]

You code should not even run, syntax errors. Line 22 is missing the semi-colon on the end. If nothing prints to the output file its because line 25 or line 28 never find a match. What is the input and what do you expect for output?

[helpmesos]

You code should not even run, syntax errors. Line 22 is missing the semi-colon on the end. If nothing prints to the output file its because line 25 or line 28 never find a match. What is the input and what do you expect for output?

it finds a match, I have a huge word list, finding the match isnt the problem because it works fine without the file i/o stuff. just manually inputting a string via command prompt "unscr.pl word" works perfectly well and never fails. Just doesnt seem to want to work with files.

The format of the file is
asinspo
rithwg
eednis
raltce

the output should be those words but unscrambled and placed into another text file.

[KevinADC]

are the words in both files all lower case or all upper case? They need to match exactly for your script to find matches.

[helpmesos]

are the words in both files all lower case or all upper case? They need to match exactly for your script to find matches.

all lower case, works fine before i attempt to do it with reading a list of words from a file.

[KevinADC]

Try removing the \n from the regexp:

my $pattern = qr{
\A
(?:
[$scrambled_word]{$scrambled_length}
)
\n<--- remove this
\z
}x;
 

and see if that helps.

[helpmesos]

nope :( still no luck with it.. hmmmmmm

it seems that nothing displays after these 2 "needed" lines:

my $sorted = join '', sort split '', $_;
next unless $sorted eq $scrambled_sorted;

but before these lines i get a response however not unscrambled. I have no idea why it doesn't work with reading a list of words from a file other than passing 1 word via command prompt.

if i use "print $_;" under those 2 lines like in the original script i get the unscrambled word, but when modifies to read a list from a file i get nothing with print, like its wiped clear..

[KevinADC]

Replace the "while" block with this code:

while (<DICT>) {
    next unless /$pattern/o;
    print "Passed regexp: $_";
    chomp;
    my $sorted = join '', sort split '', $_;
    print "\$sorted = [$sorted]\n \$scrambled_sorted = [$scrambled_sorted]\n";
    next unless $sorted eq $scrambled_sorted;
 
    print "$scrambled_word";
    print FILE "$_\n"; 
}

and see what gets printed to the screen while it runs. The square brackets are there so you can see if $sorted or $scrambled_sorted have any spaces or other characters inthem that are affecting the comparison.

[helpmesos]

hmm weird, prints out the words but unscrambled, each word is printed out 2 time's instead of once per word. also, i put just 1 word in the file "inandia"

inandia = indiana

and that word is in my dict.

[KevinADC]

Well, with no data to run I can't really help anymore.

[Icecrack]

May i ask this isn't for the HackT***S*** Website is it?