05-09-2008
Perl problem
I have been recently given a PERL script to develop, but the main problem is that the perl version that I have to use is old, also I cant download modules from CPAN.
Perl version 5.0005
I didnt realise this untill I had the script ready to be tested, so there are a few modules that I have used which are not in the perl version.
So I was wondering if anyone could help with this section of code below.
As in does anyone know how to format it so it will work with th eold version of perl or even know what module to use form the old perl version, which will do the same job I am looking to do.
Any help would be much appriciated.
use Time::HiRes qw( usleep gettimeofday tv_interval );
my $Success = 0;
my $elapsed;
my $start;
#if a failure has occurred
if($Success == 1)
{
# Set Time Interval
my $oneMinute = 60_000_000; # 1 minute
my $numberMinutes = 30; # 30 minutes - CONNECTION TIME - Can be changed
my $loopTime = $oneMinute * $numberMinutes;
#Get start time
$start = [gettimeofday];
while ($elapsed < $loopTime && $Success == 1)
{
connect("","");
$elapsed = tv_interval ($start, [gettimeofday]); #Calc elapsed time
}
}
Last edited by meevagh; 05-09-2008 at 07:03 AM..
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
CPAN(1) Perl Programmers Reference Guide CPAN(1)
NAME
cpan - easily interact with CPAN from the command line
SYNOPSIS
# with arguments and no switches, installs specified modules
cpan module_name [ module_name ... ]
# with switches, installs modules with extra behavior
cpan [-cfgimt] module_name [ module_name ... ]
# with just the dot, install from the distribution in the
# current directory
cpan .
# without arguments, starts CPAN.pm shell
cpan
# dump the configuration
cpan -J
# load a different configuration to install Module::Foo
cpan -j some/other/file Module::Foo
# without arguments, but some switches
cpan [-ahrvACDlLO]
DESCRIPTION
This script provides a command interface (not a shell) to CPAN. At the moment it uses CPAN.pm to do the work, but it is not a one-shot
command runner for CPAN.pm.
Options
-a Creates a CPAN.pm autobundle with CPAN::Shell->autobundle.
-A module [ module ... ]
Shows the primary maintainers for the specified modules.
-c module
Runs a `make clean` in the specified module's directories.
-C module [ module ... ]
Show the Changes files for the specified modules
-D module [ module ... ]
Show the module details. This prints one line for each out-of-date module (meaning, modules locally installed but have newer versions
on CPAN). Each line has three columns: module name, local version, and CPAN version.
-f Force the specified action, when it normally would have failed. Use this to install a module even if its tests fail. When you use this
option, -i is not optional for installing a module when you need to force it:
% cpan -f -i Module::Foo
-F Turn off CPAN.pm's attempts to lock anything. You should be careful with this since you might end up with multiple scripts trying to
muck in the same directory. This isn't so much of a concern if you're loading a special config with "-j", and that config sets up its
own work directories.
-g module [ module ... ]
Downloads to the current directory the latest distribution of the module.
-G module [ module ... ]
UNIMPLEMENTED
Download to the current directory the latest distribution of the modules, unpack each distribution, and create a git repository for
each distribution.
If you want this feature, check out Yanick Champoux's "Git::CPAN::Patch" distribution.
-h Print a help message and exit. When you specify "-h", it ignores all of the other options and arguments.
-i Install the specified modules.
-j Config.pm
Load the file that has the CPAN configuration data. This should have the same format as the standard CPAN/Config.pm file, which defines
$CPAN::Config as an anonymous hash.
-J Dump the configuration in the same format that CPAN.pm uses. This is useful for checking the configuration as well as using the dump as
a starting point for a new, custom configuration.
-L author [ author ... ]
List the modules by the specified authors.
-m Make the specified modules.
-O Show the out-of-date modules.
-t Run a `make test` on the specified modules.
-r Recompiles dynamically loaded modules with CPAN::Shell->recompile.
-v Print the script version and CPAN.pm version then exit.
Examples
# print a help message
cpan -h
# print the version numbers
cpan -v
# create an autobundle
cpan -a
# recompile modules
cpan -r
# install modules ( sole -i is optional )
cpan -i Netscape::Booksmarks Business::ISBN
# force install modules ( must use -i )
cpan -fi CGI::Minimal URI
EXIT VALUES
The script exits with zero if it thinks that everything worked, or a positive number if it thinks that something failed. Note, however,
that in some cases it has to divine a failure by the output of things it does not control. For now, the exit codes are vague:
1 An unknown error
2 The was an external problem
4 There was an internal problem with the script
8 A module failed to install
TO DO
* one shot configuration values from the command line
BUGS
* none noted
SEE ALSO
Most behaviour, including environment variables and configuration, comes directly from CPAN.pm.
SOURCE AVAILABILITY
This code is in Github:
git://github.com/briandfoy/cpan_script.git
CREDITS
Japheth Cleaver added the bits to allow a forced install (-f).
Jim Brandt suggest and provided the initial implementation for the up-to-date and Changes features.
Adam Kennedy pointed out that exit() causes problems on Windows where this script ends up with a .bat extension
AUTHOR
brian d foy, "<bdfoy@cpan.org>"
COPYRIGHT
Copyright (c) 2001-2009, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
perl v5.16.2 2013-08-25 CPAN(1)