> first hurdle is how do I extract this Feb 23 01:10:28 2018  from file1
which regex

Look at perldoc -f stat

         ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                      $atime,$mtime,$ctime,$blksize,$blocks)
                          = stat($filename);

               Not all fields are supported on all filesystem types.  Here
are the meanings of the fields:

                 0 dev      device number of filesystem
                 1 ino      inode number
                 2 mode     file mode  (type and permissions)
                 3 nlink    number of (hard) links to the file
                 4 uid      numeric user ID of file's owner
                 5 gid      numeric group ID of file's owner
                 6 rdev     the device identifier (special files only)
                 7 size     total size of file, in bytes
                 8 atime    last access time in seconds since the epoch
                 9 mtime    last modify time in seconds since the epoch
                10 ctime    inode change time in seconds since the epoch (*)
                11 blksize  preferred block size for file system I/O
                12 blocks   actual number of blocks allocated

               (The epoch was at 00:00 January 1, 1970 GMT.)
once you've got epoch time, you can (assuming they're both newer than
1/1/70 ;-), just do math with them. localtime(<epoch time>) will convert
that to English.

On Tue, Oct 23, 2018 at 1:45 AM Asad <asad.hasan2...@gmail.com> wrote:

> Hi All ,
>
>         first hurdle is how do I extract this Feb 23 01:10:28 2018  from
> file1 which regex can I use ?
>
>          convert it into epoch
>
>         then
>
>          regex for 02/23/18 01:10:33  is required  ?
>
>         convert into epoch
>
>        So if you can suggest the correct regex for both timestamps.
>
> Thanks,
>
> On Tue, Oct 23, 2018 at 12:11 PM Илья Рассадин <elcaml...@gmail.com>
> wrote:
>
>> use Time::Piece;
>>
>> my $t1 = Time::Piece->strptime('Feb 23 01:10:28 2018', '%b %d %H:%M:%S
>> %Y');
>>
>> my $t2 = Time::Piece->strptime('02/23/18 01:10:33', '%m/%d/%y %H:%M:%S');
>>
>> if ($t1 > $t2) { ... }
>> On 23/10/2018 09:17, Asad wrote:
>>
>> Hi All ,
>>
>>         first hurdle is how do I extract this Feb 23 01:10:28 2018  from
>> file1 which regex can I use ?
>>
>>          convert it into epoch
>>
>>         then
>>
>>          regex for 02/23/18 01:10:33  is required  ?
>>
>>         convert into epoch
>>
>>        So if you can suggest the correct regex for both timestamps.
>>
>> Thanks,
>>
>> On Tue, Oct 23, 2018 at 11:21 AM Asad <asad.hasan2...@gmail.com> wrote:
>>
>>> Thanks, I will do that. It was for perl .
>>>
>>> On Tue, Oct 23, 2018 at 10:42 AM Jim Gibson <jimsgib...@gmail.com>
>>> wrote:
>>>
>>>> On Oct 22, 2018, at 9:12 PM, Asad <asad.hasan2...@gmail.com> wrote:
>>>> >
>>>> > file1 :
>>>> > Patching tool version 12.1.0.2.0 Production on Fri Feb 23 01:10:28
>>>> 2018
>>>> >
>>>> > Bootstrapping registry and package to current versions...done
>>>> > statement ERR-2001: table is corrupt check for cause
>>>> >
>>>> > could not determine the current status.
>>>> >
>>>> > file2 :
>>>> >
>>>> >  LOG file opened at 02/03/18 01:11:05
>>>> >
>>>> > DUP-05004:   statement1
>>>> > DUP-05007:   statement2
>>>> >
>>>> >
>>>> >  LOG file opened at 02/03/18 01:11:14
>>>> >
>>>> > DUP-05004:   statement1
>>>> >
>>>> > DUP-05007:   statement2
>>>> >
>>>> >
>>>> >  LOG file opened at 02/23/18 01:10:33
>>>> >
>>>> > DUP-05004:   statement1
>>>> >
>>>> > DUP-05007:   statement2
>>>> >
>>>> > I need to look for the ERR-2001 in file1 if it matches then go to
>>>> file2 and print the message nearest to the timestamp found in file1 within
>>>> two minutes of range .
>>>> >
>>>> > so in this case file1 :  Fri Feb 23 01:10:28 2018
>>>> >                    range   file1 +2 mins :02/23/18 01:12:28
>>>> > check in file 2 nearest to file1 and within range :     02/23/18
>>>> 01:10:33
>>>> >
>>>> > how do i compare two timestamps in different format and within range
>>>> ?
>>>>
>>>> You would first convert the two timestamps to a common format,
>>>> preferably one that used a numerical value to express times. I know of two
>>>> such: the Unix epoch time that uses an integer to represent the number of
>>>> seconds since 1 Jan 1970 UTM and the Julian date that uses a floating-point
>>>> number to represent the number of days since 1 Jan 4713 BCE.
>>>>
>>>> Are you looking for a Perl solution or a Python one?
>>>>
>>>> For Perl, you should investigate time and date modules available on
>>>> CPAN, such as Date::Manip or Date::Calc.
>>>>
>>>>
>>>
>>> --
>>> Asad Hasan
>>> +91 9582111698
>>>
>>
>>
>> --
>> Asad Hasan
>> +91 9582111698
>>
>>
>
> --
> Asad Hasan
> +91 9582111698
>


-- 

a

Andy Bach,
afb...@gmail.com
608 658-1890 cell
608 261-5738 wk

Reply via email to