Perl help Post: 302334324

Sponsored Content

Top Forums Shell Programming and Scripting Perl help Post 302334324 by mohan705 on Wednesday 15th of July 2009 08:56:59 AM

07-15-2009

Registered User

Perl help

Hi ,

I wrote perl script to add 18 days to current date,but its giving what i have expected .Any help it should be appereciated

Code:

 tictock()
 {
 perl -e '
 $increment = 86400;
 @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
 @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
 ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
 $year = 1900 + $yearOffset;

 for($i=0, $thisyear = $yearOffset; $thisyear==$yearOffset ; $i++)
  {
  printf ("%4d%02d%02d ",  $month/$dayOfMonth/$yearOffset);
  $incr=($increment * $i) + $now;
  ($sec,$min,$hour,$dayOfMonth,$month,$yearOffset,$dayOfWeek, $dayOfYear, $daylightSavings)=localtime($incr);
  $year += 1900;
   $mon += 1;

       }'
       }


set -A arr $(tictock )
let i=0
#while [[ $i -lt ${#arr[*]} ]]
while [[ $i -lt ${#arr[*]} ]]
do
 print ${arr[i]}
 i=$(( i + 1))
 done

I am expecting this

Code:

7/15/2009
7/16/2009
7/17/2009
7/18/2009
7/19/2009
7/20/2009
7/21/2009
7/22/2009
7/23/2009
7/24/2009
7/25/2009
7/26/2009
7/27/2009
7/28/2009
7/29/2009
7/30/2009
7/31/2009
8/1/2009

Thanks and Regards,
MR

Last edited by Yogesh Sawant; 07-15-2009 at 10:42 AM.. Reason: fixed code tags

mohan705

View Public Profile for mohan705

Find all posts by mohan705

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >...

2. Shell Programming and Scripting

Passing date formats in Perl: i.e. Jul/10/2007 -> 20070710 (yyyymmdd) - Perl

Hi , This script working for fine if pass script-name.sh Jul/10/2007 ,I want to pass 20070710(yyyymmdd) .Please any help it should be appereciated. use Time::Local; my $d = $ARGV; my $t = $ARGV; my $m = ""; @d = split /\//, $d; @t = split /:/, $t; if ( $d eq "Jan" ) { $m = 0 }...

3. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';...

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ?

5. Shell Programming and Scripting

Hidden Characters in Regular Expression Matching Perl - Perl Newbie

I am completely new to perl programming. My father is helping me learn said programming language. However, I am stuck on one of the assignments he has given me, and I can't find very much help with it via google, either because I have a tiny attention span, or because I can be very very dense. ...

6. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am...

7. UNIX for Advanced & Expert Users

perl and HP-UX : instmodsh in combination with software depot : update inventory for installed Perl

we create a HP-UX software depot with a new perl-modul. after installation of the software depot, the perl module i can't find with instmodsh in the inventory for installed Perl modules. - i have learned of using instmodsh command : i find out what modules are already installed on my system. ...

8. Shell Programming and Scripting

Perl :: reading values from Data Dumper reference in Perl

Hi all, I have written a perl code and stored the data into Data structure using Data::Dumper module. But not sure how to retreive the data from the Data::Dumper. Eg. Based on the key value( Here CRYPTO-6-IKMP_MODE_FAILURE I should be able to access the internal hash elements(keys) ...

9. Programming

Perl: restrict perl from automaticaly creating a hash branches on check

My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence. I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have ...

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not...

LEARN ABOUT XFREE86

getdate

GETDATE(1)                                                         User Commands                                                        GETDATE(1)

NAME

       getdate - AME

SYNOPSIS

       [-dv][-n dec][-f format] [ra dec sys] itype2otype [date and/or time]

DESCRIPTION

       Convert date and time between various formats

              [-dv][-n dec][-f format] itype2otype @file

              itype: nfd=ISOFITS fd=FITS, dt=yyyy.mmdd, hr=hh:mm:ss, deg=dd:mm:ss

              jd=Julian  Date,  mjd=Modified Julian Date hjd=Heliocentric Julian Date, mhjd=Modified HJD ep=epoch, epj=Julian epoch, epb=Besselian
              epoch lt=local time, ut=UT, ts=seconds since 1950-01-01 now=current time, ang=fractional degrees

              otype: fd=FITS, dt=yyyy.mmdd, jd=Julian Date, mjd=Modified Julian Date

              hjd=Heliocentric Julian Date, mhjd=Modified HJD  hr=hh:mm:ss,  deg=dd:mm:ss,  ang=fractional  degrees  ep=epoch,  epj=Julian  epoch,
              epb=Besselian epoch ts=seconds since 1950-01-01, tsu=Unix sec, tsi=IRAF sec gst=Greenwich Sidereal Time, lst=Local Sidereal Time

              @file: First one or two columns are in itype format ra dec sys:  Need for Heliocentric conversions

       -a: Append date to input file, if there is one

       -d: Print date without time

       -e: Print output as ET/TDT/TT converting from UT

       -f: Format for output number (C printf)

       -h hours: Longitude in hours, west positive

       -l degrees: Longitude in degrees, west positive

       -n: Number of decimal places in sec, epoch, JD

       -t: Print time without date

       -v: Verbose

getdate 3.8.4                                                        June 2012                                                          GETDATE(1)