Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: How to get the lines matched of a file in perl?
Top Forums Shell Programming and Scripting How to get the lines matched of a file in perl? Post 302440906 by karthigayan on Thursday 29th of July 2010 12:48:32 AM
Old 07-29-2010
MySQL solution
Is this the code you are trying ,

Code:
#!/usr/bin/perl 

use strict;
use warnings;

my $start = "14:23";
my $end = "14:30";
my $ind = 0;
my @arr;
my $result = 0;
open FILE,"<file";
while ( <FILE> ) {
    if ( /^$start.+/) {
        $ind = 1 ;
        my $reversed = reverse $_;
        my @temp  = split (/,/,$reversed);
        push  @arr,$temp[2];
    }
    elsif ( $ind == 1 && /^[0-9]{2}:[0-9]{2}:[0-9]{2}:$end.+/ ) {
        my $reversed = reverse $_;
        my @temp  = split (/,/,$reversed);
        push  @arr,$temp[2];
        $ind = 0;
    }
    elsif ( $ind == 1 ) {
        my $reversed = reverse $_;
        my @temp  = split (/,/,$reversed);
        push  @arr,$temp[2];
    }
    else {
        next;
    }
}

foreach ( @arr )
{
    $result += $_;
}

print "Result : $result";

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Sed grep the first matched lines

Hi I have a myfile.txt contains the following: CONTEXT { AAAAA } ... CONTEXT { BBBBB } I want to extract the lines in between CONTEXT { ... }, one by one. Hence I wrote a command like the following, sed -n '/^CONTENT/,/^}/ { w a.txt }' myfile.txt The problem with this... (5 Replies)
Discussion started by: hezjing
5 Replies

2. Shell Programming and Scripting

Get all the values matched in perl

HI, I have sentences like this: @str=("An ribonucleic acid (RNA)-binding protein, started its expression in the daughter cells","Elucidation of the mechanism of retinal degeneration of RNA-binding protein","Rna binding protein is an important protein","In the retinal degenerative process... (1 Reply)
Discussion started by: vanitham
1 Replies

3. Shell Programming and Scripting

Get header and its matched value in perl?

Hi, I have the file contents: Start,End,Req,Resp 12:39,12:40,4,5 The sting to be matched is: Req and Resp. parsefile("Req,Resp"); Here is the code. sub parsefile ($) { $header=shift; (2 Replies)
Discussion started by: vanitham
2 Replies

4. Shell Programming and Scripting

removing lines around a matched pattern

I have an ugly conf file that has the string I'm interested in searching for in the middle of a block of code that's relevant, and I'm trying to find a way to remove that entire block based on the matched line. I've googled for this problem, and most people helping are only interested in... (9 Replies)
Discussion started by: tamale
9 Replies

5. Shell Programming and Scripting

How to find the matched numbers between 2 text file using perl program??

hi dudes, I nee you kind assistance, I have to find the matched numbers from 2 text files and output of matched numbers should be in another text file.. I do have text files like this , for example File 1 787 665*5-p 5454 545-p 445-p 5454*-p File 2 5455 787 445-p 4356 2445 144 ... (3 Replies)
Discussion started by: sureshraj
3 Replies

6. Linux

Perl program to print previous set of lines once a pattern is matched

Hi all, I have a text data file. My aim here is to find line called *FIELD* AV for every record and print lines after that till *FIELD* RF. But here I want first 3 to four lines for very record as well. FIELD AV is some where in between for very record. SO I am not sure how to retrieve lines in... (2 Replies)
Discussion started by: kaav06
2 Replies

7. Shell Programming and Scripting

Perl - use search keywords from array and search a file and print 3rd field when matched

Hi , I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code. my $current_value=12345; my @users=("bob","ben","tom","harry"); open DBLIST,"<","/var/tmp/DBinfo"; my @input = <DBLIST>; foreach (@users) { my... (11 Replies)
Discussion started by: chidori
11 Replies

8. Shell Programming and Scripting

Delete lines and the first pattern between 2 matched patterns

Hi, i need help to delete all the lines between 2 matched patterns and the first pattern must be deleted too. sample as follows: inputfile.txt >kump_1 ........................... ........................... >start_0124 dgfhghgfh fgfdgfh fdgfdh >kump_2 ............................. (7 Replies)
Discussion started by: redse171
7 Replies

9. UNIX for Dummies Questions & Answers

Extracting the two lines where the first line is matched

Hi, If I have a file of something like @hg19_gold_AL122127.6-131160 GCTTCATCATGCATGGATAGGCTGGCGCCTTTCCTGAGGCCATATGCCGATGGATATG @hg19_gold_AL122127.6-131159 CTTTAATATTTCCGCCACCATCCTGAGTGAATCCCAGCAAGGACAGTCTTTGGGGATT @hg19_gold_AL122127.6-131158... (4 Replies)
Discussion started by: jyu429
4 Replies

10. Shell Programming and Scripting

Find all matched lines from two files

Hello, everyone I have two files like this: File 1: A B C D E FFile 2:A B 1 A C 2 A K 3 B A 4 D E 3 W X 2 A B 2I want to print all lines (file2) that the first two columns are consist of elements from file1. So, what I expected is : A B 1 A B 2 (2 Replies)
Discussion started by: nengcheng
2 Replies

LEARN ABOUT DEBIAN

net::dns::sec::tools::timetrans

timetrans(3pm)						User Contributed Perl Documentation					    timetrans(3pm)

NAME

       Net::DNS::SEC::Tools::timetrans - Convert an integer seconds count into text units.

SYNOPSIS

	 use Net::DNS::SEC::Tools::timetrans;

	 $timestring = timetrans(86488);

	 $timestring = fuzzytimetrans(86488);

DESCRIPTION

       The timetrans() interface in Net::DNS::SEC::Tools::timetrans converts an integer seconds count into the equivalent number of days, hours,
       and minutes.  The time converted is a relative time, not an absolute time.  The returned time is given in terms of days, hours, minutes,
       and seconds, as required to express the seconds count appropriately.

       The fuzzytimetrans() interface converts an integer seconds count into the equivalent number of weeks or days or hours or minutes.  The unit
       chosen is that which is most natural for the seconds count.  One decimal place of precision is included in the result.

INTERFACES

       The interfaces to the Net::DNS::SEC::Tools::timetrans module are given below.

   timetrans()
       This routine converts an integer seconds count into the equivalent number of days, hours, and minutes.  This converted seconds count is
       returned as a text string.  The seconds count must be greater than zero or an error will be returned.

       Return Values:

	   If a valid seconds count was given, the count converted into the
	       appropriate text string will be returned.

	   An empty string is returned if no seconds count was given or if
	       the seconds count is less than one.

   fuzzytimetrans()
       This routine converts an integer seconds count into the equivalent number of weeks, days, hours, or minutes.  This converted seconds count
       is returned as a text string.  The seconds count must be greater than zero or an error will be returned.

       Return Values:

	   If a valid seconds count was given, the count converted into the
	       appropriate text string will be returned.

	   An empty string is returned if no seconds count was given or if
	       the seconds count is less than one.

EXAMPLES

       timetrans(400) returns 6 minutes, 40 seconds

       timetrans(420) returns 7 minutes

       timetrans(888) returns 14 minutes, 48 seconds

       timetrans(86400) returns 1 day

       timetrans(86488) returns 1 day, 28 seconds

       timetrans(715000) returns 8 days, 6 hours, 36 minutes, 40 second

       timetrans(720000) returns 8 days, 8 hours

       fuzzytimetrans(400) returns 6.7 minutes

       fuzzytimetrans(420) returns 7.0 minutes

       fuzzytimetrans(888) returns 14.8 minutes

       fuzzytimetrans(86400) returns 1.0 day

       fuzzytimetrans(86488) returns 1.0 day

       fuzzytimetrans(715000) returns 1.2 weeks

       fuzzytimetrans(720000) returns 1.2 weeks

COPYRIGHT

       Copyright 2004-2012 SPARTA, Inc.  All rights reserved.  See the COPYING file included with the DNSSEC-Tools package for details.

AUTHOR

       Wayne Morrison, tewok@tislabs.com

SEE ALSO

       timetrans(1)

perl v5.14.2							    2012-06-18							    timetrans(3pm)
All times are GMT -4. The time now is 02:17 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy