🚀 go-pugleaf

In <862862948.23367@dejanews.com> Jeremy_Fuller@rocketmail.com writes:

>I was wondering if anybody could help me out on a database question
>pertaining to the PERL programming language.  What I want to do is MODIFY
>a Database field when a link is followed or clicked.

>This is an Example:

>name|address|city|state|phone|fax|CODE
>Jeremy Fuller|123 Vr. Lane|Ogden|CA|85560|555-6672|555-7894|RED

>I would like to MODIFY CODE "RED" to CODE "BLUE".  How can I accomplish
>this using Perl?  Any information you can supply would be appreciated.

open FOO, ">filename" or die "Ack: $!";   # open the file
while (<FOO>) {                           # for each line in the file
 chomp;                                   # remove the newline
                                          # split on |
 ($name,$address,$city,$state,$phone,$fax,$code) = split /\|/;
 if ($code eq "RED") {                    # if code is "RED"
   $code = "BLUE";                        # change it to "BLUE"
 }
}
close FOO;                                # close the file descriptor

>If you can, Please e-mail me at Jeremy_Fuller@rocketmail.com (I don't
>check Usenet very often).

Shame on you.

[ mailed and posted ]

-- 
Clay Irving                                        See the happy moron,
clay@panix.com                                     He doesn't give a damn,
http://www.panix.com/~clay                         I wish I were a moron,
                                                   My God! Perhaps I am!