1 Ανοίξτε το αρχείο Perl FORMAT.DAT την αίτησή σας 2
Εισάγετε ανοικτή » ( FILE , " @ γραμμές = ? . Κλείσιμο ( ΑΡΧΕΙΟ ) ? . " This σύνολα η μορφή της έκθεσης , έτσι ώστε κάθε είσοδος είναι δική του γραμμή .
εικόνων 3
Δημιουργήστε το σώμα της Perl εκθέσεις δίνοντας Perl κατεύθυνση για το τι πρέπει να υποβάλει έκθεση . Χρησιμοποιώντας έναν κατάλογο παντοπωλείων ως παράδειγμα , πληκτρολογήστε " για κάθε ( @ γραμμές) { μπριζόλα ? ( $ νησί , στοιχείο $ , $ τιμή ) = ( διαίρεση ( //) ! ) ? print ( " Isle = $ νησί Θέση = $ στοιχείο Τιμή = $ τιμή \\ n " . . ) ? } "
Η 4
Χρησιμοποιήστε αυτή τη μορφή , εάν τα στοιχεία της βάσης δεδομένων είναι όλα πλήρη Εάν υπάρχουν στοιχεία που λείπουν , η μορφή δεν θα ευθύνονται για τα ελλείποντα στοιχεία Δείτε το παράδειγμα : Isle = 5 Προϊόν = Τιμή = Isle = 2 Θέση = Πορτοκάλια Τιμή = 0.32Isle = 7 Item = πατατάκια Τιμή = 2.95Isle = 9 Προϊόν = Λαμπτήρες τιμή = 2.50
5
Γράψτε τον κατάλογο άλλο τρόπο , αν θέλετε . μια σταθερού πλάτους μορφή Χρησιμοποιήστε τον κωδικό " για κάθε ( @ γραμμές) {
μπριζόλα ?
( $ νησί , στοιχείο $ , $ τιμή ) = ( ! διάσπαση ( //) ) ?
$ νησάκι = " " εάν έχει οριστεί ( $ νησί ) ? ! Αυτές οι γραμμές εκχωρήσετε null
$ item = " " εάν έχει οριστεί ( $ στοιχείο ) ? ! χορδές αν δεν info είναι
$ τιμή = " " εάν έχει οριστεί ( $ τιμή ) ? ! . που υπάρχουν στο αρχείο
print ( " Isle = $ νησί Θέση = $ στοιχείο Τιμή = $ τιμή \\ n" ) ?
} "
Η 6
εξόδου της δημιουργήσει την Perl αναφέρει παρόμοιο με το ακόλουθο παράδειγμα : Isle = 5 Item = Τιμή = Isle = 2 Θέση = Πορτοκάλια Τιμή = 0.32Isle = 7 Item = πατατάκια Τιμή = 2.95Isle = 9 Προϊόν = Λαμπτήρες τιμή = 2.50
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα