Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Compare and eliminate
Top Forums Shell Programming and Scripting Compare and eliminate Post 302487688 by Klashxx on Thursday 13th of January 2011 08:21:41 AM
Old 01-13-2011
If Perl is ok:
Code:
#!/usr/bin/perl

use strict;
use Time::Local;

sub diffT {
   my ($segIni,$minIni,$hourIni,$dayMonthIni,$monthIni,$yearIni)=@_;
   $monthIni-=1;

   my $begin = timelocal($segIni,$minIni,$hourIni,$dayMonthIni,$monthIni,$yearIni);
   my ($seg, $min, $hours, $dayMonth, $month, $year, $dayWeek, $dayYear, $save) = localtime();
   $year+=1900;

   my $final = timelocal($seg,$min,$hours,$dayMonth,$month,$year);
   my $diffSeg = $final - $begin;

   $diffSeg;
   }
 
open(DAT,shift) or die "Unable to open file \n";

while (<DAT>) {
   chomp;
   /.+(\d\d\d\d)-(\d\d)-(\d\d)\s*$/;
   print $_ . "\n" if ( int(&diffT(0,0,0,$3,$2,$1)/(24*60*60)) > 50 );
   
   }
close (DAT);

Usage:
Code:
script.pl infile

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

boot messages - how to eliminate them

Anyone would know how to get rid off a message that comes up during a boot-up on Solaris? It says that the clusters for this software are not installed. I deleted the software because it was crashing some other stuff but it did not get rid off all the stuff. Yes, I am coming from windows and... (2 Replies)
Discussion started by: softarch
2 Replies

2. Shell Programming and Scripting

How to eliminate extra char?

I was trying to grep a variable with one space in my file: questionlabel=Q1 more job.tex Q1 pear Q1A applie grep -i "$questionlabel\ " job.tex > tmp But I keep getting : Q1 and Q1A both in my tmp Thanks!!!! (4 Replies)
Discussion started by: whatisthis
4 Replies

3. Shell Programming and Scripting

How to eliminate inf value in AWK

Hi, I have the calculations which return me infinity (inf), -inf, other very larger number when I printed them out. I did try to insert some control condition not to print these out if the above condition is met. The code I implemented is something like:- for (i=0;i<=1000;i++){ ... (3 Replies)
Discussion started by: ahjiefreak
3 Replies

4. Shell Programming and Scripting

Eliminate unwanted data

Hi, I am stuck on writing a script that reads a file, retains wanted data but discards unwanted data from a CSV file. This is a sample of my table {not the actual data) ID Color tel_num Name color2 color3 abcdef green 5551212 jj88 red blue acbdfe yellow... (5 Replies)
Discussion started by: t524ube
5 Replies

5. Shell Programming and Scripting

eliminate pathname from the file name in the o/p

Hi, Im finding some files form a specific path and den writing those files to another file as: find /SYS/admin/data/xml -name '*.xml' -type f ! -newer file1 -print >>out.xml and when im doing cat out.xml im getting like dis: ... (2 Replies)
Discussion started by: ss_ss
2 Replies

6. Shell Programming and Scripting

How to eliminate ^L

Hi, I am trying to create a text file from data retrieved from a query.The data retrieved is having this character '^L' at regular intervals of the data. How can i eliminate this, Please find below the sample data. I tried sed -e "s/\^L//g" to convert it, but with no luck ^LCODE*SERIAL... (11 Replies)
Discussion started by: ramkiran77
11 Replies

7. UNIX for Dummies Questions & Answers

[Solved] eliminate characters in vi

hey guys. what command in vi editor should I write to make this M83RDK-078A -1 1 1024 1 1024 OK X | M83RDK-055 -1 1 627 1 627 OK X | become like this M83RDK-078A 1 1024 M83RDK-055 1... (5 Replies)
Discussion started by: muhnandap
5 Replies

8. Shell Programming and Scripting

To eliminate the created filename

Hi All, I have two files in the directory file1.txt file2.txt I gave ls -m > output.txt command and I got the output as file1.txt, file2.txt, output.txt But my output should be like file1.txt, file2.txt Thanks in advance. (6 Replies)
Discussion started by: dubuku_01
6 Replies

9. Shell Programming and Scripting

Need help to eliminate the records

Hi All, Please help me how to remove the records from the file if it is having more number of fields than the required one, before loading into stage Here is the sample records. File is space delimited one chandu 1121324 CC ( 2 spaces) chandu balu 434657 DD (3 spaces) -- failing due to... (10 Replies)
Discussion started by: bbc17484
10 Replies

10. Shell Programming and Scripting

Eliminate comma on Field

Hi All, Seeking for your assistance on my problem below: What i did was extract the records from database and change the extension name to .csv. My problem is there is a records contains comma between records if i opened it in excel it will generate the comma as new field(please see below... (6 Replies)
Discussion started by: znesotomayor
6 Replies

LEARN ABOUT SUSE

time::julianday

Time::JulianDay(3)					User Contributed Perl Documentation					Time::JulianDay(3)

NAME

       Time::JulianDay -- Julian calendar manipulations

SYNOPSIS

	       use Time::JulianDay

	       $jd = julian_day($year, $month_1_to_12, $day)
	       $jd = local_julian_day($seconds_since_1970);
	       $jd = gm_julian_day($seconds_since_1970);
	       ($year, $month_1_to_12, $day) = inverse_julian_day($jd)
	       $dow = day_of_week($jd)

	       print (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$dow];

	       $seconds_since_jan_1_1970 = jd_secondslocal($jd, $hour, $min, $sec)
	       $seconds_since_jan_1_1970 = jd_secondsgm($jd, $hour, $min, $sec)
	       $seconds_since_jan_1_1970 = jd_timelocal($sec,$min,$hours,$mday,$month_0_to_11,$year)
	       $seconds_since_jan_1_1970 = jd_timegm($sec,$min,$hours,$mday,$month_0_to_11,$year)

DESCRIPTION

       JulianDay is a package that manipulates dates as number of days since some time a long time ago.  It's easy to add and subtract time using
       julian days...

       The day_of_week returned by day_of_week() is 0 for Sunday, and 6 for Saturday and everything else is in between.

ERRATA

       Time::JulianDay is not a correct implementation.  There are two problems.  The first problem is that Time::JulianDay only works with
       integers.  Julian Day can be fractional to represent time within a day.	If you call inverse_julian_day() with a non-integer time, it will
       often give you an incorrect result.

       The second problem is that Julian Days start at noon rather than midnight.  The julian_day() function returns results that are too large by
       0.5.

       What to do about these problems is currently open for debate.  I'm tempted to leave the current functions alone and add a second set with
       more accurate behavior.

       There is another implementation in Astro::Time that may be more accurate.

GENESIS

       Written by David Muir Sharnoff <muir@idiom.com> with help from previous work by Kurt Jaeger aka PI <zrzr0111@helpdesk.rus.uni-stuttgart.de>
	    based on postings from: Ian Miller <ian_m@cix.compulink.co.uk>; Gary Puckering <garyp%cognos.uucp@uunet.uu.net>	 based on
       Collected Algorithms of the ACM ?; and the unknown-to-me author of Time::Local.

LICENSE

       Copyright (C) 1996-1999 David Muir Sharnoff.  License hereby granted for anyone to use, modify or redistribute this module at their own
       risk.  Please feed useful changes back to muir@idiom.com.

perl v5.12.1							    2004-02-08							Time::JulianDay(3)
All times are GMT -4. The time now is 01:21 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy