Providing a Link to Perl Post: 66

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

script providing input to application prompts

Hi! I want to write a script that will create an archive (via tar) that will restrict the size of the tar file. The size can be constrained using the keyword 'k' and providing the size restriction. The problem is that the script needs to know (detect) when the tar command prompts the user (which...

2. Shell Programming and Scripting

Grepping text by providing line numbers.

Dear Friends, I have a flat file from which I want to grep line no. 7,10, 19 to 35, 37. How can it be done? Thank you in advance Anushree

3. Shell Programming and Scripting

Search Files from Array and link to original location in Perl

Hello, Question is related to Perl: I need to search few of the files from the array of file names. And after grepping the file names from an array I need to link these files to original location. The original location in this case is ref_path as input from the user. ##$ref_path is...

4. Shell Programming and Scripting

Help needed with bash script providing battery status

I'm really new to even doing a bash "hello world" script, so maybe someone would know how to do the following task, using bash scripting Need to login using ssh from one dell server into another dell server, and obtain the raid battery status, using dell's open manage software commands; then...

5. Shell Programming and Scripting

Providing variable contents to awk

Hello, All. This is my first post here, and I expect that the answer is simple, but I can't find it. Might be the way I'm searching. I'm fairly new to Unix/Linux, and I'm writing a Korn Shell Script. I am trying to provide a value that is already in a variable to awk so that awk can pull out the...

6. Programming

g++ fails to link to static library when compilation and link in single command

Hello All, I've encountered a strange behaviour from g++ that doesn't make sense to me. Maybe you can shed some light on it: I have a bunch of source files and want to compile them and link them with a static library liba.a located in /usr/local/lib64 into an executable Approach 1 works...

7. UNIX for Advanced & Expert Users

perl/sed -i removes link

hello, is it a behavior of or that "-i" removes unix link . example : i create a file "src_file" and link it to "link_file" and then i start "perl -i" the link is removed. does another option exists to change content of a file without temporary files ? UNIX-Version: HP-UX and...

8. Shell Programming and Scripting

Awking string only 6 character long and providing a count

Morning Guys, I am attempting to awk a file which strings in the file is only 6 characters long and not more. Currently it is counting every line and giving a count of 59, but it should be 57 (not including the long baracode - 004705CIM*****) " awk '/./ {cnt++} END {print cnt}'...

9. UNIX for Dummies Questions & Answers

Help me in just providing idea about what to be done?

Hi, I am thinking to increase my knowledge towards shell scripting and tcl scripting. The thing is, please suggest me a script which i can code is useful in learning as well as to project it to my team mates and it is helpful to all my office team mates. I'll give you an idea of what we...

LEARN ABOUT DEBIAN

pmload

PMLOAD(1p)						User Contributed Perl Documentation						PMLOAD(1p)

NAME

       pmload - show what files a given module loads at compile time

DESCRIPTION

       Given an argument of a module name, show all the files that are loaded directly or indirectly when the module is used at compile-time.

EXAMPLES

	   $ pmload IO::Handle
	   /usr/local/devperl/lib/5.00554/Exporter.pm
	   /usr/local/devperl/lib/5.00554/Carp.pm
	   /usr/local/devperl/lib/5.00554/strict.pm
	   /usr/local/devperl/lib/5.00554/vars.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/DynaLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Handle.pm
	   /usr/local/devperl/lib/5.00554/Symbol.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/File.pm
	   /usr/local/devperl/lib/5.00554/SelectSaver.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/Fcntl.pm
	   /usr/local/devperl/lib/5.00554/AutoLoader.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO.pm
	   /usr/local/devperl/lib/5.00554/i686-linux/IO/Seekable.pm

	   $ cat `pmload IO::Socket` | wc -l
	      4015

	   $ oldperl -S pmload Tk
	   /usr/lib/perl5/site_perl/Tk/Pretty.pm
	   /usr/lib/perl5/Symbol.pm
	   /usr/lib/perl5/site_perl/Tk/Frame.pm
	   /usr/lib/perl5/site_perl/Tk/Toplevel.pm
	   /usr/lib/perl5/strict.pm
	   /usr/lib/perl5/Exporter.pm
	   /usr/lib/perl5/vars.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Wm/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Widget/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk.pm
	   /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm
	   /usr/lib/perl5/site_perl/auto/Tk/Frame/autosplit.ix
	   /usr/lib/perl5/site_perl/auto/Tk/Toplevel/autosplit.ix
	   /usr/lib/perl5/Carp.pm
	   /usr/lib/perl5/site_perl/auto/Tk/autosplit.ix
	   /usr/lib/perl5/site_perl/Tk/CmdLine.pm
	   /usr/lib/perl5/site_perl/Tk/MainWindow.pm
	   /usr/lib/perl5/site_perl/Tk/Submethods.pm
	   /usr/lib/perl5/site_perl/Tk/Configure.pm
	   /usr/lib/perl5/AutoLoader.pm
	   /usr/lib/perl5/site_perl/Tk/Derived.pm
	   /usr/lib/perl5/site_perl/Tk/Image.pm
	   /usr/lib/perl5/site_perl/Tk/Wm.pm
	   /usr/lib/perl5/site_perl/Tk/Widget.pm

NOTE

       If the programmers used a delayed "require", those files won't show up.	Furthermore, this doesn't show all possible files that get opened,
       just those that those up in %INC.  Most systems have a way to trace system calls.  You can use this to find the real answer.  First, get a
       baseline with no modules loaded.

	   $ strace perl -e 1 2>&1 | perl -nle '/^open("(.*?)".* = [^-]/ && print $1'
	   /etc/ld.so.cache
	   /lib/libnsl.so.1
	   /lib/libdb.so.2
	   /lib/libdl.so.2
	   /lib/libm.so.6
	   /lib/libc.so.6
	   /lib/libcrypt.so.1
	   /dev/null

	   $ strace perl -e 1 2>&1 | grep -c '^open.*= [^-]'
	   8

       Now add module loads and see what you get:

	   $ strace perl -MIO::Socket -e 1 2>&1 | grep -c '^open.*= [^-]'
	   24

	   $ strace perl -MTk -e 1 2>&1 | grep -c '^open.*= [^-]'
	   35

SEE ALSO

       Devel::Loaded, plxload(1).

AUTHORS and COPYRIGHTS
       Copyright (C) 1999 Tom Christiansen.

       Copyright (C) 2006-2008 Mark Leighton Fisher.

       This is free software; you can redistribute it and/or modify it under the terms of either: (a) the GNU General Public License as published
       by the Free Software Foundation; either version 1, or (at your option) any later version, or (b) the Perl "Artistic License".  (This is the
       Perl 5 licensing scheme.)

       Please note this is a change from the original pmtools-1.00 (still available on CPAN), as pmtools-1.00 were licensed only under the Perl
       "Artistic License".

perl v5.10.1							    2010-02-22								PMLOAD(1p)