PERL/CGI & PHP include

[vietboy505]

I want to include a PHP file inside a PERL file..

script1.pl

#!/usr/local/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

print header();
warningsToBrowser(1);

print("<?php include('require_file.php') ?>\n\n");

It's in the source code, but it's never include my other php. How can I fixed that?
'require_file.php' is in the same directory the script1.pl is.

 

[sleipnir214]

What are you trying to do? How are you invoking PHP?



Want the best answers? Ask the best questions! TANSTAAFL!

 

[vietboy505]

I include the PHP page because that is my layout design.

 

[sleipnir214]

Perhaps I wasn't clear.

Your perl script outputs a PHP snippet. What do you do with that snippet? How are you getting PHP to execute it?



Want the best answers? Ask the best questions! TANSTAAFL!

 

[vietboy505]

php code config.php, this is the layout that I want.

should I do a for loop and print out each .php file instead?

<div id=menu style="float:left">
<?php include('nav_link.php') ?>
</div>

<div id="footer">
<?php include('copyright.php') ?>
</div>

<?php include('lastmodify.php') ?>

#!/usr/local/bin/perl

use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
##use XML::Simple;

print header();
warningsToBrowser(1);

print("<?php include('config.php') ?>\n\n");
my $ref = XMLin('address.xml');

print <<TABLE;
<table border="1">
<tr>
<th>Type<th />
<th>Contact<th />
<tr />

TABLE

foreach my $cat (qw(XCOM YCOM)) {
		foreach my $type (qw(Work Relative)) {
   		my $count = 0;
   			foreach my $person (keys %{$ref->{$cat}->{$type}}) {
      			my $id=$ref->{$cat}->{$type}->{$person}->{id};
      			my $name=$ref->{$cat}->{$type}->{$person}->{name};
     			 $count == 0 ? print "<tr>\n<td>$type<td />\n" : print "<tr>\n<td><td />\n";
     			 print("<td><a href='../search.asp?ID=$id'>$name</a><td />\n<tr />\n\n");
     			 $count++;
  			 }
		}
}
print '<table />';

This print out a table of name in XML file. This PERL code work except PHP part, only print to browser only.

 

[sleipnir214]

Yes, it should only print the output to the browser. Like a perl script, a PHP script must be run through an interpreter for execution. But since this is happening within the web server, instead of at the border between the web server and the internet, there will be no automagic mechanism that will execute the script.

Your scrip must explicitly invoke the PHP interpreter.



Want the best answers? Ask the best questions! TANSTAAFL!

 

[vietboy505]

I try this link, when I try in .pl file, it doesn't do nothing.
I also read this link, PERL in PHP

<?php 

    print "Hello from PHP!\n"; 
    $perl = new Perl(); 
    $perl->require("script1.pl"); 
    print "Bye!\n"; 

    ?>

Give me this:

Hello from PHP!
Fatal error: Class 'Perl' not found in C:\Inetpub\webaps\test2.php on line 4

I try include inside PHP script inside PERL script, doesn't work, so I try the PHP include of PERL file. No luck at all.

Do I need to import Perl class from PHP or something?

 

[sleipnir214]

Having read the first few paragraphs of the article to which you posted a link, I came across:

PHP's Perl extension is available from the PECL web site at

http://pecl.php.net/package/perl.

Want the best answers? Ask the best questions! TANSTAAFL!