04-25-2008
THX googling for the idea. Actually I am new at PERL, so did some stupid mistakes.
Anyways It is working now, but now I am facing some more errors. I a hopefull some one hehe can really help me out.
Quote:
Can't locate Net/Telnet.pm in @INC (@INC contains: /usr/perl5/5.00503/sun4-solaris /usr/perl5/5.00503 /usr/perl5/site_perl/5.005/sun4-solaris /usr/perl5/site_perl/5.005 .) at /data/script.pl line 14.
BEGIN failed--compilation aborted at /data/script.pl line 14.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
# perl -p -w -e 's/</book>(?:\n)<collection>(.*)</collectioninfo>//g' test1.txt
Bareword found where operator expected at -e line 1, near "s/</book>(?:\n)<collection>(.*)</collectioninfo"
Unquoted string "collectioninfo" may clash with future reserved word at -e line 1.
syntax error at -e line... (3 Replies)
Discussion started by: dirdamalah
3 Replies
2. Shell Programming and Scripting
Hi all
I keep getting a segmentation fault error while running the script below.
#!/usr/bin/perl -w
use CGI ':standard';
use GD::Graph::pie;
use strict;
use warnings;
sub trim($)
{
my $string = shift;
$string =~ s/^\s+//;
$string =~ s/\s+$//;
... (4 Replies)
Discussion started by: pietie
4 Replies
3. Shell Programming and Scripting
Hi All,
I was trying to run the below program, its working perfectly for if condition however its not go to else conditing, if the input is wrong. what is the issue in this code. kindly help me !!!
print "Enter your Number \n";
$name = <STDIN>;
if ($name ="91111")
{
@dirlist1 =... (4 Replies)
Discussion started by: adaleru
4 Replies
4. Shell Programming and Scripting
Hi, everyone!!
i am new to perl programming.. plz help me.
#!C:/perl/bin
use warnings;
use strict;
use Text::CSV_XS;
my @rows = "";
my $row;
my $count;
my $fh;
my @fields = "";
my $csv = Text::CSV_XS->new ({binary =>1}) or
die "cannot use CSV:" .Text::CSV->error_diag ();
open... (3 Replies)
Discussion started by: kvth
3 Replies
5. Shell Programming and Scripting
At this line in the perl script,
@databases = `crs_stat | grep .db | awk -F. '{print $2}'`;
It is throwing this error.
Use of uninitialized value in concatenation (.) or string at ........
Looks like it didn't like the 2 dots I have in the statements. Is there a way to get around this... (3 Replies)
Discussion started by: MKNENI
3 Replies
6. Shell Programming and Scripting
I have a PERL command line embedded in a UNIX script. The script doesn't handle errors coming out of this command. I'm processing large files and occassionally I run out of disk space and end up with half a file.
perl -p -e 's/\n/\r\n/g' < TR_TMP_$4 > $4
How do I handle errors coming out... (1 Reply)
Discussion started by: OTChancy
1 Replies
7. Shell Programming and Scripting
New to perl, trying to decipher and fix the below error: Thanks.
$ perl -ne 'chomp; system ("perl table_annovar.pl $_ humandb/ -buildver hg19 -protocol refGene,popfreq_all -operation g,f -otherinfo”)' < file.txt
Can't find string terminator '"' anywhere before EOF at -e line 1. (2 Replies)
Discussion started by: cmccabe
2 Replies
8. Shell Programming and Scripting
cat "C:\Program Files\BioDiscovery\Nexus 7\Organisms\Human\NCBI Build 37\refseq_genes.txt" | perl -aF/\\t/ -lne '$F=~/_/ and next; @st=split/\,/,$F;@en=split/\,/,$F;print join("\t",$F,$st,$en,$F) for (0..$#st)' | sort -u > refseq_exons.bed
sort: open failed: -u: No such file or directory
... (6 Replies)
Discussion started by: cmccabe
6 Replies
9. Shell Programming and Scripting
In the attached file I get this error. Thank you :).
C:\cygwin\home\cmccabe\windows_annovar.sh: line 117: perl: command not found (17 Replies)
Discussion started by: cmccabe
17 Replies
10. AIX
This's my problem
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LC_ALL = "en_US.UTF-8",
LC__FASTMSG = "true",
LC_MESSAGES = "",
LC_CTYPE = "en_US.UTF-8",
LC_TYPE = "en_US.UTF-8",
LANG = "EN_US"... (1 Reply)
Discussion started by: bobochacha29
1 Replies
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)