Reading the file line by line in Perl Post: 302589649

Sponsored Content

Top Forums Shell Programming and Scripting Reading the file line by line in Perl Post 302589649 by birei on Thursday 12th of January 2012 10:02:38 AM

01-12-2012

Registered User

Script modified:

Code:

$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 <input-file> <output-good-file> <output-bad-file>\n] unless @ARGV == 3;

open my $bad_fh, ">", pop @ARGV or die qq[ERROR: $!\n];
open my $good_fh, ">", pop @ARGV or die qq[ERROR: $!\n];
open my $input_fh, "<", pop @ARGV or die qq[ERROR: $!\n];

my ($fields_processed, $flipflop, $good_lines);

while ( my $line = <$input_fh> ) {
        chomp $line;

        ## Header.
        if ( $flipflop = ( $line =~ m/\A(?i)start-of-file/ .. $line =~ m/\A(?i)start-of-fields/ ) ) {
#                next if $flipflop == 1 || $flipflop =~ /E0\Z/;
                printf $good_fh qq[%s\n], $line;
                next;
        }

        ## Footer.
        if ( $fields_processed ) {
                if ( $flipflop = ( $line =~ m/\A(?i)end-of-fields/ .. eof ) ) {
                        next if $flipflop == 1;
                         $line =~ s/\A(?i)(?<=datarecords=)\d*/$good_lines/;
                        printf $good_fh qq[%s\n], $line;
                }
        }

        my @f = split /\|/, $line, 25;

        if ( @f < 25 ) {
                next;
        }
        else {
                $fields_processed = 1;
        }

        if ( ( $f[21] eq "N.A.")  && ( $f[22] == 0 || $f[22] eq " ") && ( $f[23] == 0  ||  $f[23] eq " ") ) {
                printf $bad_fh qq[%s\n], $line;
        } 
        else {
                 ++$good_lines;
                printf $good_fh qq[%s\n], $line;
        }
}

Regards,
Birei

birei

View Public Profile for birei

Find all posts by birei

9 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

perl - file reading - last line not displayed

Hi, Here is something that am trying with perl #! /opt/third-party/bin/perl open(fh, "s") || die "unable to open the file <small>"; @ch = (); $i = 0; while( $content = <fh> ) { if( $i <= 5 ) { push(@ch, $content); $i++; } else { $i = 1; foreach(@ch) {

2. Shell Programming and Scripting

Reading each line of a file in perl script

HI I need to read each line (test.txt) and store it in a array (@test) How to do it in perl. Suppose i have a file test.txt. I have to read each line of the test.txt file and store it in a array @test. How to do it in perl. Regards Harikrishna

3. Shell Programming and Scripting

Reading a file line by line and processing for each line

Hi, I am a beginner in shell scripting. I have written the following script, which is supposed to process the while loop for each line in the sid_home.txt file. But I'm getting the 'end of file' unexpected for the last line. The file sid_home.txt gets generated as expected, but the script...

4. Shell Programming and Scripting

[Solved] Problem in reading a file line by line till it reaches a white line

So, I want to read line-by-line a text file with unknown number of files.... So: a=1 b=1 while ; do b=`sed -n '$ap' test` a=`expr $a + 1` $here do something with b etc done the problem is that sed does not seem to recognise the $a, even when trying sed -n ' $a p' So, I cannot read...

5. UNIX for Dummies Questions & Answers

Parsing file, reading each line to variable, evaluating date/time stamp of each line

So, the beginning of my script will cat & grep a file with the output directed to a new file. The data I have in this file needs to be parsed, read and evaluated. Basically, I need to identify the latest date/time stamp and then calculate whether or not it is within 15 minutes of the current...

6. Shell Programming and Scripting

Reading text file, comparing a value in a line, and placing only part of the line in a variable?

I need some help. I would like to read in a text file. Take a variable such as ROW-D-01, compare it to what's in one line in the text file such as PROD/VM/ROW-D-01 and only input PROD/VM into a variable without the /ROW-D-01. Is this possible? any help is appreciated.

7. Shell Programming and Scripting

Comparison of fields then increment a counter reading line by line in a file

Hi, i have a scenario were i should compare a few fields from each line then increment a variable based on that. Example file 989878|8999|Y|0|Y|N|V 989878|8999|Y|0|N|N|V 989878|8999|Y|2344|Y|N|V i have 3 conditions to check and increment a variable on every line condition 1 if ( $3...

8. Shell Programming and Scripting

Reading line by line from live log file using while loop and considering only those lines start from

Hi, I want to read a live log file line by line and considering those line which start from time stamp; Below code I am using, which read line but throws an exception when comparing line that does not contain error code tail -F /logs/COMMON-ERROR.log | while read myline; do...

9. UNIX for Beginners Questions & Answers

Reading a file line by line and print required lines based on pattern

Hi All, i want to write a shell script read below file line by line and want to exclude the lines which contains empty value for MOUNTPOINT field. i am using centos 7 Operating system. want to read below file. # cat /tmp/d5 NAME="/dev/sda" TYPE="disk" SIZE="60G" OWNER="root"...

LEARN ABOUT CENTOS

ipc::run::debug

IPC::Run::Debug(3)					User Contributed Perl Documentation					IPC::Run::Debug(3)

NAME

       IPC::Run::Debug - debugging routines for IPC::Run

SYNOPSIS

	  ##
	  ## Environment variable usage
	  ##
	  ## To force debugging off and shave a bit of CPU and memory
	  ## by compile-time optimizing away all debugging code in IPC::Run
	  ## (debug => ...) options to IPC::Run will be ignored.
	  export IPCRUNDEBUG=none

	  ## To force debugging on (levels are from 0..10)
	  export IPCRUNDEBUG=basic

	  ## Leave unset or set to "" to compile in debugging support and
	  ## allow runtime control of it using the debug option.

DESCRIPTION

       Controls IPC::Run debugging.  Debugging levels are now set by using words, but the numbers shown are still supported for backwards
       compatibility:

	  0  none	  disabled (special, see below)
	  1  basic	  what's running
	  2  data	  what's being sent/recieved
	  3  details	  what's going on in more detail
	  4  gory	  way too much detail for most uses
	  10 all	  use this when submitting bug reports
	     noopts	  optimizations forbidden due to inherited STDIN

       The "none" level is special when the environment variable IPCRUNDEBUG is set to this the first time IPC::Run::Debug is loaded: it prevents
       the debugging code from being compiled in to the remaining IPC::Run modules, saving a bit of cpu.

       To do this in a script, here's a way that allows it to be overridden:

	  BEGIN {
	     unless ( defined $ENV{IPCRUNDEBUG} ) {
		eval 'local $ENV{IPCRUNDEBUG} = "none"; require IPC::Run::Debug"'
		   or die $@;
	     }
	  }

       This should force IPC::Run to not be debuggable unless somebody sets the IPCRUNDEBUG flag; modify this formula to grep @ARGV if need be:

	  BEGIN {
	     unless ( grep /^--debug/, @ARGV ) {
		eval 'local $ENV{IPCRUNDEBUG} = "none"; require IPC::Run::Debug"'
		or die $@;
	  }

       Both of those are untested.

AUTHOR

       Barrie Slaymaker <barries@slaysys.com>, with numerous suggestions by p5p.

perl v5.16.3							    2012-01-16							IPC::Run::Debug(3)