in reply to writing an address book program
Here's a snippet to get you going:
use strict; use Data::Table; my $t= Data::Table::fromCSV("phonebook.csv"); $t->sort('lastname', 1, 0); # Sort by col 'lastname', alphabetic, as +cending print $t->html; # Print out phone book as an HTML table.
lastname,firstname,phone,TZ,date_entered Wall,Larry,555-1212,PST,4/3/2001 Schwartz,Randal,555-1212,PST,4/1/2001
It emits HTML for this table:
| lastname | firstname | phone | TZ | date_entered |
|---|---|---|---|---|
| Schwartz | Randal | 555-1212 | PST | 4/1/2001 |
| Wall | Larry | 555-1212 | PST | 4/3/2001 |
I think you have chosen a very nice project for learning perl.
It should work perfectly the first time! - toma
|
|---|