Yet Another Newbie Code...

Category:	Miscellaneous
Author/Contact Info	Majin
Description:	Takes any file as an input and adds it to a file thats acts as a wordlist. This word list has several "uses"... I shall not tell about these uses as it might give some wannabies ideas but those who need it shall know it...
`#!/usr/bin/perl -w print "Input: "; chomp ($input = <>); print "Output: "; chomp ($output = <>); chmod 0700, "$input"; chmod 0700, "$output"; open (OUTPUT, ">> $output") \|\| die "Error opening Output: $!\n"; open (INPUT, "< $input") \|\| die "Error opening Input: $!\n"; while (<INPUT>) { print OUTPUT join("\n",split(/\W+/g, $_)); }`

Comment on Yet Another Newbie Code... Download Code

Replies are listed 'Best First'.
(jeffa) Re: Yet Another Newbie Code... by jeffa (Bishop) on Aug 19, 2002 at 00:57 UTC
Too much work :) `perl -F'\W+' -ane 'print join $/,@F' in >> out` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l]
Re: (jeffa) Re: Yet Another Newbie Code... by majin (Acolyte) on Aug 19, 2002 at 03:36 UTC
Can this take files as input and/or output? I am just asking and not questioning your ways. Majin	[reply]
Re^3: Yet Another Newbie Code... by Aristotle (Chancellor) on Aug 19, 2002 at 04:31 UTC
The `in` you see in jeffa's post is a filename.. you can actually use any number of input filenames as in `perl -F'\W+' -ane 'print join $/,@F' in1 in2 in3 in4 in5 in6 in7 >> wordlist` Personally I would amend this to read `perl -F'\W+' -alne '@word{@F}=(); END { print sort keys %word }' in >> wordlist` which outputs only unique words, sorted alphanumerically. Makeshifts last the longest.	[reply] [d/l] [select]