|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
Help with Perl Module
Post 302257988 by NewDeb on Thursday 13th of November 2008 01:59:50 PM
11-13-2008
I had tried with the correct case - sorry about the typo.
Ok here is my perl script:
##################
#! /usr/bin/perl
BEGIN { push @INC,"/ws/testdir" };
use strict;
use Header qw( wrap_package );
use Env;
#print "$ENV{'PATH'}";
sub test {
print "test"
}
my $iso="stage.iso";
my $product="final.iso";
my $MAGIC_NUM="abcd";
test
my ( $header_filename ) = Header::wrap_package(
$iso,
$product,
$MAGIC_NUM,
10000,
"KEY_TLV_PACKAGE_COMPATIBILITY",
"FRU_TEST_TYPE"
)
########################
Here is the module:Header.pm
package MCP::Header;
use strict;
use warnings;
use Data:
umper;
use Digest::SHA;
use File::Basename;
use File::Spec::Functions qw( rel2abs );
use Fcntl qw( :seek );
use Util::Misc;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw( wrap_package );
our @EXPORT_OK = qw();
<snip>
sub wrap_package {
...
}
###########
I copied Header.pm into my local directory /ws/testdir and am trying to execute the perl script to no avail.
What am I missing ?
Ok here is my perl script:
##################
#! /usr/bin/perl
BEGIN { push @INC,"/ws/testdir" };
use strict;
use Header qw( wrap_package );
use Env;
#print "$ENV{'PATH'}";
sub test {
print "test"
}
my $iso="stage.iso";
my $product="final.iso";
my $MAGIC_NUM="abcd";
test
my ( $header_filename ) = Header::wrap_package(
$iso,
$product,
$MAGIC_NUM,
10000,
"KEY_TLV_PACKAGE_COMPATIBILITY",
"FRU_TEST_TYPE"
)
########################
Here is the module:Header.pm
package MCP::Header;
use strict;
use warnings;
use Data:
umper;use Digest::SHA;
use File::Basename;
use File::Spec::Functions qw( rel2abs );
use Fcntl qw( :seek );
use Util::Misc;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw( wrap_package );
our @EXPORT_OK = qw();
<snip>
sub wrap_package {
...
}
###########
I copied Header.pm into my local directory /ws/testdir and am trying to execute the perl script to no avail.
What am I missing ?
|
|
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I want to replace a Perl module name in all my Perl Scripts in the cgi-bin directory. How is it possible?
I have the following statement in my scripts
use myUtil;
I want to change it to
use myUtil777;
Regards,
Rahul (2 Replies)
Discussion started by: rahulrathod
2 Replies
2. Shell Programming and Scripting
Couple questions on perl module..
1)where is the best place on web where it tells you what modules can do?
For example,
use Text::Autoformat
Where is the best place on line or via command line to find the exact capability of autoformat?
2)Is there already a perl module to read *.cap... (1 Reply)
Discussion started by: convenientstore
1 Replies
3. Shell Programming and Scripting
Hi All,
I am using a perl module Win32::AdminMisc in my perl script.
When i running in activestate perl v5.10.0 it shows folling error ---
Can't locate loadable object for module Win32::AdminMisc in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at example.pl
Please reply.
... (7 Replies)
Discussion started by: suprcool
7 Replies
4. UNIX for Dummies Questions & Answers
Hi
i have written a perl script which was then converted to perl module by me. it works as expected. but i have to put it on many servers so i want to build a package for it. i dont know how to do that. just to check i copied perl module in "lib" directory which is working. ( directly copied... (1 Reply)
Discussion started by: zedex
1 Replies
5. Shell Programming and Scripting
Hi,
Please help me!!
Im wondering if anyone can help me with a problem i have with some perl modules.
My problem is:
I'm trying to connect remote host to a unix box from a windows machine. So i'm developing an application to do this.
I'm programming it in perl with tcl/tk Gui interface.... (13 Replies)
Discussion started by: Phi01
13 Replies
6. Shell Programming and Scripting
Hi,
I need to read an excel binary file and write the data to a text file. Is it possible using Spreadsheet-ParseExcel-0.58 ? If not, is there any module available in CPAN to do this?
Thanks,
Js (1 Reply)
Discussion started by: jisha
1 Replies
7. Shell Programming and Scripting
All,
Is it possible to call a subroutine from the perl expect module after logging to a system that is within the same program. My situation is I need to run a logic inside a machine that I'm logging in using the expect module, the logic is also available in the same expect program.
Thanks,... (5 Replies)
Discussion started by: arun_maffy
5 Replies
8. Shell Programming and Scripting
I'm trying to create a perl script that will do 1 SSH session, but be able to write multiple commands to the session and receive multiple outputs. I know there are modules out there like Net:SSH::Perl, but I'm not allowed to use it. I was thinking of doing something like an open3 on an ssh... (4 Replies)
Discussion started by: mrwatkin
4 Replies
9. Shell Programming and Scripting
I am recieiving an out of memory issue in my perl module while updating the records in the oracle table. Let me know what are the check or troubleshoot steps need to be done from my end to fix the issue. (1 Reply)
Discussion started by: ramkumar15
1 Replies
10. Shell Programming and Scripting
I took the copy of the production module to the home directory and executing the module.
one of the test prdmsk.pm module is present in the home directory ctskk. would like to know whether the below syntax is correct.
use strict;
use lib "/home/ssprod/ctskk";
use lib::Prdmsk;
... (0 Replies)
Discussion started by: ramkumar15
0 Replies
LEARN ABOUT SUSE
encode::mime::header
Encode::MIME::Header(3pm) Perl Programmers Reference Guide Encode::MIME::Header(3pm) NAME
Encode::MIME::Header -- MIME 'B' and 'Q' header encoding SYNOPSIS
use Encode qw/encode decode/; $utf8 = decode('MIME-Header', $header); $header = encode('MIME-Header', $utf8); ABSTRACT
This module implements RFC 2047 Mime Header Encoding. There are 3 variant encoding names; "MIME-Header", "MIME-B" and "MIME-Q". The difference is described below decode() encode() ---------------------------------------------- MIME-Header Both B and Q =?UTF-8?B?....?= MIME-B B only; Q croaks =?UTF-8?B?....?= MIME-Q Q only; B croaks =?UTF-8?Q?....?= DESCRIPTION
When you decode(=?encoding?X?ENCODED WORD?=), ENCODED WORD is extracted and decoded for X encoding (B for Base64, Q for Quoted-Printable). Then the decoded chunk is fed to decode(encoding). So long as encoding is supported by Encode, any source encoding is fine. When you encode, it just encodes UTF-8 string with X encoding then quoted with =?UTF-8?X?....?= . The parts that RFC 2047 forbids to encode are left as is and long lines are folded within 76 bytes per line. BUGS
It would be nice to support encoding to non-UTF8, such as =?ISO-2022-JP? and =?ISO-8859-1?= but that makes the implementation too complicated. These days major mail agents all support =?UTF-8? so I think it is just good enough. Due to popular demand, 'MIME-Header-ISO_2022_JP' was introduced by Makamaka. Thre are still too many MUAs especially cellular phone handsets which does not grok UTF-8. SEE ALSO
Encode RFC 2047, <http://www.faqs.org/rfcs/rfc2047.html> and many other locations. perl v5.12.1 2010-04-26 Encode::MIME::Header(3pm)