| |||||||||||
| |||||||||||
Help convert from c shell to perl Posted by kobie (kobie), 25 September 2007 Hi All,I need help to convert a c shell script to perl. Thanks for everyone. Kobi. #******** START SCRIPT ************* #!/bin/csh -cvx source $1 echo "--0--" echo $lnPARAM[0] echo $lnVAL[0] echo "--1--" echo $lnPARAM[1] echo $lnVAL[1] echo "--2--" echo $lnPARAM[2] echo $lnVAL[2] echo "--3--" echo $lnPARAM[3] echo $lnVAL[3] echo "--4--" echo $lnPARAM[4] echo $lnVAL[4] echo "--5--" echo $lnPARAM[5] echo $lnVAL[5] exit #******** ENND SCRIPT ************* Posted by admin (Graham Ellis), 25 September 2007 Hi, Kobie .... your echos become prints and you add a semicolon on the end of each line. The exit is unnecessary (in either language) and your source will probably become a require.I have a saying "If you find yourself repeating something, there's probably an easier way" and I really the original script is rather nasty ... you didn't need all those echos! What you create by doing a direct translation will be a rather nasty Perl script, and I would suggest you learn some Perl and rewrite it to a higher quality. ![]() Posted by kobie (kobie), 25 September 2007 Hi Graham Ellis,Thank you for your quick answer ![]() My big problem is the line: source $1 What is the purpose of this line? and what should i use instead of it in perl? Thanks again Kobi Posted by admin (Graham Ellis), 25 September 2007 source $1means "run the file named on the command line in the current script at this point". The equivalent in perl would be: require $ARGV[0]; and you'll need to rewrite the sourced / required file into Perl too. This page is a thread posted to the opentalk forum
at www.opentalk.org.uk and
archived here for reference. To jump to the archive index please
follow this link.
|
| ||||||||||
PH: 01144 1225 708225 • FAX: 01144 1225 793803 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho |