Problem with perl pattern for date


 
Thread Tools Search this Thread
Top Forums Programming Problem with perl pattern for date
# 1  
Old 02-26-2011
The code doesnt seem to work. Actually i have another similar pattern at the bottom of the fiole which is this format

HPOM maintenance summary: 02/26/11 15:39:58. So this search pattern which u specified is matching this one instead of the first one which i specified .

---------- Post updated at 08:37 PM ---------- Previous update was at 02:36 AM ----------

I have made the breakthroufg. here is the code snippet

Code:
open(INFILE,"install.log")|| die("File not found");

while($line = <INFILE>)

{
    if ($line =~ /((\d+)\/(\d+)\/(\d+))\Z/g)
    
    {
        $match = $&;
        
        $nextline = <INFILE>;
        
        
        $start="$match$nextline";

        if($start =~ /(\d+)\/(\d+)\/(\d+)\s+(\d+):(\d+)(\d+)/)
        {
            print $4,"\n";
        }
    } # end if  if
    
    elsif ($line =~ /invoked by root at ((\d+)\/(\d+)\/(\d+))\s+(\d+):(\d+):(\d+)\Z/)
    
    {
        print  $&;
    }
 } # //end if while

Login or Register to Ask a Question

Previous Thread | Next Thread

8 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Problem in passing date to external function from perl script.

my $sysdate = strftime('%Y-%m-%d', localtime ); biDeriveByDate('Table_Str',$sysdate,\@lIndx,\@lResVals) In a perl script, when I'm trying to pass $sysdate to some external function it's not working since $sysdate is passed as a string mentioned above but my function is expecting a date value... (1 Reply)
Discussion started by: Devesh5683
1 Replies

2. Shell Programming and Scripting

Extract week start,end date from given date in PERL

Hi All, what i want to do in perl is i should give the date at run time .Suppose date given is 23/12/2011(mm/dd/yyyy) the perl script shold find week start date, week end date, previous week start date,end date,next week start date, end date. In this case week start date will be-:12/19/2011... (2 Replies)
Discussion started by: parthmittal2007
2 Replies

3. Shell Programming and Scripting

Problem with date in perl!!

Hi All, I am facing an issue with perl.. I have a perl script that executes the stored procedure and puts the data in a file. In stord proc we have one date column also. In table from which it is fetching the data, date is in the form "14/03/2010 00:00:00.000" (DD/MM/YYYY). But when the perl... (4 Replies)
Discussion started by: abhisharma23
4 Replies

4. Shell Programming and Scripting

problem with date in perl

hi guys, i have a variable date that stores the current date....now i need to subtract 2 minutes from it...can someone tell me how to do it in perl.... (5 Replies)
Discussion started by: niteesh_!7
5 Replies

5. Programming

Date time problem while executing perl script.

Hi All, This Monday 15th March 2010, i have faced a weired issue with my Perl script execution, this script is scheduled to run at 1 minute past midnight on daily basis ( 00:01 EST ) generally for fetching previous business date , say if it is Monday it should give last Friday date, for Tuesday... (0 Replies)
Discussion started by: ravimishra
0 Replies

6. Shell Programming and Scripting

perl:: search for tow pattern and replace the third pattern

Hi i want to search two pattern on same line and replace onther pattern.. INPut file aaaa bbbbb nnnnnn ttttt cccc bbbbb nnnnnn ppppp dddd ccccc nnnnnn ttttt ffff bbbbb oooooo ttttt now i want replace this matrix like.. i want search for "bbbbb","nnnnnn" and search and replace for... (4 Replies)
Discussion started by: nitindreamz
4 Replies

7. Shell Programming and Scripting

Date problem in perl

Hi, My script is here-- #!/usr/bin/perl no warnings "uninitialized"; use File::Copy; use File::stat; use Time::Local; use IO::Handle; use DateTime; use Getopt::Long; use File::Glob ':glob'; my $Summary; my $Individual; my $Diagnostics; my $All; (3 Replies)
Discussion started by: namishtiwari
3 Replies

8. Shell Programming and Scripting

Pattern matching problem in PERL script

Hi Friends, As my old friends knows, I'm old to shell script but very new to perl script, currently I'm writing a PERL script with the following functionality: I've multiple product directories, like BUSS, FIN, SALES, MKT etc., : /export/home/GLK/BUSS, /export/home/GLK/FIN, ... (11 Replies)
Discussion started by: ganapati
11 Replies
Login or Register to Ask a Question
Weather::Com::DateTime(3pm)				User Contributed Perl Documentation			       Weather::Com::DateTime(3pm)

NAME
Weather::Com::DateTime - date and time class SYNOPSIS
#!/usr/bin/perl -w use Weather::Com::DateTime; my $gmt_offset = 1; # e.g. for Germany in winter my $datetime = Weather::Com::DateTime->new($gmt_offset); $datetime->set_lsup('02/25/05 11:21 PM Local Time'); print "This is the date '02/25/05 11:21 PM' in Germany: "; print "Epoc: ", $datetime->epoc(), " "; print "GMT (UTC): ". gmtime($datetime->epoc()). " "; print "My local time: ". localtime($datetime->epoc()). " "; print "And finally German time: ", $datetime->time(), " o'clock at ", $datetime->date(), " "; DESCRIPTION
Weather::Com::DateTime objects are used to encapsulate a date or time provided by the OO interface (e.g. localtime, sunrise, sunset, etc.). This is done because there are many ways to use a date or time and to present it in your programs using Weather::Com. This class provides some predefined formats for date and time but also enables you to easily define your own ones. These objects always represent the local time of a Weather::Com::Location object. That is, if you have a location object for New York City and your server running the weather script is located in Los Angeles, for example, this line print "Sunrise at: ", $location->sunrise()->time(), " "; will print the time of sunrise (in 24h format) in EST and not corresponding to the timezone of Los Angeles! If you'd like to now what this is in GMT you could call print "Sunrise at: ". gmtime($location->sunrise()->epoc()). " "; or if you want to know when the sun rises at the location in your servers local time than just call print "Sunrise at: ". localtime($location->sunrise()->epoc()). " "; There are two ways to get your own date or time format: 1. You use the "formatted()" method and provide a format string to it. 2. If you'd like to define your own "date()" or "time()" method, simply change the corresponding methods. What you can change in which way without destroying the whole class, is described in section INTERFACE. CONSTRUCTOR
You usually would not construct an object of this class yourself. This is implicitely done when you call one of the OO interfaces date or time methods. The constructor can take a GMT offset in positive or negative hours. If one calls the constructor without any GMT offset, we assume you want a GMT object. METHODS
epoc(epoc seconds) With this method you can set the date and time using epocs (GMT) directly. It returns the currently set epoc seconds (GMT). formatted(format) This method returns a date or time formatted in the way you ask for and corresponding to the local time of the parent object. The "format" you provide to this method has to be a valid Time::Format format. For details please refer to Time::Format. set_date(date) With this method one can set the date of the object using an input format like "Feb 13" which is the 13th of february of the current year. Using this method, the time is set to 00:00. The year is the current one. set_time(time) With this method one can set the time of the object using an input format like "8:30 AM". The date is set to the current date of the host the script is running on. set_lsup(lsup) With this method one can set the date of the object using the weather.com's special last update format that is like "2/12/05 4:50 PM Local Time". date() Returns the date in the format "1. February 2005". time() Returns the time in the format "22:15". time_ampm() Returns the time in the format "10:15 PM". weekday() Returns the day of week with like "Wednesday". day() Returns the day in month. month() Returns the name of the month. mon() Returns the number of the month year() Returns the year (4 digits). AUTHOR
Thomas Schnuecker, <thomas@schnuecker.de> COPYRIGHT AND LICENSE
Copyright (C) 2004-2007 by Thomas Schnuecker This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. The data provided by weather.com and made accessible by this OO interface can be used for free under special terms. Please have a look at the application programming guide of weather.com (<http://www.weather.com/services/xmloap.html>)! perl v5.8.8 2007-07-09 Weather::Com::DateTime(3pm)