02-06-2007
I like to require any other files at the beginning of the main script then just call the routines in them as needed. This may or may not be the best way, but it works pretty well for me. By the way, if I remember correctly, I believe the file you're calling does not necessarily need the standard perl script header, does not have to end in "pl" or "cgi", and does not need executable permissions.
(main_file.pl)
#!/usr/bin/perl
require "other_file.pl";
&do_something;
&do_something_else;
exit;
(other_file.pl)
sub do_something{
print "Content-type: text/html\n\n";
print "ok";
}
sub do_something_else{
print "Content-type: text/html\n\n";
print "ok again";
}
1; # return true
I didn't test that script, but I know it's real close to what I do.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi all,
Not sure if this is the right forum to post query regarding perl script.
I have a perl script which internally calls a shell script. My problem is that the shell script should be passed command line arguments.
I call a shell script from perl using:
system("sript.sh");
How do... (3 Replies)
Discussion started by: gurukottur
3 Replies
2. Shell Programming and Scripting
Hi,
I would like to invoke "Winzip" utility from a perl script, input the name of zip file and provide output path for unzipped files. Any pointers will be appreciated.
Thanks (5 Replies)
Discussion started by: MobileUser
5 Replies
3. Shell Programming and Scripting
I call a EXPECT script from my perl script with machine IP and a FIle. The script logins to the machine and exports the value. The values to be exported or stored in a file.
I have close to 10 machines and I have created 10 files and pass the corresponding files in command line, Now I could like... (4 Replies)
Discussion started by: ramkriz
4 Replies
4. Shell Programming and Scripting
Hi,
I have one shel script which returns some value and I am calling this shell script from a perl script which needs the out put/return value of shell script.
But I don't know how to collect the output/return value of the shell script. Can any one give some idea on it?
For example:
The... (1 Reply)
Discussion started by: siba.s.nayak
1 Replies
5. Shell Programming and Scripting
hi all,
I have 3 perl scripts a.pl,b.pl and c.pl
each of these work when i pass a date for eg: perl c.pl 2010-05-27
now i want to write a perl script that would call the 3 scripts and make it run all the 3 scripts (a.pl,b.pl,c.pl) parallelly rather than 1 after the other.......
pls... (2 Replies)
Discussion started by: siva_nagarajan
2 Replies
6. Shell Programming and Scripting
I am creating a startup script for an application. This application's startup script is in bash. It will also need to call a perl script (which I will not be able to modify) for the application environment prior to calling the application. The problem is that this perl script creates a new shell... (5 Replies)
Discussion started by: leepet01
5 Replies
7. Shell Programming and Scripting
I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard.
From parent.pl
$input1=123;
$input2=abc;
I tried calling it with
system("/usr/bin/perl child.pl $input1 $input2");
and
`perl... (1 Reply)
Discussion started by: grajp002
1 Replies
8. Shell Programming and Scripting
Can someone let me know how could I achieve this
In one of per script I am calling the shell script but I need to so one thing that is one shell script call I need to pass pne argument.In below code I am calling my ftp script but here I want to pass one argument so how could I do this (e.g:... (5 Replies)
Discussion started by: anuragpgtgerman
5 Replies
9. Shell Programming and Scripting
Hi,
I am working on a sever A.
I want to write a perl script to execute a shell script persent on the server B.
please help me in this.
thanks in advance. (3 Replies)
Discussion started by: anandgodse
3 Replies
10. Shell Programming and Scripting
I am calling a perl script from shell script.
$ cat mah_appln_bkp_oln.ksh
#!/bin/ksh
. /udb/home/udbappln/.profile
. /udb/home/udbappln/sqllib/db2profile
Com=/udb/udbappln/utility/systemscripts/currentUMR
perl $Com/backup.pl -d dbname --tsm --purgetsmcopies 21 --purgetsmlogs
exit 0
... (1 Reply)
Discussion started by: ilugopal
1 Replies
LEARN ABOUT OSX
mime::field::conttype
MIME::Field::ContType(3) User Contributed Perl Documentation MIME::Field::ContType(3)
NAME
MIME::Field::ContType - a "Content-type" field
DESCRIPTION
A subclass of Mail::Field.
Don't use this class directly... its name may change in the future! Instead, ask Mail::Field for new instances based on the field name!
SYNOPSIS
use Mail::Field;
use MIME::Head;
# Create an instance from some text:
$field = Mail::Field->new('Content-type',
'text/HTML; charset="US-ASCII"');
# Get the MIME type, like 'text/plain' or 'x-foobar'.
# Returns 'text/plain' as default, as per RFC 2045:
my ($type, $subtype) = split('/', $field->type);
# Get generic information:
print $field->name;
# Get information related to "message" type:
if ($type eq 'message') {
print $field->id;
print $field->number;
print $field->total;
}
# Get information related to "multipart" type:
if ($type eq 'multipart') {
print $field->boundary; # the basic value, fixed up
print $field->multipart_boundary; # empty if not a multipart message!
}
# Get information related to "text" type:
if ($type eq 'text') {
print $field->charset; # returns 'us-ascii' as default
}
PUBLIC INTERFACE
boundary
Return the boundary field. The boundary is returned exactly as given in the "Content-type:" field; that is, the leading double-hyphen
("--") is not prepended.
(Well, almost exactly... from RFC 2046:
(If a boundary appears to end with white space, the white space
must be presumed to have been added by a gateway, and must be deleted.)
so we oblige and remove any trailing spaces.)
Returns the empty string if there is no boundary, or if the boundary is illegal (e.g., if it is empty after all trailing whitespace has
been removed).
multipart_boundary
Like "boundary()", except that this will also return the empty string if the message is not a multipart message. In other words,
there's an automatic sanity check.
type
Try real hard to determine the content type (e.g., "text/plain", "image/gif", "x-weird-type", which is returned in all-lowercase.
A happy thing: the following code will work just as you would want, even if there's no subtype (as in "x-weird-type")... in such a
case, the $subtype would simply be the empty string:
($type, $subtype) = split('/', $head->mime_type);
If the content-type information is missing, it defaults to "text/plain", as per RFC 2045:
Default RFC 2822 messages are typed by this protocol as plain text in
the US-ASCII character set, which can be explicitly specified as
"Content-type: text/plain; charset=us-ascii". If no Content-Type is
specified, this default is assumed.
Note: under the "be liberal in what we accept" principle, this routine no longer syntax-checks the content type. If it ain't empty,
just downcase and return it.
NOTES
Since nearly all (if not all) parameters must have non-empty values to be considered valid, we just return the empty string to signify
missing fields. If you need to get the real underlying value, use the inherited "param()" method (which returns undef if the parameter is
missing).
SEE ALSO
MIME::Field::ParamVal, Mail::Field
AUTHOR
Eryq (eryq@zeegee.com), ZeeGee Software Inc (http://www.zeegee.com). David F. Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
perl v5.16.2 2012-06-08 MIME::Field::ContType(3)