Perl variant of linux tool strings

jeanluca has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Perl variant of linux tool strings by Tanktalus (Canon) on Mar 23, 2005 at 20:34 UTC
Depending on your needs, this may be doable with just a regular expression... `while (/([[:print:]]){4,}/g) { print $1,$/; }` [download]	[reply] [d/l]
Re: Perl variant of linux tool strings by duct_tape (Hermit) on Mar 23, 2005 at 20:46 UTC
Not a module, but there are some versions of the 'strings' tool done for the Perl Power Tools project. http://ppt.perl.org/commands/strings/index.html	[reply]
Re^2: Perl variant of linux tool strings by jeanluca (Deacon) on Mar 23, 2005 at 21:04 UTC
I like to collect words from a pdf or word document! So far Perl Power tools does a very good job! Thanks	[reply]
Re^3: Perl variant of linux tool strings by ambrus (Abbot) on Mar 23, 2005 at 21:09 UTC
For collecting words from pdf documents, you can use the ps2ascii utility which comes with ghostscript. It executes the document with ghostscript, using a special device that outputs only ascii text. As ghostscript can handle pdfs too, ps2ascii works fine on them (although I did have some compatibility problems with some pdfs, depending on the generating program and the version of ghostscript). This doesn't work for word documents of course.	[reply]
Re^4 perl variant of linux tool 'strings' by Random_Walk (Prior) on Mar 23, 2005 at 21:25 UTC
Re^5: Perl variant of linux tool strings by ambrus (Abbot) on Mar 23, 2005 at 21:30 UTC
Re^5: Perl variant of linux tool strings by Joost (Canon) on Mar 23, 2005 at 21:51 UTC
Some notes below your chosen depth have not been shown here
Re: Perl variant of linux tool strings by dragonchild (Archbishop) on Mar 23, 2005 at 20:35 UTC
`$ perl -n -e '@strings =~ /([\w\n\r\s]+)/g; print "@strings\n"' file1 file2 file3` from the commandline ... or am I missing something? Being right, does not endow the right to be rude; politeness costs nothing. Being unknowing, is not the same as being stupid. Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence. Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.	[reply] [d/l]
Re^2: Perl variant of linux tool strings by jeanluca (Deacon) on Mar 23, 2005 at 20:48 UTC
Thanks for the answers. What I want with this is the 'words' inside, for example a pdf file.	[reply]
Re^3: Perl variant of linux tool strings by dragonchild (Archbishop) on Mar 23, 2005 at 20:51 UTC
What's your real question? Do you want to parse a PDF file or do you want to extract the ASCII sequences from within a non-ASCII file? Being right, does not endow the right to be rude; politeness costs nothing. Being unknowing, is not the same as being stupid. Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence. Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.	[reply]