Convert Shell script to Perl

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

This is the shell script

#!/usr/bin/sh
export LIBDIR=$MY_XALANHOME/bin
export LOCALCLASSPATH=${LIBDIR}/xalan.jar
export LOCALCLASSPATH=${LOCALCLASSPATH}:${LIBDIR}/xml-apis.jar
export LOCALCLASSPATH=${LOCALCLASSPATH}:${LIBDIR}/xercesImpl.jar
JAVACMD=$JAVA_HOME/bin/java
$JAVACMD -cp $LOCALCLASSPATH org.apache.xalan.xslt.Process "$@"
[download]

This is the perl equivalent script

#!/usr/bin/perl
use strict;
use warnings;
$ENV {'LIBDIR'}='$MY_XALANHOME/bin';
$ENV {'LOCALCLASSPATH'}='$LIBDIR/xalan.jar';
$ENV {'LOCALCLASSPATH'}='$LOCALCLASSPATH:$LIBDIR/xml-apis.jar';
$ENV {'LOCALCLASSPATH'}='$LOCALCLASSPATH:$LIBDIR/xercesImpl.jar';
JAVACMD=$JAVA_HOME/bin/java;
$JAVACMD -cp $LOCALCLASSPATH org.apache.xalan.xslt.Process "$@";
[download]

Please review and advise where I could be off on the perl script. I need this to work in Windows as well as Unix.

Thanks

Comment on Convert Shell script to Perl Select or Download Code

Replies are listed 'Best First'.
Re: Convert Shell script to Perl by Corion (Patriarch) on Oct 10, 2011 at 13:28 UTC
What you posted is not valid Perl. Running what you think your Perl script is will make Perl tell you so. Please correct your script. Maybe you want to read system, but before that, also do read perlintro and perlsyn. Perl is not a shell or shell-alike language.	[reply]
Re^2: Convert Shell script to Perl by akrrs7 (Acolyte) on Oct 10, 2011 at 13:51 UTC
Hello... I am really new at Perl...as you've surmised. I have read the perlintro document but am still confused on how to set environment variables. Thanks...	[reply]
Re^3: Convert Shell script to Perl by Corion (Patriarch) on Oct 10, 2011 at 13:56 UTC
You are confused about so many things that it does not make sense to give you small pointers. You need to take a step back and start learning Perl. See the books section of learn.perl.org, and maybe the Modern Perl book by chromatic, if you're in need of a free book and already know how to program in some other programming language.	[reply]
Re: Convert Shell script to Perl by Utilitarian (Vicar) on Oct 10, 2011 at 14:02 UTC
You could set the environment variables and run exec to call the script `[skrynesaver@busybox ~]$ cat ~/tmp/test.pl #!/usr/bin/perl $ENV{'THE_VAR'}= "This has been set in the environment of the script"; exec "$ENV{HOME}/tmp/test.sh" [skrynesaver@busybox ~]$ cat ~/tmp/test.sh #!/bin/bash echo $THE_VAR [skrynesaver@busybox ~]$ perl tmp/test.pl This has been set in the environment of the script` [download] `print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."`	[reply] [d/l] [select]
Re^2: Convert Shell script to Perl by cdarke (Prior) on Oct 10, 2011 at 14:41 UTC
exec does not behave in the same way on Windows and UNIX, so it might be better to use system instead, which is similar on both (although there are still a few differences). Although the latest ksh93 versions exec on the last statement within a script, I don't think that bash does. One other thing to be aware of, environment variables on UNIX are case sensitive but on Windows are not - that can catch you out.	[reply]
Re^3: Convert Shell script to Perl by akrrs7 (Acolyte) on Oct 10, 2011 at 15:26 UTC
This is the code: `use strict; use warnings; $ENV {'LIBDIR'}='$MY_XALANHOME/bin'; $ENV {'LOCALCLASSPATH'}='$ENV{LIBDIR}:/xalan.jar'; $ENV {'LOCALCLASSPATH'}='$ENV{LOCALCLASSPATH}:$ENV{LIBDIR}/xml-apis.ja +r'; $ENV {'LOCALCLASSPATH'}='$ENV{LOCALCLASSPATH}:$ENV{LIBDIR}/xercesImpl. +jar';` [download] When I run the perl program from the command line using - perl abc.pl - I don't get any error messages. When I run the following command from the commandline: `perl $ENV{'LIBDIR'}='C:\SOMEFOLDER';` [download] I get a message saying - can't open perl script "$ENV": no such file or directory. I would've expected to create a new environment variable called LIBDIR with the c:\somefolder as the value ? Thanks	[reply] [d/l] [select]
Re^4: Convert Shell script to Perl by Utilitarian (Vicar) on Oct 10, 2011 at 15:43 UTC
Re^2: Convert Shell script to Perl by akrrs7 (Acolyte) on Oct 10, 2011 at 14:15 UTC
I guess..I know that $ENV is similar to a hashmap and has a key and a value... `$ENV {'LIBDIR'}='$MY_XALANHOME/bin';` [download] seems to be the correct way to set that. Please confirm. What I am not sure is - should I also set the JAVACMD as an environment variable using $ENV ? Thanks...	[reply] [d/l]
Re^3: Convert Shell script to Perl by Anonymous Monk on Oct 10, 2011 at 14:20 UTC
Please confirm. What happens when you Try It To See?	[reply]
Re^4: Convert Shell script to Perl by akrrs7 (Acolyte) on Oct 10, 2011 at 15:11 UTC
Re^5: Convert Shell script to Perl by eyepopslikeamosquito (Bishop) on Oct 10, 2011 at 19:28 UTC
Re^2: Convert Shell script to Perl by akrrs7 (Acolyte) on Oct 10, 2011 at 15:46 UTC
I've tried the following code: `use strict; use warnings; $ENV {'LIBDIR'}='C:/eWorkspace/myPerlProgram'; $ENV {'LOCALCLASSPATH'}='$ENV{LIBDIR}:/xalan.jar'; $ENV {'LOCALCLASSPATH'}='$ENV{LOCALCLASSPATH}:$ENV{LIBDIR}/xml-apis.ja +r'; $ENV {'LOCALCLASSPATH'}='$ENV{LOCALCLASSPATH}:$ENV{LIBDIR}/xercesImpl. +jar'; system "$ENV{LIBDIR}/xalan_perl.pl"` [download] I've then run this program from the command line to get the following message: Can't spawn "cmd.exe": No such file or directory at C:\eWorkspace\myPerlProgram\ xalan_perl.pl line 33.	[reply] [d/l]
Re^3: Convert Shell script to Perl by FreeBeerReekingMonk (Deacon) on Mar 01, 2016 at 20:10 UTC
Sorry for necroposting, but in Perl, the running code should be: my $JAVACMD = "$JAVA_HOME/bin/java"; my @OUTPUT = `$JAVACMD -cp "$LOCALCLASSPATH" org.apache.xalan.xslt.Pro +cess "@ARGV"`; [download]	[reply] [d/l]


Syntactic Confectionery Delight
	PerlMonks