Perl Scripting Help Post: 302760873

Sponsored Content

Top Forums Shell Programming and Scripting Perl Scripting Help Post 302760873 by skrv on Thursday 24th of January 2013 05:05:03 PM

01-24-2013

Registered User

thanks for the reply.

i added the code to the existing perl script and ran it on Linux Server.

For some reason it is trying to find a folder under - /export/home/mqm, that means the $HOME was set for a non Linux server, even though i ran it on a linux server. So it seems it is not finding the right OS

Error:

Code:

find: /export/home/mqm/backup: No such file or directory

Part of the script which i changed:

Code:

#!/usr/bin/perl -w
use Shell qw(date);

use strict;

my $version = '0.4';
my (
        $BUDir,
        $ext,
        $current_date,
        $file_name,
  $mq_bin_dir,                  # directory where mq binaries are located
  $mq_tools_dir,                # directory where mq tools are located
  $mq_save_auths_dir,                   # directory to save files
        $mq_save_qmgr_dir,
        $qmgr_list,                             # hashref to qmgr info - returned from get_qmgr_list()
        $qmgr_name,                             # name of queue mgr - used in loop
        @bin_dirs,                              # list of places to look for mq binaries
);
#my $HOME=$ENV{'HOME'};
#my $HOME='/home/mqm';
my $os = $^O;
my $HOME = "";

if($os eq "Linux")
{
$HOME = "/home/mqm";
}
else
{
$HOME = "/export/home/mqm";
}

Last edited by Franklin52; 01-25-2013 at 05:38 AM.. Reason: Please use code tags for data and code samples

skrv

View Public Profile for skrv

Find all posts by skrv

10 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

Perl scripting

hi Can any one suggest me book for perl scripting on UNIX Platform. Regards

2. Shell Programming and Scripting

perl scripting

Hi does anyone know how to ouput "I love scripting" to "scripting love I" without using reverse() function in perl? Thanks

3. Shell Programming and Scripting

Need help in perl scripting.

Hi, To run a perl script i am giving command like this in DOS prompt d:> perl D:\<dir_name>\<dir_name>\sample.pl Its throwing the following error while running the above syntax error at <eval 4> line 1, near "use D:" Can anyone help?

4. Shell Programming and Scripting

Call Shell scripting from Perl Scripting.

Hi How to call a shell scripting through a Perl scripting? Actually I need some value from Shell scripting and passes in the Perl scripting. So how can i do this?

5. UNIX for Dummies Questions & Answers

Need help configuring Active Perl on Windows Vista.: Perl Scripting on Windows

Hi All, Need help configuring Active Perl on Windows Vista. I am trying to install Active Perl on Windows Vista. The version of Active Perl i am trying to install is : ActivePerl 5.10.1 Build 1006 After installing it through cmd, When i try to run perl -v to check the version, i get the...

6. What is on Your Mind?

Shell scripting vs Perl scripting

Hi all, I would like to start developping some good scripting skills. Do you think it would be best to start with shell scripting or Perl? I already got a fundation, really basics, in perl. but I am wondering what would be best to be good at first. Can you please help me determine which one to...

7. What is on Your Mind?

Shell Scripting vs Perl scripting

Gents, I have been working in a Solaris/Unix environment for about 9 months. I took some linux classses online before getting the job. But, I am not very good at scripting. I want to learn how to script. Do you think that I should start with Shell scripting or Perl? I wanted to continue with...

8. Web Development

Perl scripting or shell scripting?

i am going to study any one of the scripting languages mentioned above(shell 0r perl scripting) . Which is having more scope for a fresher?

9. Shell Programming and Scripting

need help in PERL Scripting

I am having file xyz.log Its content is like this int main() { d; #ifdef e; f; #else g; #ifdef h. #else i;

10. Shell Programming and Scripting

Perl Scripting

I have create this shell script #!/bin/sh if ; then echo "Usage: ./script <filename>" exit 1 elif ; then fname="$1" fi output="output.txt" i=0 ...

LEARN ABOUT DEBIAN

install-mh

INSTALL-MH(8)							     [nmh-1.5]							     INSTALL-MH(8)

NAME

       install-mh - initialize the nmh environment

SYNOPSIS

       /usr/lib/mh/install-mh [-auto] [-check] [-version] [-help]

DESCRIPTION

       Install-mh  is  the  nmh program to create the initial setup for a first-time nmh user.	Install-mh lives in two places for historical rea-
       sons.

       The -auto option does things as automatically as possible and makes install-mh less chatty.

       The user is asked for the name of the directory that will be designated as the user's nmh directory.  If this directory does not exist, the
       user  is  asked	if  it should be created.  Normally, this directory should be under the user's home directory, and has the default name of
       ``Mail''.  Install-mh writes an initial .mh_profile for the user.

       As with all nmh commands, install-mh first checks for the existence of the $MH environment variable since that gives the  profile  path	if
       set.   If  it isn't set, the $HOME environment variable is consulted to determine the user's home directory.  If $HOME is not set, then the
       /etc/passwd file is consulted.

       When creating the users initial .mh_profile, install-mh will check for the existence of a global profile  /etc/nmh/mh.profile.	If  found,
       this will be used to initialize the new .mh_profile.

       The  -check  option can be used to check whether or not nmh has been installed.	This can be used by other programs to determine whether or
       not nmh has been installed without their having to know the internals of nmh.

FILES

       $HOME/.mh_profile	  The user profile
       /etc/nmh/mh.profile	  Used to initialize user profile

PROFILE COMPONENTS

       Path:		    To set the user's nmh directory

CONTEXT

       With -auto, the current folder is changed to "inbox".

MH.6.8								   11 June 2012 						     INSTALL-MH(8)