Perl

Multiple scripts in one file

Please support our Perl advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Feb 2005

Posts: 78

Reputation: nanodano is an unknown quantity at this point

Solved Threads: 2

nanodano

Offline

Junior Poster in Training

Multiple scripts in one file

Apr 5th, 2007

Is it possible to have a perl script and a bash script in one file? Like:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#!/bin/perl
print "This is perl";
#exit perl
 
#!/bin/bash
echo "This is bash"
exit 0
#!/bin/perl
print "This is perl";
#exit perl

#!/bin/bash
echo "This is bash"
exit 0

This is probably just a complicated solution to a simple problem. I have a perl script, and at the end of it, I want to make a couple calls that I normal write in the shell.

I tried this but it does not work:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$command = "ps";
system $command;
$command = "ps";
system $command;

Any help is appreciated greatly.
- Dano

•

Join Date: Feb 2005

Posts: 78

Reputation: nanodano is an unknown quantity at this point

Solved Threads: 2

nanodano

Offline

Junior Poster in Training

Re: Multiple scripts in one file

Apr 5th, 2007

I found a solution to my own problem now. =P

This works:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
#!/bin/perl
use Shell;
$command = echo("parameters", "go", "here");
print $command; #performs echo
#!/bin/perl
use Shell;
$command = echo("parameters", "go", "here");
print $command; #performs echo

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: Multiple scripts in one file

Apr 5th, 2007

I'm not sure if this is a wise way to do this, but it should work:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$ENV{PATH}='/bin/perl:/bin/bash';
open (PS, 'ps |') or die "$!";
print <PS>;
close PS;
$ENV{PATH}='/bin/perl:/bin/bash';
open (PS, 'ps |') or die "$!";
print <PS>;
close PS;

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: Multiple scripts in one file

Apr 5th, 2007

this does not work because the system() function does not return the output of the process:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$command = "ps";
system $command;
$command = "ps";
system $command;

You use backtiks `` or qx// to capture process output:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
$output = qx/ps/;
print $output;
$output = qx/ps/;
print $output;

But on further review of interprocess communications, perldocs recommends using this safe construct:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
open PS, "-|", "ps" or die $!;
print <PS>;
close PS;
open PS, "-|", "ps" or die $!;
print <PS>;
close PS;