try this..
now to get the $variable,
read each line of the file by just opening it..
in this one only thing u need to do is value of $j....
$variable = "name1##Thu Oct 18 14:33:23 2007 ##2007-10-18
14:33:23.000000000-0400";
my @vv = split('-',$variable);
my @vale = split('##',$variable);
print "First=>".$vale[1]."\n";
print "Second=>".$vale[2]."\n";
$var =$vale[1];
my @values = split(' ', $var);
#print "1 values=>". $values[0]."\n";
if($values[1] eq "Oct"){
$j=10;
}
$search = $values[4]."-".$j."-".$values[2]."
".$values[3].".000000000-".$vv[3];
print "Related Item =>".$values[4]."-".$j."-".$values[2]."
".$values[3].".000000000-".$vv[3]."\n";
$found = grep /$search/,@vale;
print "Found value=> ".$found."\n";
if($found eq '1')
{
print "Value is there in line\n";
}
else{
print "Value is not there in line\n";
}
Chaitanya
On Wed, Jun 30, 2010 at 2:39 PM, Shlomi Fish <shlo...@iglu.org.il> wrote:
> On Wednesday 30 Jun 2010 05:29:17 Pad wrote:
> > I'm trying to use the logic in my script that allows me to catch a
> > line that differs in time by comparing field2 and field3. I managed
> > to come up with an input file of this format for my comparison
> > purpose:
> >
> > name1##Thu Oct 18 14:33:23 2007 ## 2007-10-18 14:33:23.000000000
> > -0400
> > name2##Thu Feb 5 01:13:19 2009 ##2009-02-05 01:13:19.000000000
> > -0500
> > name3##Sat Jan 24 10:03:37 2009 ##2009-01-24 10:03:37.000000000
> > -0500
> > name8##Thu Feb 5 01:13:19 2009 ##2007-03-05 01:13:19.000000000
> > -0500
> > (... 1000s of similar entries)
> >
> > I don't care about the day. I'm trying to find if fileld2 matches with
> > field3 in terms of dd-mon-YYYY HH:MM:SS. If they are not, I would
> > like to print the line. Can someone please help me. I tried my feeble
> > attempt in re-arranging the third filed but it does n't help me.
> >
> > In the above example, name1/2/3 are good. But name3 is incorrect. I
> > would like to print out the entry if it's possibility. Please note
> > "##' is my field separator.
>
> You can use split on /##/ to create an array of fields and then extract
> those
> that you want for each line and process them.
>
> Regards,
>
> Shlomi Fish
>
> --
> -----------------------------------------------------------------
> Shlomi Fish http://www.shlomifish.org/
> "The Human Hacking Field Guide" - http://shlom.in/hhfg
>
> God considered inflicting XSLT as the tenth plague of Egypt, but then
> decided against it because he thought it would be too evil.
>
> Please reply to list if it's a mailing list post - http://shlom.in/reply .
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
