On 4/27/06, Andrew Reitz <[EMAIL PROTECTED]> wrote: > > On Apr 26, 2006, at 12:34 AM, Nikolas Britton wrote: > > > On 4/25/06, Parv <[EMAIL PROTECTED]> wrote: > [snip] > > Thanks parv... I meant the algorithm was clunky, not the code... I'm > > so new at this that I can't read your code, and I have a hard enough > > time reading mine own :-). > > > > I've got another simple problem now. How do I get this code to stop > > printing everything on a newline, I'm not using \n in my print > > statement so why does it do that and how do I get it to stop? > > > > @wordlist1 = `sed /^$sedstring1\\\$/\\!d < enable2k_wordlist`; > > foreach (@wordlist1) { > > $string = $_; > > $string =~ s/[$solvedletters1]//g; > > my @chars = split("", $string); > > $string = ""; @chars = sort (@chars); > > foreach (@chars) { > > $string .= $_; > > } > > $string =~ tr///cs; > > print "$string"; > > } > > Hi Nikolas, > > Most likely, your input has '\n' characters at the end of every line, > and you aren't doing anything in perl to strip those away. Try adding > a 'chomp($string);' line before you print. >
Hey thanks, I think I did try that already... anyways... it doesn't matter now because I reworked the code block, this is what I have so far: open(DATA, "< $wordlistfile") or die "Couldn't open $wordlistfile for reading: $!\n"; $regex = qr{^$sedstring1$}; my %freq; #keys = characters, values = frequency count while (<DATA>) { chomp; if (/$regex/) { push @guesswords, "\n$_"; $_ =~ s/[$solvedletters1]//g; my @chars = split("", $_); $_ = ""; @chars = sort (@chars); foreach (@chars) { $foobar3 .= $_; } $_ = "$foobar3"; $foobar3 = ""; $_ =~ tr///cs; #print "$_\n"; # For debugging $freq{$_}++ for split(//, lc $_); } } $_ = scalar @guesswords; print " Guesswords in list: $_\n"; if (@guesswords <= "20") { print "@guesswords\n\n"; } # Print probabilities list. foreach $_ (sort {$freq{$a} <=> $freq{$b}} (keys(%freq))) { print " $_\t=>\t$freq{$_}\n"; } -- BSD Podcasts @ http://bsdtalk.blogspot.com/ _______________________________________________ freebsd-questions@freebsd.org mailing list http://lists.freebsd.org/mailman/listinfo/freebsd-questions To unsubscribe, send any mail to "[EMAIL PROTECTED]"