Perl script -use essbase

In perl script , I am using
use essbase; (This statement is required to use Essbase within a Perl script)
But while compiling the perl script , this line is giving error (use essbase;)
Do we need any prerequisites in order to utilze the command "use essbase"

Successfully installed Runtime client (including ESSCMD and MaxL) on Win 2k machine and tested Essbase.pm functionality using regular Perl script (/sample/table.pl).Problem: trying to "use Essbase;" in a Perl CGI script running under Apache generates following error:"Can't load 'c:/Perl/site/lib/auto/Essbase/Essbase.dll' for module Essbase: load_file:The specified module could not be found at c:/Perl/lib/Dynaloader.pm line 206."Any one found a way to "use Essbase;" in a Perl CGI script?

Similar Messages

Getting the output from a Perl script using Runtime.exec

I cannot get the output from a perl script using Java. Can someone PLEASE help?
I used the following code:
Process p = Runtime.getRuntime().exec("C:\\Perl\\bin\\Perl.exe script.pl) ;
InputSream in = p.getInputStream();
b...
do
System.out.println(b);
while ((b = in.read()) > 0)
But there is no way that I get the output in the inputstream. If I use the command "cmd script.pl", the output is displayed in the Dos box, but also not in the inputstream.
I will appreciate any help.

Try this
Process p = Runtime.getRuntime().exec("C:\\Perl\\bin\\Perl.exe script.pl) ;
BufferedReader rd = new BufferedReader(new InputStreamReader(p.getInputStream()));
String str;
while((str=rd.readLine())!=null){
System.out.println(str);
Manu

Running sql or perl script using DBMS_JOB

Hi,
Is there a way to run a sql or perl script using DBMS_JOB procedures? I have a perl script which checks out the table usage and emails the report to specific users. I want to run this script in a job scheduler, where I am using dbms_job to add the job. Please help. Any suggestions are greatly appreciated. Thanks.
-Kristine

You cannot run sql or perl scrips using DBMS_JOBS. You can run only Oracle procedures, functions, packages with DBMS_JOBS. They have to be stored in the database. You will have to create a Pro*C program that is listening on the pipe and push data to that pipe by using dbms_pipe. Then you can execute anything you want.

Perl script using perldap under unix

Hi,
I've got a perl script (used by a UTC instance) which runs on windows NT and which use the perldap API.
I'm trying to install it on Solaris with the Directory Server 5.1 SP2 and the Meta Directory 5.1 installed.
When i use the nsperl located in ../iplanet/servers/lib/nsPerl5.005_03, the script works.
But when i use it with the nsperl located in sunone/servers/bin/utc50/admin/bin (which is used by the UTC instance) it doesn't work.
The error message is :
Can't locate loadable object for module Mozilla::LDAP::API in @INC (@INC contains: /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/sun4-solaris /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/site_perl/sun4-solaris /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/site_perl . /LOCAL/nsPerl5.004_04/lib/sun4-solaris /LOCAL/nsPerl5.004_04/lib /LOCAL/nsPerl5.004_04/lib/site_perl/sun4-solaris /LOCAL/nsPerl5.004_04/lib/site_perl .) at /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/sun4-solaris/Mozilla/LDAP/Utils.pm line 29
BEGIN failed--compilation aborted at /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/sun4-solaris/Mozilla/LDAP/Utils.pm line 29, <GEN0> chunk 26.
BEGIN failed--compilation aborted at /var/cyril/sunone/servers/lib/nsPerl5.004_04/lib/sun4-solaris/Mozilla/LDAP/Conn.pm line 32, <GEN0> chunk 26.
Does anybody know how to do to avoid this problem ?
Thanks a lot.

The message indicates PerLDAP is not installed into that Perl library. You could install, but do you need to really? If you need to run PerLDAP Metadirectory scripts, then maybe this would be the only way. But I would check with support - this may not be supported - changing the Perl install with Metadirectory. But they should be able to tell you how. If you don't need to run the PerLDAP Meta-scripts, then just use a seperate Perl install from the ones that come with the Sun servers. We use #!/usr/local/bin/perl.

Execute perl-script using java

Hi All
I would like to execute a perl script (inside a java app) and retrieve its output. This java program needs this output.
Can someone give me information on how to do this ?
Thanks a lot in advance
Luca

Ok, solved it:
import java.lang.Runtime ;
import java.io.* ;
public class Test {
     public static void main ( String ARGV[] ) {
          Runtime r = Runtime.getRuntime() ;
          Process p = null ;
          DataInputStream dis = null ;
          String s ;
          try {
               String cmd[] = new String[1] ;
               cmd[0] = "./a.pl" ;
               p = r.exec(cmd) ;
          dis = new DataInputStream(p.getInputStream());     // create file I/O
               s = dis.readLine();
               System.out.println("|"+s+"|") ;
               s = dis.readLine();
               System.out.println("|"+s+"|") ;
          catch(IOException e) {}
}

How to launching a perl script by the "begin" script of a jumpstart

Hi all,
i have an urgent pb with my solaris jumpstart, let me explain to you :
i want that the begin script launch some perl script, but i have a problem
here is my "begin" script:
echo "Begining ISO FLAR based jumpstart."
echo ""
echo "Starting Ullink Configuration"
env > /tmp/env
/bin/sh << EOF
/usr/bin/perl /cdrom/.archives/admin-scripts/sethostname.pl
EOFmy perl script use a STDIN
with this configuration, the perl script is launching but it runs in a loop indefinitely with an error "use of uninitialized value", because (i think) a value is return to the begin scritp and not to the perl script.
well, on a pre-installed solaris, if a launch the begin script, it happens the same thing, it runs in a loop, BUT if i comment the line "/bin/sh <<EOF" and "EOF", it works.
at this step, i say "ok it's cool my script is working", but when i use it during the jumpstart instalaltion, the perl script does not start, without any particular error.
here is my perl script, if you want to test :
#!/usr/bin/perl -w^M
# Set Hostname for Ullink Jumpstart^M
^M
use strict;^M
^M
sub hit_enter {^M
    print "Hit enter to continue\n";^M
    <STDIN>;^M
    print "\033[2J";^M
}^M
^M
sub get_hostname {^M
    my %towns_list = (^M
        'Paris' => 'PA',^M
        'New-York' => 'NY',^M
    );^M
^M
    my %sites_list = (^M
        'Office' => 'OFC',^M
        'Redbus' => 'RED',^M
        'Telehouse' => 'TLH',^M
        'DTC' => 'DTC',^M
        'iAdvantage' => 'IAD',^M
        'Nutley' => 'NUT',^M
        'Level3' => 'LV3',^M
        'Equinix' => 'EQX',^M
        'Tata' => 'TAT',^M
        'Switch-data' => 'SWI',^M
        );^M
^M
    my %usage_list = (^M
        'Production' => 'PRD',^M
        'UAT' => 'UAT',^M
        'DMZ' => 'DMZ',^M
    );^M
^M
    sub select_list {^M
        my $counter=-1;^M
        my %hash_list = @_;^M
        my @keys = keys %hash_list;^M
^M
        # Clear screen^M
        print "\033[2J";^M
        print "In which country this machine is hosted or will be host and will be used ?\n\n";^M
^M
        # Get all keys from hash^M
        my $key;
        while ($key = each %hash_list ) {^M
            $counter++;^M
            print "$counter - $key\n";^M
        }^M
^M
        print "\nChoose the number corresponding to your choice :\n";^M
        my $choice_number;
        chomp ($choice_number = <STDIN>);^M
^M
        # Verify answer^M
        if (($choice_number =~ /\d+/) and ($choice_number <= $counter)) {^M
            # Add choice to chosen hostname^M
            my $chosen=$hash_list{$keys[$choice_number]};^M
            return $chosen;^M
        } else {^M
            print "\nYour answer is not correct, you need to enter a number between 0 and $counter\n";^M
            &hit_enter;^M
            &select_list;^M
        }^M
    }^M
^M
    sub srv_number {^M
        print "\033[2J";^M
        print "What is the server number ?\n";^M
        my $server_number;
        chomp ($server_number = <STDIN>);^M
        if ($server_number =~ /\d+/) {^M
            return $server_number;^M
        } else {^M
            print "\nYour answer is not correct, you need to enter a number\n";^M
            &hit_enter;^M
            &srv_number;^M
        }^M
    }^M
^M
    my $full_hostname = &select_list(%towns_list).'-';^M
    $full_hostname = $full_hostname.&select_list(%sites_list).'-';^M
    $full_hostname = $full_hostname.'SRV-';^M
    $full_hostname = $full_hostname.&select_list(%usage_list).'-';^M
    $full_hostname = $full_hostname.&srv_number;^M
^M
    sub write_hostname2tmp {^M
        open (HOSTNAME, ">/tmp/set_hostname") or warn "Couldn't write $_[0] to temp file : $!\n";^M
            print HOSTNAME "$_[0]\n";^M
        close (HOSTNAME);^M
    }^M
^M
    print "\033[2J";^M
    print "Is $full_hostname the correct name for this server ? (y/n)\n";^M
    if (<STDIN> =~ /y|yes/i) {^M
        &write_hostname2tmp($full_hostname);^M
    } else {^M
        print "Would you like to retry (r) or set manually the hostname (s) ? (r/s)\n";^M
        if (<STDIN> =~ /s/i) {^M
            print "Type the full required name and hit enter when finished :\n";^M
            chomp ($full_hostname = <STDIN>);^M
            &write_hostname2tmp;^M
        } else {^M
            &get_hostname;^M
        }^M
    }^M
}^M
^M
# Start configuration^M
print "\033[2J";^M
print "\n########################################################\n";^M
print "#\t\t\t\t\t\t       #\n";^M
print "#\t\t\tULLINK\t\t\t       #\n";^M
print '# Solaris Environnement Installation for Datacenters #';^M
print "\n#\t\t\t\t\t\t       #";^M
print "\n########################################################\n\n";^M
print "Before starting installation, you need to enter a set of informations.\n(answer to all questions, you can Ctrl+C to stop now)\n\n";^M
&hit_enter;^M
^M
&get_hostname;^Mthank for your help
Edited by: ullink on Jun 25, 2009 6:05 AM

Hi Manju,
You can try the following command and check if any helps:
Get-Exchangeserver |where-object{$_.AdminDisplayVersion -like "Version 15*"} |Get-MailboxStatistics | Ft -auto -wrap DisplayName,database,servername,*size*,*time*
Best regards,
Niko Cheng
TechNet Community Support

Perl-script Net::SMTP and iMS. How To? :(

How to configure iMS to send mail with Perl-script using Net::SMTP module?
Script and iMS must run in different hosts.

Thats more a topic for perl and smtp than it is for IMS. Anyway, you could do:
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'mailserver.host.com';
%mail = (
To => '[email protected]',
From => '[email protected]',
Message => 'this is my message!,
Subject => 'Test Subject',
sendmail(%mail) or die "Mail Not Sent!";

Calling the DTExec from Perl Script and need to get the Return Value (Sucess or Failure)

I am able to execute the SSIS Package from Perl Script using DTExec. But i need to get the return code of the SSIS Execution. Is their any option available to get the Success or Failure information from Perl ?

Exit codes returned from dtexec utility
When a package runs, dtexec can return an exit code. The exit code is used to populate the ERRORLEVEL variable, the value of which can then be tested in conditional statements or branching logic within a batch file. The following table lists
the values that the dtexec utility can set when exiting.
http://technet.microsoft.com/en-us/library/hh231187.aspx
There's a wrinkle if the package is running in the SSIS Catalog:
http://www.mattmasson.com/2012/02/exit-codes-dtexec-and-ssis-catalog/
David
David http://blogs.msdn.com/b/dbrowne/

Urgent Problem in Executing perl script from shell script

Hello,
I've a shell script on one server (source) and a perl script on another (target).
My perl script will check whether the directoryname, filename provided by shell script exists on the target server or not.
My shell script is as follows:
#! bin/bash
cmd=`ssh user@target "perl /home/user/test_dir/validate_file.pl"`
echo $cmd
And my perl script uses a package CU_Functions.pm, which is in the same directory as the perl script on the target server.
But when I invoke the perl script from shell script, I get the following error:
Source:user> (db:ias10g12_mid_db) /home/user/perl
$ sh /home/user/arcs/arcs_conn.sh
user@target's password:
Can't locate CU_Functions.pm in @INC (@INC contains: /local/perl-5.6.1/lib/5.6.1/i686-linux /local/perl-5.6.1/lib/5.6.1 /local/perl-5.6.1/lib/site_perl/5.6.1/i686-linux /local/perl-5.6.1/lib/site_perl/5.6.1 /local/perl-5.6.1/lib/site_perl .) at /home/user/test_dir/validate_file.pl line 13.
BEGIN failed--compilation aborted at /home/user/test_dir/validate_file.pl line 13.
Please let me know if I need to do any configurations prior to call the perl script.

As for the Perl INC, I cannot recall the environment variable that sets that but the following example should work:
ssh user@host "export ENV_VAR=/path/to/include/files:$ENV_VAR ; /full/path/to/script"

MaxL (use Essbase.pm) via Perl CGI??? (remake)

I am sorry for my Englishcit: "Problem: trying to "use Essbase;" in a Perl CGI script running under Apache generates error "The answer was such:" I ran into similar problems and discovered that ARBORPATH must be defined in your script's environment and that LIBPATH must include $ARBORPATH/bin and $ARBORPATH/dlls. I added these environmnet definitions to a common module that I include everywhere. I make sure is use this common module before attempting to use Essbase. "Q:How IT is made?I have written:$ENV{ARBORPATH} = 'F:/Essbase';use lib 'F:/Essbase';use lib 'F:/Essbase/bin';use lib 'F:/Essbase/dll';$ARBOTPATH = 'F:/Essbase';use Essbase;(I am sorry for my perl)Does not work.Where at me a mistake?(in DNA to not search:)

Successfully installed Runtime client (including ESSCMD and MaxL) on Win 2k machine and tested Essbase.pm functionality using regular Perl script (/sample/table.pl).Problem: trying to "use Essbase;" in a Perl CGI script running under Apache generates following error:"Can't load 'c:/Perl/site/lib/auto/Essbase/Essbase.dll' for module Essbase: load_file:The specified module could not be found at c:/Perl/lib/Dynaloader.pm line 206."Any one found a way to "use Essbase;" in a Perl CGI script?

How to disable "This Connection is Untrusted" warning in firefox using shell or perl script running on Linux Platform

We have QA automation jobs that invoke user interface tests in Firefox running on a virtual Linux host.
My tests perform regression, but I'm held up because of the Firefox This Connection is Untrusted warning.
My current requirement is to ignore this connection untrusted warning, which comes up when accessing an HTTPS website and i want this to be disabled through either a shell or a Perl script.
I can do this manually using the steps below, but this will not work for my current problem since the virtual Linux hosts are created dynamically on submission of automation jobs.
Go to Tools > Options > Advanced "Tab"(?) > Encryption Tab Click the "Validation" button, and uncheck the checkbox for checking validity.
Is there any Perl or shell script that disables this certificate warning?

There might be an add on to accomplish this:
*[https://addons.mozilla.org/en-US/firefox/addon/skip-cert-error/ Skip Cert Error]
However if we cannot find a solution there might be another place for support:
*[https://support.mozilla.org/en-US/kb/where-go-developer-support Where to go for developer support]

Best method for timestamping? (for later use with perl script)

What is the best method that I can use to timestamp events in Linux for later use with perl script?
I am performing some energy measurements.. where I am running several tasks separated by 20 secs in between. Before I start any execution of tasks, I always place initial delay for me to start the script and start the measurement device.
My problem is that I don't know how long is that first delay exactly. So to solve this, I thought I could use date commands to time stamp all tasks.. or at least to timestamp first dela.
Here is example of what I am doing:
1st delay
task 1
20s
task 2
20s
task 3..... etc
What would be the best to use?

logger.
It posts messages straight to the system log. You can see the message, in all its glory using tools like journalctl. You will see the message, the date, time, host name, user name, and the PID of logger when it ran.

I have perl scripts that I want to be able to run with my iplanet web server 6.0. How can I make it work in Windows NT? (Because I have no problem when I use it with Linux).

Hi Melanie,
In order to run a PERL script under Windows NT the iPlanet Web Server needs to know where to find the PERL interpreter.
follow these steps :
1) Make sure Windows NT knows what a .pl file is. In file Manager click on file and choose associate from the menu. Check the "files with extension" drop-down list for pl - if it exists verify that it is pathed to your perl.exe. If it is not already on the list click the "New Type" button. In the Filetype box put pl. Choose open from the Action drop-down list. In the Command box specify the full path to your perl.exe interpreter (Make sure to use short filenames, rather than long filenames.) Click the OK button. Then click the Close button in the main Associate dialog box. Double click a .pl file to test - it should automatically launch the PERL interpreter and feed it your .pl file.
2) Create a directory to contain your .pl scripts.
~server_root\shell-cgi is a good choice.
or \cgi-bin\
NOTE: Make very sure that this directory is NOT part of the document root, it should have it's own directory (preferably at the same level of the docroot).
3) In the Admin Server select Programs.
4) Choose CGI directory (normally) or WinCGI directory or ShellCGI Directory depending on ur choice from the Programs menu.
5) Put the URL Prefix you would like to map to your Shell-CGI directory into the URL Prefix field.
6) Put the full path to your Shell-CGI directory in the Shell CGI directory field.
7) Click OK.
8) The save and apply changes page will display your changes and give you the opportunity to verify them. If they are correct click the Save and Apply button. If not Click the Undo button and go back to step 4.
(9)You can then call your .pl scripts directly by referencing the directory mapping that you have just created. For example:
http://my.server.whatever/shell-cgi/ myscript.pl
this should work now.
If not Pls Mail me.
regards
T.Raghulan
[email protected]

Using perl scripts in OWB

Dear all,
Is is possible to cal perl scripts from OWB?.
Thanks in advance
Mehdi

... nichts zu danken, ich wünsche Dir eine sichere und erfolgreiche Zeit. Bei Problemen einfach hier melden.
Grüße
Detlef

Folder Action to Launch Perl Script

Hello.
I wrote a perl script which I wanted to execute when a file was dropped into a folder. I added a folder action with a very simple applescript:
on adding folder items to this_folder after receiving added_items
do shell script ¬
("perl /Users/Alexander/Library/Scripts/gte2.pl")
end adding folder items to
The folder action didn't do anything, any thoughts on what I'm doing wrong? Note, the perl script works fine when I run it from the terminal.
thanks.

Thanks Camelot, I appreciate the help. My script below is trying to read data from a file in folder in my system. So I will try your suggestion, I didn't realize the environment and path my be different.
Regards Alex
#!/usr/bin/perl -w
#This program is to convert files from gamin running GPS watch to text file which can be loaded into excel.
# To make executable, remember to set: chmod u+x <file>
#set all the flags. Note the flags are used to stop the matching
$i = 1; $k = 0; $start = "no";
#Open data file and find values
open(DATA,"/Users/Alexander/Alex's Misc/Health/Garmin_Conversion/run.tcx") || die "Couldn't open file*\n";
#read in the data line by line until "end of file"
while (<DATA>){
#start parsing for information to keep
if (/.<Id>./) {
@Idline=split(/>/);
@Idbeat=split(/T/,$Idline[1]);
$Id=$Idbeat[0];
if (/.<Track>./){
$start = "yes";
if ($start eq "yes"){
if (/.<Time>./) {
@timeline=split(/T/);
@timebeat=split(/Z/,$timeline[2]);
$Time[$i]=$timebeat[0];
elsif (/.<LatitudeDegrees>./) {
@HRline=split(/>/);
@HRbeat=split(/</,$HRline[1]);
$Latitude[$i]=$latbeat[0];
elsif (/.<LongitudeDegrees>./) {
@longline=split(/>/);
@longbeat=split(/</,$longline[1]);
$Longitude[$i]=$longbeat[0];
elsif (/.<AltitudeMeters>./) {
@altline=split(/>/);
@altbeat=split(/</,$altline[1]);
$Altitude[$i]=$altbeat[0];
elsif (/.<DistanceMeters>./) {
@distline=split(/>/);
@distbeat=split(/</,$distline[1]);
$Distance[$i]=$distbeat[0];
elsif (/.<Value>./) {
@HRline=split(/>/);
@HRbeat=split(/</,$HRline[1]);
$HR[$i]=$HRbeat[0];
$i++;
} #string matching
} #if start flag is yes
} #while data loop
close (DATA) || die "couldn't close file.\n";
#write all data to file in space delimited format
open (NEWFILE, ">/Users/Alexander/Alex's Misc/Health/Garmin_Converted/$Id run") || die "can't create file.\n";
$Time[0]="Time"; $Latitude[0]="Latitude"; $Longitude[0]="Longitude"; $Altitude[0]="Altitude"; $Distance[0]="Distance"; $HR[0]="HR";
print NEWFILE "0 $Time[0] $Latitude[0] $Longitude[0] $Altitude[0] $Distance[0] $HR[0]\n";
for ($j = 1; $j <= $i; $j++) {
$k=$j+1;
print NEWFILE "$j $Time[$j] $Latitude[$j] $Longitude[$j] $Altitude[$j] $Distance[$j] $HR[$j]\n";
} #for j loop
close (NEWFILE) || die "couldn't close newfile.\n";
#This is the end of the program

Perl script -use essbase

Similar Messages

Maybe you are looking for