in reply to Re: Re: Print record by column key
in thread Print record by column key

Since I can't really tell which characters are tabs and which are spaces, I'll give you a solution that will remove word characters.
I'll let you figure out how to remove the tabs and spaces.
#!/usr/bin/perl -w
use strict;
$line = "(The)025738(Name)050138()\t(Date)114494(REAL)16594()\t( )0221
+92338(1120)\t(You Are Here)\t( )\t(Date)014472571(today)\n";
$line =~ s/\)\w+\(/)(/g; # match on one or more word characters sandwi
+ched between ) and (
print $line;

[download]
Who says that programmers can't work in the Marketing Department?
Or is that who says that Marketing people can't program?

Replies are listed 'Best First'.
Re: Re: Re: Re: Print record by column key
by vanuatu10 (Initiate) on May 21, 2002 at 21:04 UTC

    Hey,

    I gratefully thank you for your wisdom!

    Here is a very important question. If I have a file with variable length records, how can i make the records that same size? 

    Ent, Name,
SC011, BUN,
Tester,
Value,
#1008
Ent, Name,
FS0022L, FUN,
TL0324, PLEASE,
Tester,
Value,
#1002
Ent, Name,
SC004, TAKE,
K530, RUN,
Tester,
Value,
#1001

    [download]

    If the data between "Ent" and "Tester" are different as far as having one or two entries, how can I make the entries equal two and so on by adding new lines followed by commas. Each record in the file may have more than one entry between "Ent" and "Tester." If one record in the file has one entry between "Ent" and "Tester", and the others have eight, two, three,..... How would I alter each record with new lines to have the same number of lines. In the above case, the highest number would be two; but this could be higher in the file I have.

    Please help!

    Edit Petruchio Wed May 22 02:01:42 UTC 2002 - Added code tags, other markup.

[reply]
[d/l]
      Look up printf, namely a format option like "%40s" for a 40 character wide field.

      Makeshifts last the longest.

[reply]

In Section Seekers of Perl Wisdom