Sponsored Content
Full Discussion: Merge broken lines
Top Forums Shell Programming and Scripting Merge broken lines Post 302623327 by birei on Friday 13th of April 2012 11:55:24 AM
Old 04-13-2012
Try next program:
Code:
$ cat script.pl
use warnings;
use strict;

die qq[No argument\n] unless @ARGV == 1;

my @prev_line;

while ( <> ) {
        chomp;

        if ( /\A\*\*/ .. eof ) {
                next if m/\A\s*\Z/;
                if ( m/¦/ ) {
                        if ( @prev_line ) {
                                printf qq[%s\n], pop @prev_line;
                        }
                        push @prev_line, $_;
                        next;
                }

                printf qq[%s\n], (pop @prev_line) . $_;
                next;
        }

        printf qq[%s\n], $_;
}
$ perl script.pl infile
(Output supressed)

 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk / shell - Fix broken lines and data

Gurus, I am struggling with a issue and thought I could use some of your expertise. Need Help with this I have a flat file that has millions of records 24|john|account ~ info |56| 25|kuo|account ~ journal |58| 27|kim|account ~ journal |59| 28|San|account ~ journal |60|... (3 Replies)
Discussion started by: rimss
3 Replies

2. Shell Programming and Scripting

Merge two lines

Hi I have two lines of data formatted as displayed below shop, price, remark, date a,#N/A,order to -fd, 20091011 and would like it to be shop:a price:#N/A remark:order to -fd date:20091011 How can I do it? Many thanks (2 Replies)
Discussion started by: lalelle
2 Replies

3. Shell Programming and Scripting

remove blank lines and merge lines in shell

Hi, I'm not a expert in shell programming, so i've come here to take help from u gurus. I'm trying to tailor a csv file that i got to make it work for the LOAD FROM command. I've a datatable csv of the below format - --in file format xx,xx,xx ,xx , , , , ,,xx, xxxx,, ,, xxx,... (11 Replies)
Discussion started by: dvah
11 Replies

4. Shell Programming and Scripting

Joining broken lines

I have a plain test file with a delimeter ''. In this file some lines are broken into two. The first part of these broken line will have 6 columns and the second part will have 4. These broken lines will be consicutive. I want to join the two consicutive lines which are having 6 fields and 4... (8 Replies)
Discussion started by: ratheeshjulk
8 Replies

5. UNIX for Dummies Questions & Answers

How to identify broken lines in a file?

Hi, I have a 100 byte length fixed width file . In that three rows are broken and went off to next line. How can I identify the broken lines? E.g. ABCD1234MNRD4321 abcd1234mnrd 4321 As you can see in my example my second row with small case alphabets is broken... (5 Replies)
Discussion started by: okkadu
5 Replies

6. Shell Programming and Scripting

Merge lines

Hello I have a file with CAR 23 COLOR 12 CAR 44 COLOR 12 CAR 55 COLOR 20 SIZE BIG CAR 56 CAR 57 COLOR 11 How can merge the CAR and the COLOR + SIZE (if there are COLOR,SIZE) CAR 23 COLOR 12 CAR 44 COLOR 12 CAR 55 COLOR 20 SIZE BIG CAR 56 CAR 57 COLOR 11 Every line begin in... (4 Replies)
Discussion started by: sharong
4 Replies

7. Shell Programming and Scripting

Joining broken lines with awk or perl

Hi, I have a huge file with sql broken statements like: PP3697HB @@@@0 <<<<<<Record has been deleted as per PP3697HB>>>>>> FROM sys.xtab_ref rc,sys.xtab_sys f,sys.domp ur WHE RE rc.milf = ur.milf AND rc.molf = f.molf AND ur.dept = 'SWIT'AND ur .department = 'IND' AND share = '2' AND... (4 Replies)
Discussion started by: som.nitk
4 Replies

8. Shell Programming and Scripting

Merge Lines

Hello I have an input as below this is test we are( ) one end of description I am looking for output this is test we are () one end of description (2 Replies)
Discussion started by: Tomlight
2 Replies

9. Shell Programming and Scripting

Joining broken lines and removing empty lines

Hi - I have req to join broken lines and remove empty lines but should NOT be in one line. It has to be as is line by line. The challenge here is there is no end of line/start of line char. thanks in advance Source:- 2003-04-34024|04-10-2003|Claims|Claim|01-13-2003|Air Bag:Driver;... (7 Replies)
Discussion started by: Jackceasar123
7 Replies
XS::APItest(3pm)					 Perl Programmers Reference Guide					  XS::APItest(3pm)

NAME
XS::APItest - Test the perl C API SYNOPSIS
use XS::APItest; print_double(4); ABSTRACT
This module tests the perl C API. Currently tests that "printf" works correctly. DESCRIPTION
This module can be used to check that the perl C API is behaving correctly. This module provides test functions and an associated test script that verifies the output. This module is not meant to be installed. EXPORT Exports all the test functions: print_double Test that a double-precision floating point number is formatted correctly by "printf". print_double( $val ); Output is sent to STDOUT. print_long_double Test that a "long double" is formatted correctly by "printf". Takes no arguments - the test value is hard-wired into the function (as "7"). print_long_double(); Output is sent to STDOUT. have_long_double Determine whether a "long double" is supported by Perl. This should be used to determine whether to test "print_long_double". print_long_double() if have_long_double; print_nv Test that an "NV" is formatted correctly by "printf". print_nv( $val ); Output is sent to STDOUT. print_iv Test that an "IV" is formatted correctly by "printf". print_iv( $val ); Output is sent to STDOUT. print_uv Test that an "UV" is formatted correctly by "printf". print_uv( $val ); Output is sent to STDOUT. print_int Test that an "int" is formatted correctly by "printf". print_int( $val ); Output is sent to STDOUT. print_long Test that an "long" is formatted correctly by "printf". print_long( $val ); Output is sent to STDOUT. print_float Test that a single-precision floating point number is formatted correctly by "printf". print_float( $val ); Output is sent to STDOUT. call_sv, call_pv, call_method These exercise the C calls of the same names. Everything after the flags arg is passed as the the args to the called function. They return whatever the C function itself pushed onto the stack, plus the return value from the function; for example call_sv( sub { @_, 'c' }, G_ARRAY, 'a', 'b'); # returns 'a', 'b', 'c', 3 call_sv( sub { @_ }, G_SCALAR, 'a', 'b'); # returns 'b', 1 eval_sv Evaluates the passed SV. Result handling is done the same as for "call_sv()" etc. eval_pv Exercises the C function of the same name in scalar context. Returns the same SV that the C function returns. require_pv Exercises the C function of the same name. Returns nothing. SEE ALSO
XS::Typemap, perlapi. AUTHORS
Tim Jenness, <t.jenness@jach.hawaii.edu>, Christian Soeller, <csoelle@mph.auckland.ac.nz>, Hugo van der Sanden <hv@crypt.compulink.co.uk> COPYRIGHT AND LICENSE
Copyright (C) 2002,2004 Tim Jenness, Christian Soeller, Hugo van der Sanden. All Rights Reserved. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.12.5 2012-11-03 XS::APItest(3pm)
All times are GMT -4. The time now is 11:20 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy