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

Hey thanks for the help!!! ^_^ Would know a way that I can remove the numbers and tabs between parenthesis of data stored in a file. I have tried using the grep command but it appeard to be greedy. It removes more info than needed. The following is an example of the data in the file: (The)<space>0<tab>257<tab>38(Name)<space>0<tab>501<tab>38() (Date)<space>1<tab>144<tab>94(REAL)<space>1<tab>65<tab>94() ( )<space>0<tab>2219<tab>2338(1120) (You Are Here) ( ) (Date)<space>0<tab>1447<tab>2571(today) How can I remove all data (numbers, tabs, and spaces) between each left and right parenthesis )remove( except for one <tab>,/t. Needed output: (The)<tab>(Name)<tab>() (Date)<tab>(REAL)<tab>() ( )<tab>(1120) (You Are Here) ( ) (Date)<tab>(today) Your help will be greatly appreciated.

Replies are listed 'Best First'.
Re: Re: Re: Print record by column key
by Mr. Muskrat (Canon) on May 13, 2002 at 17:50 UTC
    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?
[reply]
[d/l]

      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