Ad:

Perl Discussion Thread
Unsolved
Views: 3325

Apr 5th, 2007

Multiple scripts in one file

Expand Post »

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

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:

Perl Syntax (Toggle Plain Text)
$command = "ps";
system $command;
$command = "ps";
system $command;

Any help is appreciated greatly.
- Dano

Similar Threads

How to stop opening multiple instance for a jar file in Java
Multiple Exe Project handle Code with VB6.0 in Visual Basic 4 / 5 / 6
how to call a function from one file to another file in Shell Scripting
0 file in root? in Mac OS X
Passing result codes to a batch file in Python

nanodano

Reputation Points: 36

Solved Threads: 2

Junior Poster in Training

Offline

78 posts
since Feb 2005

Permalink

Apr 5th, 2007

Re: Multiple scripts in one file

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

This works:

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

nanodano

Reputation Points: 36

Solved Threads: 2

Junior Poster in Training

Offline

78 posts
since Feb 2005

Permalink

Apr 5th, 2007

Re: Multiple scripts in one file

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

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;

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Apr 5th, 2007

Re: Multiple scripts in one file

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

Perl Syntax (Toggle Plain Text)
$command = "ps";
system $command;
$command = "ps";
system $command;

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

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:

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

or stick with the Shell module

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: String replacement in a file

Next Thread in Perl Forum Timeline: Tomcat-Perl-Perl

DaniWeb Message

Cancel Changes

User Name
Password