perl script

bobanbarnsley · 10-18-2012, 11:56 AM

I am trying to learn perl as part of web development, mainly done using php & mysql.
I am looking for 2 perl scripts.

1. To extract every text messages from every file/scripts (program files) in a directory tree into a text file.

2. Replace every such text message with a corresponding modified/different text message in stored in a text file.

If such a simple script exists, please let me how to get it or download it.

Thanks
Bob

qrange · 10-18-2012, 12:54 PM

I think you can achieve that using commands like: grep, awk, sed...
it should be faster.

bobanbarnsley · 10-19-2012, 05:35 AM

Thank you grange, for the reply.
I prefer to have scripts so that I can extract all the text/string messages into a text file, eliminating duplicates, create another text file with the help of this text file with an equivalent message (probably in another language) and the second script is executed to replace all the original messages with the alternate messages. This has to be achieved for program files or scripts in all directories of the directory of a project (website).

Regards
Bobs

TB0ne · 10-19-2012, 11:33 AM

Quote:

Originally Posted by bobanbarnsley

Thank you grange, for the reply.
I prefer to have scripts so that I can extract all the text/string messages into a text file, eliminating duplicates, create another text file with the help of this text file with an equivalent message (probably in another language) and the second script is executed to replace all the original messages with the alternate messages. This has to be achieved for program files or scripts in all directories of the directory of a project (website).

Regards
Bobs

Same question as your other thread, but with some details.

If you post what you've written/tried, and where you're stuck, we will be glad to help you. But, this is not the place to come to get your scripts written for you, without any effort on your part. A brief Google search turns up lots, and the Perl documentation itself has examples/samples:

http://perl.active-venture.com/lib/File/Find.html
http://www.perlmonks.org/?displaytyp...node_id=217166

bobanbarnsley · 10-19-2012, 02:36 PM

Dear TBOne,
Thank you for the information ans suggestion. I am completely new to perl and i thought it will take long to get it myself. Anyway, I will try to do it (at least something) myself nd will come back, for what ever problems I face.
Thank you once again.
Bobs

TB0ne · 10-19-2012, 02:51 PM

Quote:

Originally Posted by bobanbarnsley

Dear TBOne,
Thank you for the information ans suggestion. I am completely new to perl and i thought it will take long to get it myself. Anyway, I will try to do it (at least something) myself nd will come back, for what ever problems I face.

We will always be happy to help, but if you want someone to write programs for you, you need to be prepared to pay them. The LQ Job Marketplace is on the right hand side of the site. Post what you need and how much you want to pay, and someone will offer to do it for you.

Otherwise, if YOU are trying to learn, having someone else write it for you is a very poor way to do it.

theNbomr · 10-20-2012, 01:13 PM

Traversal of tree-like structures is very often does using recursive techniques. In this case, the algorithm is roughly:

go to the specified node (directory)
save a list of all leaf nodes (files) at this directory.
save a list of all child nodes (subdirectories) at this level
iteratively call this function/subroutine for each child node, passing the name of the child node, and adding the returned lists to the lists accumulated for this node
return the complete lists

There are other, non-recursive, methods. Hope someone posts some.

--- rod.