Δημιουργήστε ένα κενό αρχείο XML χρησιμοποιώντας την εντολή open () με τις οδηγίες για την προσάρτηση . Αυτό το βήμα θα εκτυπώσει και την επικεφαλίδα XML και τη μητέρα node.open ( XML , " >> info.xml ")? XML print " <\\ xml version = \\ " " \\ n \\ ; 1.0 \\ > " ? XML εκτύπωσης " Συμπλήρωση του αρχείου XML . Αυτές οι λίγες γραμμές κώδικα ζητούν πληροφορίες από τον χρήστη . Μετά από μία εγγραφή έχει τεθεί, οι πληροφορίες συμπληρώνει αυτόματα το αρχείο XML , μέσω της " εκτύπωσης " command.TOP : print "Name : " ? $ Name = <> ? Chomp ( $ name ) ? Print " Εθνικότητα : " ? $ nat = <> ? chomp ( $ nat ) ? print " Ημερομηνία γέννησης : " ? $ γέννησης <= > ? chomp ( $ γέννηση ) ? XML εκτύπωσης " Προγραμματίστε την επιλογή εισόδου . . Αφού η είσοδος είναι τυπωμένο στο αρχείο XML , το πρόγραμμα ζητά από το χρήστη εάν θα επιθυμούσαν να εισάγετε ένα νέο ρεκόρ . Για μια καταφατική απάντηση που πρέπει να πατήσετε " n" και αν θέλουν να ξεφύγουν από το πρόγραμμα θα πρέπει να πατήσετε εκτύπωσης " Για νέα εγγραφή πατήστε \\ " n \\ " - Για έξοδο, πατήστε \\ " ε \\ \\ n " " e ". ? Print $ new = <> ? ? chomp ( $ νέο) ? αν ( $ νέο eq " n" ) { goto TOP ? } if ( $ νέο eq " e" ) { XML print " <\\ /: " ? " info > " ? print " Νέο αρχείο XML που δημιουργήθηκε "? έξοδο? } print" Νέο αρχείο XML που δημιουργήθηκε "? . Αυτή απόσπασμα του κώδικα εκτυπώνει επίσης την ετικέτα κλεισίματος της μητέρας κόμβου καθιστώντας έτσι το αρχείο XML νόμιμων Αποθηκεύστε τον κώδικα ως « gen_xml . . pl " Εκτελέστε το πρόγραμμα σε γραμμή εντολών των Windows Ανοίξτε τη γραμμή εντολών και μεταβείτε στον κατάλογο όπου είναι αποθηκευμένο το αρχείο , δηλαδή > cd c : . . \\ your_directory Αφού έχετε εισάγει το είδος καταλόγου " perl gen.xml.pl. " Εισάγετε τις πληροφορίες για τρία φανταστικά πρόσωπα και , στη συνέχεια, βγείτε από το πρόγραμμα . Ελέγξτε την εγκυρότητα XML . Μετά την εκτέλεση gen_xml.pl αναζήτηση , αναζητήστε το ίδιο κατάλογο για ένα αρχείο XML που ονομάζεται " info.xml . " Ανοίξτε το αρχείο σε ένα πρόγραμμα περιήγησης . Εάν η XML ανοίγει σε μορφή δέντρου , τότε η δημιουργία του αρχείου ήταν επιτυχής .
εικόνων 3
Η 4
5
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα