NetNews Usenet Archive 1992 #19/NN_1992_19.iso/spool/comp/lang/perl/5484

Text File | 1992-08-25 | 1.5 KB | 52 lines

Newsgroups: comp.lang.perl
Path: sparky!uunet!decwrl!sgi!wdl1!wdl39!mab
From: [e-mail] (Mark A Biggar)
Subject: Re: Fast String Operations?
Message-ID: <[e-mail]>
Sender: [e-mail]
Organization: Loral Western Development Labs
References: <[e-mail]>
Date: Tue, 25 Aug 1992 21:59:59 GMT
Lines: 40

In article <[e-mail]> [e-mail] (Randy garrett) writes:
>I'm looking for the fastest way to perform the following operation.
>Basically, this is a conversion of one database format to another.
>If I have a NULL field, indicated by 2 pipe symbols next to
>each other, I want to insert either a -1 or a ~ between the
>two pipes, depending upon whether the type of that field
>is a integer or a character.  I know the type of the field
>because I've already pre-filled that array with the correct
>types from the Data Dictionary (Thanks Sybase to Perl Interface!).

I probabily make more sense to use split for this, modifiy your code like so:

>#!/usr/local/bin/perl
># Walk thru a string; if find "||" insert either a ~ or a -1
># depending on value of @name
>
>$string = "a|bcd||g||i|||";
>@name = (1,2,1,1,2,1,2,1);
>
>$count = 0;  # index into @name

@string = split(/|/,$string);
foreach $s (@string) {
    $s = ($name[$count++] == 1 ? -1 : '~') if $s eq '';
}
$string = join('|', @string);

>print "$string\n";

The foreach could be written as a grep() but I think this was is more
understandable.

--
Perl's Maternal Uncle
Mark Biggar
[e-mail]