Aprire il file format.dat applicazione Perl
2
Inserisci aperta " ( FILE, " @ righe =; . Stretti ( FILE ),. " Questo imposta il formato per la relazione in modo che ogni voce è la sua propria linea .
3
creare il corpo dei rapporti Perl dando Perl direzione su cosa riferire . Usando una lista della spesa a titolo di esempio , immettere " per ciascuno ( @ linee ) { chop ; ( $ isola , $ oggetto , $ prezzo ) = (split ( //) ! ) ; print (" Isola = $ isola Item = $ item prezzo = $ prezzo \\ n " );} "
4
Utilizzare questo formato se gli elementi del database sono tutti completi Se ci sono elementi mancanti , il formato non rappresenteranno gli elementi mancanti Vedere l'esempio : Isle = 5 Prodotto . . = Prezzo = Isle = 2 Item = Arance Prezzo = 0.32Isle = 7 Prodotto = Potato Chips Prezzo = 2.95Isle = 9 Item = Lampadine Prezzo = 2.50
5
Scrivi la lista in un altro modo , se si vuole . un formato a larghezza fissa Utilizza il codice " per ciascuno ( @ righe) {
chop ;
( $ Isle, $ oggetto , $ prezzo ) = ( split ( //) ! ) ;
$ isle = " " se definito ( $ isola ) ; ! Queste linee assegnare null
$ articolo = " " se definito ( $ item ) ; ! stringhe se no info è < br
$ prezzo > = " " se definito ( $ prezzo); ! presenti nel record
stampa. ( " Isola = $ isola Item = $ item prezzo = $ prezzo \\ n" ) ;
} "
6
uscita i rapporti creati Perl simili al seguente esempio : Isle = 5 item = Prezzo = Isle = 2 del lotto = Arance Prezzo = 0.32Isle = 7 item = Potato Chips prezzo = 2.95Isle = 9 Item = Lampadine prezzo = 2.50
Programmazione © www.354353.com