Passing text from perl to PHP

[Guern1]

Hi

Just a quick question

Is it possible from a Perl script to take a line of text which is generated by this Perl script and pass it to a PHP script which will deal with the web side of things

I have the Perl script that gives the output test and I have the PHP file just need to combine the two

Both files are all on the same PC

Thanks Keith

[prn]

Hi Keith,

I'm sure it is possible. It's undoubtedly even easy, but it's really a PHP question, not a Perl question. Since it's a web application, it will be controlled by whatever routine handles the web request and you said that you have a PHP routine that handles the web end of it. The workflow of any web request is:

webserver gets http request
webserver passes http parameters to handler
handler does work
handler passes result back to webserver
webserver passes data to requester
 

Now this is all very oversimplified, but basically your handler seems to be a PHP routine and that farms out some of its work to a Perl routine, right? I know of no constraints that require ALL of the backend work to be done by Perl or ALL by PHP. It would certainly be possible for most any webserver to pass some requests to a PHP routine and others directly to a Perl routine. So I'm just taking you at your word on your description of the division of labor here.

Anyway, whatever it is that the PHP routine does, it will need to parse out whatever it needs to pass to the Perl routine and call the Perl. Exactly how it does that may well depend on what it does and how it does it. I can easily imagine multiple possibilities if the division of labor were reversed. But since you are really asking a PHP question you are likely to get a better discussion in the PHP forum. You are asking how to call an external routine (with specified input parameters and output, the fact that it is written in Perl is pretty much irrelevant) from a PHP routine that does ...? I'm sure they will need more detail about what kinds of parameters you need to pass and what kind of result you expect to get back.

Sorry I couldn't answer your quesiton more directly, but those are the sorts of questions I'd give back to you if it were a Perl quesiton.

Best Regards,
Paul

[Guern1]

Thanks for the help Paul

What i want to achieve to something like below

#!/usr/bin/perl 
use strict; 
use LWP::Simple; 
# 
my $url = post('http://www.help.net/cgi-bin/read.cgi') or die "Couldn’t send to page."; 
 

I don’t want to read the page I want to send to it

where my script connects and sends the information to a web page
The Perl script generates an output from a database type programme and I would like to send the output to a web page

I have looked at alot of information and think I am getting confused with post etc used in HTML code

If somebody could point me in the right direction it would be most appreciated

Thanks

Keith

[prn]

Ah! So you don't really care at all what is running on the webserver. You are just trying to send data to a webserver that collects the data you send it? If your interaction with a webserver is just through the CGI interface, it really doesn't matter whether the script behind the page is PHP, Perl, C or whatever.

Does the form you are sending to require POST? If you need to use a POST method, then you are using the wrong module. LWP::Simple does not have a POST method. See perlfaq9 on that topic. There is a module LWP::Simple::Post that you might be able to use.

Alternatively, you might check out Getting more out of LWP::Simple, which does have some suggestions including the fact that web scripts often don't really care if you submit using GET instead of POST. It's probably worthwhile reading in any case.

HTH,
Paul

[KevinADC]

Both files are all on the same PC

Sounds like you just need to write the results of the perl program to a file/database and have your PHP program open the file. Why are you trying to do this via http/cgi?

[Guern1]

Hi Kevin

Thanks for the advice

Being new to Perl but having done some HTML I have got myself into a bit of a mess on this one its a case of a little knowledge is dangerous.

I was thinking of trying to post the information from one type of script to another a bit like using a web form to a CGI script for further processing.

I will work it out its all part of the learning process a few pointers from you experts usually puts me on the right track

Thanks again

Keith

[Guern1]

Hi

Ok I am making progress here but I am stuck again

Belowe is what i have come up with and it works fine doing just want i want it to do.

 sub send_other 
{
my $dest = shift;
my $msg = shift;
 
 
# start a new sms message
 
use LWP::UserAgent;
use HTTP::Request::Common;
use URI::Escape;
 
# format sms message
 
$post_data = ();
$post_data{'sdn'} = "[phone]";
$post_data{'message'} = " this is my messsage !";
$post_type = "http://";
@post_servers = ("me.me.com", "me.me.com",
"me.me.com", "me.me.com");
$post_path = "/sms1.php";
my $ua = LWP::UserAgent->new(agent => 'dxg perl client');
foreach $server (@post_servers) {
my $resp = $ua->request(
POST $post_type.$server.$post_path,
Content_Type => 'form-data',
Content => [ %post_data ]
);
if ($resp->is_success) {
print $resp->content;
last;
} else {
print "Error: ".$post_type.$server.$post_path." -
".$resp->status
print "Error: ".$post_type.$server.$post_path." -
".$resp->status_line."\n";
}
}
}
 

Now when I put this section of perl into the main script and runit i get the following messages and don't understand why

Global symbol "$post_data" requires explicit package name at DXGateway.pl line 1521.
Global symbol "%post_data" requires explicit package name at DXGateway.pl line 1522.
Global symbol "%post_data" requires explicit package name at DXGateway.pl line 1523.
Global symbol "$post_type" requires explicit package name at DXGateway.pl line 1524.
Global symbol "@post_servers" requires explicit package name at DXGateway.pl line 1525.
Global symbol "$post_path" requires explicit package name at DXGateway.pl line 1527.
Global symbol "$server" requires explicit package name at DXGateway.pl line 1529.
Global symbol "@post_servers" requires explicit package name at DXGateway.pl line 1529.
Global symbol "$post_type" requires explicit package name at DXGateway.pl line 1531.
Global symbol "$server" requires explicit package name at DXGateway.pl line 1531.
Global symbol "$post_path" requires explicit package name at DXGateway.pl line 1531.
Global symbol "%post_data" requires explicit package name at DXGateway.pl line 1533.
Global symbol "$post_type" requires explicit package name at DXGateway.pl line 1539.
Global symbol "$server" requires explicit package name at DXGateway.pl line 1539.
Global symbol "$post_path" requires explicit package name at DXGateway.pl line 1539.
syntax error at DXGateway.pl line 1541, near "->status

why if it runs stand alone does it now give so many errors

Any thoughts?

Many thanks

Keith

[KevinADC]

it's because your main program is using "strict" which is a good thing. So all the lexical variables must be declared with "my" just like you started doing here:

sub send_other {
   my $dest = shift;
   my $msg = shift;

[Guern1]

Hi Kevin

Could you give us an example I have tried info from your last post now i get syntax error near "$post_data{"

Thanks

Keith

[Guern1]

Thanks all for your help

I have now have this script running and doing what I want.
It may not be the best example ever written but its working.

Many thanks for all the help

Keith

[miller]

Change line 15

$post_data = ();
 

to

my %post_data = ();
 

- Miller