12-31-2009
Perl - automating if statement test
Hello all,
I'm trying to automate an if statement in my Perl script. The script opens an input file for reading, checks each line in the file for a particular substring, and if it finds the substring, writes it to an output file.
There are approximately 200 different input files. Each has the same format for each record, but the substring to check for is different for each one.
Suppose the Perl script name is test.pl. I'd like to have another file called test.txt. Each line in test.txt represents a test statement for a particular file.
For example:
testfile1.txt,\$$substrText = "string1"
testfile2.txt,\$$substrText = "string2"
The script test.pl checks the test.txt for the input file name and uses the corresponding test statement.
I tried using the eval function, but I can't get it to work. Is my design viable? Or is there a better way to do this?
Thanks for your help.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
what would be easier to automate a script if/then ? (0 Replies)
Discussion started by: deaconf19
0 Replies
2. Shell Programming and Scripting
Hey ppl,
I've been asked to automate the build and test process for my team at office.we work on Linux and use Perforce for SCM. I've just joined this company and dont have much knowledge on unix scripts. Could someone tell me how to go about doing this? (0 Replies)
Discussion started by: laxmi
0 Replies
3. Linux
Hey ppl,
I've been asked to automate the build and test process for my team at office.we work on Linux and use Perforce for SCM. I've just joined this company and dont have much knowledge on unix scripts. Could someone tell me how to go about doing this?:confused: (8 Replies)
Discussion started by: laxmi
8 Replies
4. Shell Programming and Scripting
Okay, well this is more or less my first attempt at writing a shell script.
Anyways, here's my code:
cd ${PATH}
if
then
rm ${FILE}
./anotherScript
else
exit 1
fi
exit 1
Anyways, it's a pretty simple script that is supposed to search for the... (4 Replies)
Discussion started by: cbo0485
4 Replies
5. UNIX for Dummies Questions & Answers
Can you use an if statement after an else?
example
if
then
echo "word"
else
if
then
echo "word" (1 Reply)
Discussion started by: skooly5
1 Replies
6. Shell Programming and Scripting
Dear Scripting Gods
I've never done shell scripting before and have only recently got to grips with Perl, so apologies for my naivity. I've written a perl program which takes in two files as arguments (these are text documents which take in the information I need) The perl program spits out a... (1 Reply)
Discussion started by: fraizerangus
1 Replies
7. Shell Programming and Scripting
How do I test multiple words in a string test like below:
if ]
then
print "You entered $TBS name.\n"
else
print "You entered an incorrect response.\n"
fi
This test does not work. I have tried different syntax versions. How does this work? And is there a better way to do it?
... (10 Replies)
Discussion started by: djehresmann
10 Replies
8. Shell Programming and Scripting
Hello,
I am trying to build a test statement but I can't make it work
I want to rearrange some fields, so if my "$cfg" variable contains a string ending with .log (*.log) I want to move it in another field.
Any help will be much appreciated!
Thank you
Shell:sh
if
then
log="${cfg}"... (9 Replies)
Discussion started by: drbiloukos
9 Replies
9. Shell Programming and Scripting
Hi,
I have a perl script that takes in 2 numerical values as ARGV.
perl script.pl parameter1 num1 num2
in my case I have 1000's of num1 and num2. I can have them in separate files. Please let me know how to automate this run using shell scripting or using awk, so that I don't have to... (4 Replies)
Discussion started by: Lucky Ali
4 Replies
10. Shell Programming and Scripting
Is it possible to test against a varible within a ranges in a if statement.
ex.
if ];then
echo "not in range"
else
echo "number within range"
fi (8 Replies)
Discussion started by: leemalloy
8 Replies
LEARN ABOUT DEBIAN
mojomojo::formatter::file
MojoMojo::Formatter::File(3pm) User Contributed Perl Documentation MojoMojo::Formatter::File(3pm)
NAME
MojoMojo::Formatter::File - format file as XHTML
DESCRIPTION
This formatter will format the file argument as XHTML.
Usage: {{file TYPE filename}}
{{file Text uploads/Files/test.txt}}
TYPE is a plugin present in Formatter/File/ directory.
Currently there are only three: Pod, DocBook and Text
The plugin TYPE format only the file which the extension match with 'can_format' method. Respectively pod, xml and txt for existing
plugins.
For security reasons the path of file must be include in 'whitelisting' directory. You can use path_to(DIR) to describe directory in
mojomojo.conf:
Just an example to view the test pod file t/var/files/test.pod :
Add this to mojomojo.conf :
<Formatter::Dir>
prefix_url /myfiles
whitelisting __path_to(t/var/files)__ </Formatter::Dir>
To see the pod content formatted in xhtml, write in the text area:
{{file Pod path_to(t/var/files)test.pod}}
To show recursively all files of directory see script/util/dir2mojomojo.pl script. To test it:
# start mojomojo
./script/mojomojo_server.pl
# run dir2mojomojo script
./script/util/dir2mojomojo.pl --dir=~/dev/mojomojo/t/var/files/ --url=/myfiles
Connect to http://server:3000/myfiles/
METHODS
format_content_order
Format order can be 1-99. The File formatter runs on 92.
format_content
Calls the formatter. Takes a ref to the content as well as the context object.
plugin
Return the plugin to use with file attachment
format
Return the content formatted
checkplugin
Return 0 if plugin exist
checkfile
Directory must be include in whitelisting
SEE ALSO
MojoMojo,Module::Pluggable::Ordered
AUTHORS
Daniel Brosseau <dab@catapulse.org>
LICENSE
This module is licensed under the same terms as Perl itself.
perl v5.14.2 2010-04-07 MojoMojo::Formatter::File(3pm)