[MacPerl] More beginner Perl stuff [2]

[Christopher Palmer]

Here are the auxiliary files mentioned in my last email

Thanks again,
CTP

==========================

final.pl

#!/usr/bin/perl

use TextDB;

$db = new TextDB;

@rows = $db->select("Users","id=1");
printRows(@rows);

$db->insert("Users",("5","foo","pw","Foo Bar"));
@rows = $db->select("Users","id=5");
printRows(@rows);

$db->update("Users","id=1","fullName","Reese, Byrne");
@rows = $db->select("Users","id=1");
printRows(@rows);

$db->delete("Users","id=5");
@rows = $db->select("Users","id=5");
printRows(@rows);

sub printRows {
   @rows = @_;
   foreach $row (@rows) {
     print "ROW => ";
     foreach $field (@$row) {
       print "$field ";
     }
     print "\n";
   }
}

==============================

users.sch

TABLE NAME Users
FIELD NAME id
FIELD NAME username
FIELD NAME password
FIELD NAME fullName

==============================

users.dat

ROW 1::reese::password::Byrne Reese
ROW 2::hailey::password2::Arin Hailey
ROW 3::john::foo::John Adams