Java with Perl scripts

Hello,
I would like to have my applet use a perl script. How do I embed a perl script in Java? Is there a special library? Thanks.
[email protected]

You could probably just use Runtime.exec() to execute the script on the server.
- Sheepy

Similar Messages

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.

Amateur with perl script

Trying to use the small perl script referred to in the message down below to send mail from the command line using unix mail. Any advice about what the error message immediately below refers to will be appreciated.
"smtp.mac.com" is not exported by the Net::SMTP module
Can't continue after import errors at myprogram.pl line 5
BEGIN failed--compilation aborted at myprogram.pl line 5.
Bill, below is a good example of how to do it with the perl script method. I use my verizon smtp server (outgoing.verizon.net) to send the mail. I haven't been able to use the postfix server on my own Mac to do it. Maybe someone can help us learn how to do that.
http://members.toast.net/strycher/perl/examplenetsmtp.htm
Boyd

I suggest that you find a better
source of information. I was finally able to make the
date_r method work in this example but I had to write
my own tz_offset function.
I agree, I'd find a better example somewhere. Looking at that page, I'm fairly certain that those examples are simply taken out of much larger scripts without regard to whether they'd actually run as written.
And the date_r subroutine is just plain odd, if you ask me. I'm not sure why he'd go to the trouble of writing it like that when he could do it with two lines of code. Unless he can't use POSIX on Windows...
First, he'd just have to add
<pre class="command">use POSIX qw(strftime);</pre>to the top of his script, then he could get the date/time formatted more or less like he had it with this:
<pre class="command">my $date = strftime("%A, %e %B %Y %T %z", localtime(time));</pre>I'm not sure about the time zone offset being "-500" and not "-0500", which is more what I'm used to seeing.
This page has a more straightforward explanation and example of how to use Net::SMTP. Just go through it down to just before "Other Neat Stuff with Net::SMTP."
charlie

Illegal character '%' at position 1 - need help with perl script!

iTunes U Access Debugging
Received
Destination kean.edu
Identity %22Jack Black%22 %3C%28jblack%29.%40kean.edu%3E %28jblack%29 %5B42%5D
Credentials STUDENT%40urn%3Amace%3Aitunesu.com%3Asites%3Akean.edu
Time 1178737992
Signature 8786768fc3ebf9d3faf404a42bdb8a8d14c481e270fb75f084ebdd815553e1e4
Analysis
The destination string is valid and the corresponding destination item was found.
The identity string is invalid: Illegal character '%' at position 1.
The credential string is valid but contains no known credentials.
The credential string contains the following credential which is not used within iTunes U:
STUDENT%40urn%3Amace%3Aitunesu.com%3Asites%3Akean.edu
The time string is valid and corresponds to 2007-05-09 19:13:12Z.
The signature string is valid.
Access
Because the received signature and time were valid, the received identity and credentials were accepted by iTunes U.
In addition, the following 2 credentials were automatically added by iTunes U:
All@urn:mace:itunesu.com:sites:kean.edu
Authenticated@urn:mace:itunesu.com:sites:kean.edu
With these credentials, you have browsing and downloading access to the requested destination.

Ken
Thanks for lookiing into the issue.
I am using the perl file downloaded from the iTunesU website.
Here is the script:
the only thing i replaced in this script is the shared secret, debug suffix, display name, email address and username with appropriate ones.
use strict;
use Digest::SHA qw(hmacsha256hex);
use URI::Escape;
use LWP::UserAgent;
use Encode qw(encode);
# to redirect errors to the browser
use CGI::Carp qw(fatalsToBrowser);
# to allow inputs from website using CGI scripting
use CGI qw(:standard);
sub main() {
# Define your site's information. Replace these
# values with ones appropriate for your site.
my $siteURL = "https://deimos.apple.com/WebObjects/Core.woa/Browse/kean.edu";
my $debugSuffix = "/abc123";
my $sharedSecret = "YOURSHAREDSECRETKEYCODE";
my $administratorCredential = "Administrator\@urn:mace:itunesu.com:sites:kean.edu";
# Define the user information. Replace the credentials with the
# credentials you want to grant to that user, and the optional
# identity information with the identity of the current user.
# For initial testing and site setup, use the singe administrator
# credential defined when your iTunes U site was created. Once
# you have access to your iTunes U site, you will be able to define
# additional credentials and the iTunes U access they provide.
my @credentialArray = ($administratorCredential);
my $displayName = "Michael Searson";
my $emailAddress = "msearson\@kean.edu";
my $username = "msearson";
my $userIdentifier = "42";
# Append your site's debug suffix to the destination if you
# want to receive an HTML page providing information about
# the transmission of credentials and identity between this
# program and iTunes U. Remove this code after initial
# testing to instead receive the destination page requested.
# uncomment the line below to access debug information from the
# iTunes U server.
$siteURL .= $debugSuffix;
# Ready this data for transfer, the order must be correct!
my $identity = getIdentityString($displayName, $emailAddress, $username, $userIdentifier);
# turn the array of credentials into a semicolon delimited string
my $credentials = getCredentialsString(@credentialArray);
# time that this key is generated. The key is valid for 90 seconds.
my $currentTime = time;
my %token = getAuthorizationToken($identity, $credentials, $currentTime, $sharedSecret);
invokeAction($siteURL, %token)
sub getIdentityString()
# Combine user identity information into an appropriately formatted string.
# take the arguments passed into the function copy them to variables
my ($displayName, $emailAddress, $username, $userIdentifier) = @_;
# wrap the elements into the required delimiters.
my $returnValue = sprintf('"%s" <%s> (%s) [%s]', $displayName,
$emailAddress, $username, $userIdentifier);
return $returnValue;
sub getCredentialsString()
# this is equivalent to join(';', @_); this function is present
# for consistency with the Java example.
# concatenates all the passed in credentials into a string
# with a semicolon delimiting the credentials in the string.
#make sure that at least one credential is passed in
my $returnValue = "";
my $credentialCount = @_;
if ($credentialCount > 0) {
for (my $i=0; $i < $credentialCount; $i++) {
if ($i == 0) {
$returnValue = sprintf('%s', $_[$i]);
} else {
$returnValue = sprintf('%s;%s', $returnValue, $_[$i]);
} else {
die "credentialArray must have at least one credential";
return $returnValue;
sub getAuthorizationToken()
# Create a buffer with which to generate the authorization token.
my ($identity, $credentials, $expriation, $key) = @_;
my $signature;
my $buffer;
my %token_hash = ();
my $escapedUTF8EncodedCredentials = uri_escape(encode("UTF-8", $credentials), "^A-Za-z0-9\-_.* ");
my $escapedUTF8EncodedIdentity = uri_escape(encode("UTF-8", $identity), "^A-Za-z0-9\-_.* ");
my $escapedUTF8EncodedExpiration = uri_escape(encode("UTF-8", $expriation), "^A-Za-z0-9\-_.* ");
# create the POST Content and sign it
$buffer .= "credentials=" . $escapedUTF8EncodedCredentials;
$buffer .= "&identity=" . $escapedUTF8EncodedIdentity;
$buffer .= "&time=" . $escapedUTF8EncodedExpiration;
# This is necessary because uri_escape does encode spaces to pluses.
$buffer =~ s/[ ]/+/g;
# returns a signed message that is sent to the server
$signature = hmacsha256hex($buffer, $key);
$token_hash{'credentials'} = $escapedUTF8EncodedCredentials;
$token_hash{'identity'} = $escapedUTF8EncodedIdentity;
$token_hash{'time'} = $escapedUTF8EncodedExpiration;
$token_hash{'signature'} = $signature;
# append the signature to the POST content
return %token_hash
sub invokeAction()
# Send a request to iTunes U and record the response.
# Net:HTTPS is used to get better control of the encoding of the POST data
# as HTTP::Request::Common does not encode parentheses and Java's URLEncoder
# does.
my ($siteURL, %token) = @_;
#print "$token\n";
my $ua = LWP::UserAgent->new;
my $response = $ua->post($siteURL, \%token);
print "Content-type: text/html\n\n";
print $response->content;
main();
AND HERE IS THE OUTPUT
Received
Destination kean.edu
Identity %22Michael Searson%22 %3Cmsearson%40kean.edu%3E %28msearson%29 %5B42%5D
Credentials Administrator%40urn%3Amace%3Aitunesu.com%3Asites%3Akean.edu
Time 1178819683
Signature 4d012f2cb6e465dbc4ae41b4905ad3c334c695e36b06e9ae406acf02f25387d1
Analysis
The destination string is valid and the corresponding destination item was found.
The identity string is invalid: Illegal character '%' at position 1.
The credential string is valid but contains no known credentials.
The credential string contains the following credential which is not used within iTunes U:
Administrator%40urn%3Amace%3Aitunesu.com%3Asites%3Akean.edu
The time string is valid and corresponds to 2007-05-10 17:54:43Z.
The signature string is valid.
Access
Because the received signature and time were valid, the received identity and credentials were accepted by iTunes U.
In addition, the following 2 credentials were automatically added by iTunes U:
All@urn:mace:itunesu.com:sites:kean.edu
Authenticated@urn:mace:itunesu.com:sites:kean.edu
With these credentials, you have browsing, downloading, uploading, and editing access to the requested destination.

Java with Shell Scripts

How can I include shell scripts in a java program?
I want to create a GUI with Java and when I click a button or check a check box or choose something from a drop down list , I want a shell program to be called each time.For example, If i click a jbutton or check a jcheckbox, I want to execute something like this:
sed 's/$[0-9]*$$[-]$$[0-9]*$$[-]$$[0-9]*$$[-]$$[0-9:.]*$$.*$/\5\2\3\4\1\6\7/' $file >>temp;exit;;
How can show the results on the GUI?
All the graphical environment will be implemented with Java but underneath the job will be made by the scripts.
I thank you in advance.
I am looking forward to your answers.
Lazaros

Runtime#exec() returns a Process where you can call getInputStream().

Threads in java with Shell script

hello
I have shell script program which prints continuous number upto infinate.
that shell script program is running or not i want to see by using threads in java can any one help me out.
thanx
mahen

mark1971 wrote:
You have to keep in mind that once a Thread finishes the run method you must not reuse it.Perfectly said. I believe sleep() can be replaced with wait() n notify(), if it is based on pre defined condition.
For example, when input value read ( from kbd or socket etc) is "start", or time is between 2 pm and 3pm, this thread has to be executed.
Once thread done its work, it can be again moved to wait() state.
1. No need of stopping thread here.
2. I think wait() may cause to latency.
Please correct me if I am wrong.

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!";

Converting Perl Scripts into Java Servlets

Hello,
I have just been assigned the job of converting some perl scripts into Java Servlets. The first problem i have run into is with quotes. The problem is in perl you can just print out blocks of html without worrying about the quotes. ie (name="joe"). It will be a pain if i have to delimit every quote that is in the html so that i can add it to my java string. I was just wondering if anyone knows of an easy way of accomplishing this task.
Thanks,
Jon

jonhorsman said
   I have just been assigned the job of converting some perl
   scripts into Java Servlets.I was just wondering if anyone
   knows of an easy way of accomplishing this task. The easy way is to not do it - is there a business need to do this or just because someone likes java more than perl.
But presuming there is a business need, then the easist way I can think (and certainly more interesting than doing it by hand) is to write a perl script that does it for you.

How to run the perl script from java ?

Hi , I need to run the pearl script from the server and to get the result of the script thro' java using SSH
Is there any 3rd party SSH API in java ?
Please help me out
thanks in advance
karthik

This seems like a very strange thing to want to do.
What is the perl script doing?
Do other programs (not some shell script) access this server-side perl script from a different machine?
If so how do they do it?
What currently triggers the perl script to execute?
What currently handles the output from the perl script?
If you can answer these questions (and understand the answers) you should be able to come up with a different approach to this.
You do not really want to call a remote perl script from a Java program, you want to achieve the effect you think that would have if you could do it.
So find the answers to the above questions, write them on 3" x 5" cards and lay them out on your desk.
What flow of control needs to happen? Which piece of code needs to produce or consume which piece of data?
If that fails, ask you self or who ever is making you do this what are the use-cases?
If you do not know what use-cases are or do not understand them well enough try reading
Use Case Modeling (The Addison-Wesley Object Technology Series) by Kurt Bittner and Ian Spence (Paperback - Aug 30, 2002)
http://www.amazon.com/s/ref=nb_ss_gw/002-7908514-4043267?url=search-alias%3Dstripbooks&field-keywords=use+cases&x=0&y=0
It is a short and easy to read book on the subject and also one of the best.
You MUST understand WHAT you are trying to achieve before you can decide HOW you are going to achieve it.

Calling perl script from java ---help needed

I haven't been doing a lot with java lately and i'm building an app with netbeans and having some difficulty with my button calling an outside perl script I'm pasting the code and error below...any help would be greatly appreciated. It's running on fedora 9 pretty much default install...
thanks.
code:
Runtime r = Runtime.getRuntime();
Process p = null;
String s = null;
String cmd123[] = { "perl /home/deaddev/test1.pl" };
try {
p = r.exec(cmd123);
catch {
foo bar/etc/etc
error:
Oct 12, 2008 4:09:37 PM photomainmgr readToPerlActionPerformed
SEVERE: null
java.io.IOException: Cannot run program "perl /home/deaddev/test1.pl": java.io.IOException: error=2, No such file or directory
at java.lang.ProcessBuilder.start(ProcessBuilder.java:474)
at java.lang.Runtime.exec(Runtime.java:610)
at java.lang.Runtime.exec(Runtime.java:483)
at photomainmgr.readToPerlActionPerformed(photomainmgr.java:117)
at photomainmgr.access$000(photomainmgr.java:21)
at photomainmgr$1.actionPerformed(photomainmgr.java:54)
at javax.swing.AbstractButton.fireActionPerformed(AbstractButton.java:2012)
at javax.swing.AbstractButton$Handler.actionPerformed(AbstractButton.java:2335)
at javax.swing.DefaultButtonModel.fireActionPerformed(DefaultButtonModel.java:404)
at javax.swing.DefaultButtonModel.setPressed(DefaultButtonModel.java:259)
at javax.swing.plaf.basic.BasicButtonListener.mouseReleased(BasicButtonListener.java:253)
at java.awt.Component.processMouseEvent(Component.java:6101)
at javax.swing.JComponent.processMouseEvent(JComponent.java:3276)
at java.awt.Component.processEvent(Component.java:5866)
at java.awt.Container.processEvent(Container.java:2105)
at java.awt.Component.dispatchEventImpl(Component.java:4462)
at java.awt.Container.dispatchEventImpl(Container.java:2163)
at java.awt.Component.dispatchEvent(Component.java:4288)
at java.awt.LightweightDispatcher.retargetMouseEvent(Container.java:4461)
at java.awt.LightweightDispatcher.processMouseEvent(Container.java:4125)
at java.awt.LightweightDispatcher.dispatchEvent(Container.java:4055)
at java.awt.Container.dispatchEventImpl(Container.java:2149)
at java.awt.Window.dispatchEventImpl(Window.java:2478)
at java.awt.Component.dispatchEvent(Component.java:4288)
at java.awt.EventQueue.dispatchEvent(EventQueue.java:604)
at java.awt.EventDispatchThread.pumpOneEventForFilters(EventDispatchThread.java:275)
at java.awt.EventDispatchThread.pumpEventsForFilter(EventDispatchThread.java:200)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:190)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:185)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:177)
at java.awt.EventDispatchThread.run(EventDispatchThread.java:138)
Caused by: java.io.IOException: java.io.IOException: error=2, No such file or directory
at java.lang.UNIXProcess.<init>(UNIXProcess.java:164)
at java.lang.ProcessImpl.start(ProcessImpl.java:81)
at java.lang.ProcessBuilder.start(ProcessBuilder.java:467)
... 30 more
error executing perl /home/deaddev/test1.pl

jschell wrote:
sabre150 wrote:
As and alternative you can useString cmd123 = "perl /home/deaddev/test1.pl";Using the single string approach YOU have to do any quoting so with this line no quoting takes place and the script /home/deaddev/test1.pl will be executed.Although that should be true apparently it isn't. I have just run
Process p = Runtime.getRuntime().exec("perl /home/sabre/work/dev/perl/xxx.pl");
new Thread(new SyncPipe(p.getErrorStream(), System.err)).start();
new SyncPipe(p.getInputStream(), System.out).run();
int returnCode = p.waitFor();
System.out.println("Return code = " + returnCode);which correctly executes the perl script xxx.pl.
P.S. SyncPipe is a Runnable that copies an InputStream to an OutputStream.
Edited by: sabre150 on Oct 14, 2008 9:19 AM
Interesting! Even though Runtime.exec() works with a single String, ProcessBuilder fails with this approach! You have to split the argument string. This certainly looks like a bug! Some while ago I looked at the source for Runtime.exec() to look at the differences between Runtime.exec() and ProcessBuilder and found that behind the scenes Runtime.exec() uses ProcessBuilder.
More research is required.

Capture output of Perl script with jsp:include

The company's main web site has a CGI script written in Perl that generates a header, and another one that generates a footer. I would like to deploy a JSP that incorporates the header and footer without having to re-implement the header/footer Perl code in Java.
Can the <jsp:include> tag include the output from these Perl scripts?

Well, I tried it. The answer seems to be no.
I created a simple CGI hello-world thingie and tested it, works fine from a browser (I'm doing all this remotely on a friend's Gentoo box so I know it's not just cached in my browser or anything).
Then I created a simple JSP and used a fully-qualified URL pointing to the executable CGI script. While the JSP compiles and renders (I had some text in the JSP itself too), the part where it's supposed to include the content of the Perl script doesn't even appear.
I also tried putting the CGI script into my webapp directory and specifying a relative path to the script, and it doesn't seem to get executed either. To confirm that I'm doing everything right, I put together a simple HTML file that has the same output and changed the "page" attribute to point to that file instead. Sure enough, the output appears.
So the answer to my question appears to be: no, the output of a Perl CGI cannot be included into a JSP with the <jsp:include> tag. But I'm going to double-check on the Tomcat-user mailing list.

Java, Telnet, Perl & Shell Script

Hi,
I wasnt too sure where to put this, but essentially my app needs to do the following:-
- Connect from a development server to several other servers via telnet preferably.
- Once there it needs to execute a simple shell script that will be on the destination box.
Does anyone know an easy way of establishing the telnet session in Java, or how to get Java to kick off a Perl script, because we have a Perl script that can do the Telnet.
Thanks

Or you could google for "java telnet" (and probably have to exclude these forums where the same question gets repeated every couple weeks).
You can start a perl script with java.lang.Runtime.exec.

Perl script calling a java program

Hello,
I have the following perl script that executes a java program called TestSe. It passes its QUERY_STRING to the java program after printing it.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$in = $ENV{'QUERY_STRING'};
print $in;
exec 'java TestSe '.$in;
This script in placed in a cgi-bin directory on a server.
This script works when i run it manually and hardcode a string value in $in by doing
$in="Acheck";
It prints 'Acheck' on the screen and invokes the java program with Acheck as the parameter.
I tested it by typing
'perl try.cgi' on the shell after logging into the server.
However when I execute this script via. a browser then it does not exec the java program.
The QUERY_STRING is the papameter passed to this script by an html form in a browser that invokes it. The script can print the value of $in in the new browser window that it creates but it is not execing the java program.
Does anyone kow why?
Thanks

Perhaps java isn't in the PATH for the server

Execing a java program from a perl script

Hello,
I have the following perl script that executes a java program called TestSe. It passes its QUERY_STRING to the java program after printing it.
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$in = $ENV{'QUERY_STRING'};
print $in;
exec 'java TestSe '.$in;
This script in placed in a cgi-bin directory on a server.
This script works when i run it manually and hardcode a string value in $in by doing
$in="Acheck";
It prints 'Acheck' on the screen and invokes the java program with Acheck as the parameter.
I tested it by typing
'perl try.cgi' on the shell after logging into the server.
However when I execute this script via. a browser then it does not exec the java program.
The QUERY_STRING is the papameter passed to this script by an html form in a browser that invokes it. The script can print the value of $in in the new browser window that it creates but it is not execing the java program.
Does anyone kow why?
Thanks

Also if you invoke this as a CGI, the server is going to say it got a 5xx error (server exception). That's because the first output of the perl script is going to be that query string, which isn't a proper HTTP header. The server is expecting the CGI to start out with HTTP headers (such as Content-type, Location, Status) and then a blank line.

To write a perl script for running a java program from cgi of web server

I have to write a perl script to call a java program(.exe).I want to run this file through the cgi of the web server.
java myprogram
can anyone help me to write a perl script??

It depends on what the java program does. For example, does it parse HTTP headers from standard input, or what?
Are you sure it wouldn't be easier to turn the class into a servlet? etc.
Take a look at IPC::Open2 and IPC::Open3 though. You may need them. (That's just a guess.)

Java with Perl scripts

Similar Messages

Maybe you are looking for