Problem in Formatting File Post: 302070996

Sponsored Content

Top Forums Shell Programming and Scripting Problem in Formatting File Post 302070996 by mahendramahendr on Tuesday 11th of April 2006 09:50:43 AM

04-11-2006

Registered User

Hope this helps

$ cat tmp1.txt
54321|item-68|owner|yes||||$
00-10|invoice|3221|||#
00-11|invoice|3221|||#
00-12|invoice|3221|||#
book1|032|US|yes|||@

54300|item-68|owner|yes||||$
00-211|invoice|3221|||#
00-113|invoice|3221|||#
00-124|invoice|3221|||#
00-135|invoice|3221|||#
bookdoon|032|US|yes|||@
bookdooner|032|US|yes|||@

$ cat mah.pl
#!/usr/bin/perl

use strict;

open (FH,"<tmp1.txt");

my $line;
my @ar;
my $i;
my $k;
my $fl;

while($line = <FH>)
{
if ( $line =~ /\$$/ ) {

while ( $k > 0 && $k < $i) {
print $fl,$ar[$k++],"\n";
}
chop $line; chop $line;
$fl=$line;
$#ar=-1;
$i=0;
$k=0;
}

if ( $line =~ /\#$/ ) {
chop $line; chop $line;
$ar[$i++]=$line;
}

if ( $line =~ /\@$/ ) {
chop $line; chop $line;
print $fl,$ar[$k++],$line,"\n";
}
}

while ( $k > 0 && $k < $i) {
print $fl,$ar[$k++],$line,"\n";
}

close FH;

$ mah.pl
54321|item-68|owner|yes||||00-10|invoice|3221|||book1|032|US|yes|||
54321|item-68|owner|yes||||00-11|invoice|3221|||
54321|item-68|owner|yes||||00-12|invoice|3221|||
54300|item-68|owner|yes||||00-211|invoice|3221|||bookdoon|032|US|yes|||
54300|item-68|owner|yes||||00-113|invoice|3221|||bookdooner|032|US|yes|||
54300|item-68|owner|yes||||00-124|invoice|3221|||
54300|item-68|owner|yes||||00-135|invoice|3221|||

mahendramahendr

View Public Profile for mahendramahendr

Find all posts by mahendramahendr

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Problem re-formatting Disk Partition

I have a disk formatted as follows. Part Flag Tag Cylinders Size =================================================== 0 wm root 0 - 38125 26.18 Gb 1 wu swap 38126 - 49776 8 Gb 2 wm backup 0 - 49779 34.18 Gb 3 wm unassigned 4 wm unassigned 5 wm unassigned 6 wm unassigned...

2. Shell Programming and Scripting

Formatting Problem

Hi Suppose we have a file consisting of nos in following format 123 - 789 123 - 828 345 - 989 345 - 792 I require the following output 123, 789,828 345, 989,792 Means Unique nos in 1st Column and Corresponding two nos in comma separated 2nd Column Please help me out...

3. Shell Programming and Scripting

AWK Formatting Problem

Hi All, I'm having a problem with the way awk is interperting a space between double quotes in a for loop. Below is the code and output from running the script: AWK for loop: for i in $(awk 'BEGIN{FS=","}{print "Probe Name:" $1};{print "Probe Temp:" $2};{ print...

4. Shell Programming and Scripting

output formatting problem

I would like to keep the complete lines in the output, but my script adds carriage returns for each space (e.g. keep BRITISH AIRWAYS on one line in the output): File1= BAW BRITISH AIRWAYS RYR RYAN AIR for i in $(cat File1) do echo $i done Output: BAW BRITISH AIRWAYS RYR...

5. UNIX for Dummies Questions & Answers

Conversion problem with date field and formatting.

Hi, My input file contains the record(s) as below with space as FS. 01-01024180 35000 MV010 02/03/09 0306 03060226 03 02-00410330 470000 MV010 02/03/09 0301 03010276 03 1. I need to convert the field 02/03/09 (dd/mm/yy) to yyyymmdd yet retain the Field separator. Using the modified...

6. Shell Programming and Scripting

Problem with formatting text with awk

I want the following output: User ID: 4071 Last Name: Gills First Name: Roberts Address: Maple Dr. Phone#: 702346789 from this command: grep "$uId" database.txt | awk -F":" '{print "User ID:\t"$uId"\nLast Name:\t"$lname"\n...etc. }' But all I get is this: User ID:...

7. Shell Programming and Scripting

Problem in formatting number

Hi, I was trying to format my number like i=1 to 000001 using the below method. typeset -Z6 i (sorry, corrected) My shell is K, is not doing, it is supposed to do Thanks in advance

8. Shell Programming and Scripting

trite formatting problem

Hello; having an annoying issue: I wish to have the same formatting in: awk '{print $1}' LOCAL f30f31be17a236378ac896639cc1b996 bff4c460f601444db6ef7f6ad6ca44b9 347a399b6fe9c2f21e6a7f55911c1483 ce3f8fdd4919e891090ca27872f4f983 c00098663f064d14065d0ef248a4db44...

9. UNIX for Advanced & Expert Users

Dos2UNIX formatting problem

Hi, I was trying to dos2unix a file that has some special characters but dos2unix converted those into different format. I am working on sun server. I guess the default for dos2unix on sun server is ISO format . Can i change the format so that it does the conversion in UTF format? Because I...

10. Shell Programming and Scripting

Output formatting problem

Hello; I have a simple loop filtering a log: for LU in $(< LU-list-Final) do OUT=$(grep -B1 $LU cibc-src-ip.cap |egrep 'IP 16|IP 19|IP 15' |awk -F">" '{print $1}') if ; then echo " LU $LU was accessed by ===============> $OUT " echo "" fi done The current output snippet looks like...

LEARN ABOUT CENTOS

glfrontface

GLFRONTFACE(3G) 						   OpenGL Manual						   GLFRONTFACE(3G)

NAME

       glFrontFace - define front- and back-facing polygons

C SPECIFICATION

       void glFrontFace(GLenum mode);

PARAMETERS

       mode
	   Specifies the orientation of front-facing polygons.	GL_CW and GL_CCW are accepted. The initial value is GL_CCW.

DESCRIPTION

       In a scene composed entirely of opaque closed surfaces, back-facing polygons are never visible. Eliminating these invisible polygons has
       the obvious benefit of speeding up the rendering of the image. To enable and disable elimination of back-facing polygons, call glEnable()
       and glDisable() with argument GL_CULL_FACE.

       The projection of a polygon to window coordinates is said to have clockwise winding if an imaginary object following the path from its
       first vertex, its second vertex, and so on, to its last vertex, and finally back to its first vertex, moves in a clockwise direction about
       the interior of the polygon. The polygon's winding is said to be counterclockwise if the imaginary object following the same path moves in
       a counterclockwise direction about the interior of the polygon.	glFrontFace specifies whether polygons with clockwise winding in window
       coordinates, or counterclockwise winding in window coordinates, are taken to be front-facing. Passing GL_CCW to mode selects
       counterclockwise polygons as front-facing; GL_CW selects clockwise polygons as front-facing. By default, counterclockwise polygons are
       taken to be front-facing.

ERRORS

       GL_INVALID_ENUM is generated if mode is not an accepted value.

ASSOCIATED GETS

       glGet() with argument GL_FRONT_FACE

SEE ALSO

       glCullFace(),

COPYRIGHT

       Copyright (C) 1991-2006 Silicon Graphics, Inc. This document is licensed under the SGI Free Software B License. For details, see
       http://oss.sgi.com/projects/FreeB/.

AUTHORS

       opengl.org

opengl.org							    06/10/2014							   GLFRONTFACE(3G)