05-09-2008
yes thats correct.
when I try running script, i get a reply(now this is not 100% correct)
can't locate Time::HiRes in perl/bin.....................
I was told that this error is because I dont have the module Time::HiRes, and they I was told I couldnt download it either, so I have to try and find another way
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hi,
i have a script that coverts the file time in epoch time.but the problem is perl is not working inside the k-shell
----------------------------------------------------------------
#!/bin/ksh
echo "Enter the file"
read n
perl -e 'print ((stat("n")))'... (6 Replies)
Discussion started by: ali560045
6 Replies
2. Shell Programming and Scripting
if (($fields eq $hwp) && ($fields eq 'Y'))
{
$fields = "INTEGRAL";
}
elsif ($fields eq $hwp)
{
$fields = "INTEGRAL";
}
elsif ($fields ne $hwp)
{
$fields = "SEPARATE";
}
print "$fields $fields $fields\n";
Output:
The problem here is that the first... (2 Replies)
Discussion started by: kamitsin
2 Replies
3. Shell Programming and Scripting
Hi,
I'm writing one perl script to select only a number part from a line. These lines looks as:
raj born on 20080201 at delhi
result for the equation is (886005)
peter get married on 20031230
Maria born on 20080201 at paris
my output file should only contains the numbers, by removing... (1 Reply)
Discussion started by: Lokesha
1 Replies
4. Shell Programming and Scripting
A C G T -
A 5 -4 -4 -4 -5
C -4 5 -4 -4 -5
G -4 -4 5 -4 -5
T -4 -4 -4 5 -5
- -5 -5 -5 -5 0
So lets say I have a matrix which looks something like (above). Its basically a scoring matrix. the numbers are... (2 Replies)
Discussion started by: aj05
2 Replies
5. Programming
I am trying to run the following script which is a file format converter. The frame variable in the input file has a file of 3,2,1 which needs to be 0,1,2 respectively i.e. 3 =0 etc.
I have included the tr/// function into the script to do this, however it does not seem to be working
input its... (2 Replies)
Discussion started by: fordie
2 Replies
6. Shell Programming and Scripting
I got the below error when using the below code...it seem that perl interpret the "'" in the middle and therefore the pipe is not finished.
perl -wle '
@a=`who| perl -wlane 'print \$F;' | sort -u` ;
chomp @a ;
print @a;
'
the error message in cygwin is:-
perl: No match.
| sort... (12 Replies)
Discussion started by: ahmad.diab
12 Replies
7. Shell Programming and Scripting
hello, can anyone help me with this problem? im just a beginner and currently starting to program in perl, also i just installed openssh because what i really need is to ssh to a ubuntu server.
so I tried my code:
#!/usr/bin/perl
use strict;
use warnings;
use Net::OpenSHH;
my $ssh =... (4 Replies)
Discussion started by: samohung390
4 Replies
8. Shell Programming and Scripting
Hi, I have implement queue but it take last element instead of fist element
#!/usr/bin/perl -w
print "Enter page Access";
chomp ($item = <STDIN>);
my @queue = split /\s+/, $item;
print "Enter a page frame";
$frame = <STDIN>;
if ( $frame >= 3 )
{
$fifo = pop @queue;
print... (1 Reply)
Discussion started by: guidely
1 Replies
9. Web Development
Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect.
Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is
redirected to welcome page.
My... (3 Replies)
Discussion started by: Arun_Linux
3 Replies
10. Shell Programming and Scripting
Hello All,
I am trying to use perl eval in a complex code and below given is a pseudo code of my logic.
Here $result evalutes to empty.
Please help.How should I retrieve of $t where $f just hold the name of varaible i.e t
$t=10;
$f='$t';
$result=eval "\$$f";
print "$result\n"; (3 Replies)
Discussion started by: prasperl
3 Replies
LEARN ABOUT SUSE
task::weaken
Task::Weaken(3) User Contributed Perl Documentation Task::Weaken(3)
NAME
Task::Weaken - Ensure that a platform has weaken support
DESCRIPTION
One recurring problem in modules that use Scalar::Util's "weaken" function is that it is not present in the pure-perl variant.
While this isn't necesarily always a problem in a straight CPAN-based Perl environment, some operating system distributions only include
the pure-Perl versions, don't include the XS version, and so weaken is then "missing" from the platform, despite passing a dependency on
Scalar::Util successfully.
Most notably this is RedHat Linux at time of writing, but other come and go and do the same thing, hence "recurring problem".
The normal solution is to manually write tests in each distribution to ensure that "weaken" is available.
This restores the functionality testing to a dependency you do once in your Makefile.PL, rather than something you have to write extra
tests for each time you write a module.
It should also help make the package auto-generators for the various operating systems play more nicely, because it introduces a dependency
that they have to have a proper weaken in order to work.
How this Task works
Part of the problem seems to stem from the fact that some distributions continue to include modules even if they fail some of their tests.
To get around that for this module, it will do a few dirty tricks.
If Scalar::Util is not available at all, it will issue a normal dependency on the module. However, if Scalar::Util is relatively new ( it
is >= 1.19 ) and the module does not have weaken, the install will bail out altogether with a long error encouraging the user to seek
support from their vendor (this problem happens most often in vendor-packaged Perl versions).
This distribution also contains tests to ensure that weaken is available using more normal methods.
So if your module uses "weaken", you can just add the following to your Module::Install-based Makefile.PL (or equivalent).
requires 'Task::Weaken' => 0;
AUTHOR
Adam Kennedy <adamk@cpan.org>, <http://ali.as/>
SEE ALSO
Task, Scalar::Util, <http://ali.as/>
COPYRIGHT
Copyright 2006 - 2009 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.12.1 2009-06-12 Task::Weaken(3)