Πώς να περάσετε παραμέτρους στις Υποεντολές σε Perl

Σε αντίθεση με πολλές άλλες γλώσσες προγραμματισμού , όταν γράφετε τον κώδικα για τις υπορουτίνες σε Perl , δεν περιλαμβάνει τον κατάλογο των παραμέτρων που η συνάρτηση δέχεται . Ωστόσο , αν γνωρίζετε η λειτουργία θα λάβουν μία ή περισσότερες παραμέτρους , θα πρέπει ακόμα να προγραμματίσετε την υπορουτίνα να τα χρησιμοποιούν . Οποιεσδήποτε παράμετροι περνιέται σε ένα υπορουτίνα Perl αποθηκεύονται στο "@ _" συστοιχία , η οποία είναι μια ειδική λίστα συστοιχία . Αυτό ουσιαστικά σημαίνει ότι κάθε υπορουτίνα που δημιουργείτε μπορεί να δεχθεί οποιοδήποτε αριθμό παραμέτρων , αλλά πόσα χρειάζεστε και πώς να τα χρησιμοποιήσετε καθορίζεται από τον κώδικα του υπορουτίνα του . Οδηγίες
Η

1 Ανοίξτε ένα αρχείο προγράμματος Perl . Πληκτρολογήστε τον ακόλουθο κώδικα :

υπο γραμμή {

$ var = @ _ [ 0 ] ?

}

Αυτή η υπορουτίνα χρησιμοποιεί το "@ _ " array για να πάρουμε τις παραμέτρους , αλλά χρησιμοποιεί μόνο το πρώτο . Κλήση είτε «γραμμή ( 'Hello ! ') ? " Ή " γραμμής ( « Γεια σας ! »,« Πώς είσαι; " ) ? " Τόσο των έντυπων όσο " Hello ! " . στην οθόνη 2

Πληκτρολογήστε τον ακόλουθο κώδικα :

υπο addNums {

$ total = 0 ?

για ( $ i = 0 ? $ i <@ _ ? $ i + + ) {

δολάρια συνολικά $ = σύνολο + @ _ [ $ i ] ? }

επιστροφή $ συνολικά?

}

Αυτή η κλήση υπορουτίνα κάνει χρήση όλων των παραμέτρων που διαβιβάζονται σε αυτήν , ανεξάρτητα από το πόσο πολλά υπάρχουν . Κλήση " addNums ( 2,3 ) ? " Επιστρέφει πέντε , " addNums ( 2,5,3 ) ? " Επιστρέφει 10 και « addNums ( 6,2,4,4 ) ? " Επιστρέφει 16
Η <. br > 3

υπο-συστοιχία {

τοπική ( $ parOne , $ parTwo , $ parThree ) ?

( $ parOne , $ parTwo , $ parThree ) = ( $ _ [ 0 ] , $ _ [ 1 ] , $ _ [ 2 ] ) ?

print " Πέρασες $ parOne , $ parTwo και $ parThree ως παραμέτρους . "?

}

Αυτή η υπορουτίνα παίρνει τις τρεις πρώτες παράμετροι που διαβιβάζονται σε αυτήν και να τους αναθέτει στις τοπικές μεταβλητές . Χρησιμοποιώντας ειδικά ονόματα μεταβλητών πλέον υπορουτίνες μπορεί να το καταστήσει ευκολότερο να καταλάβουμε τι είναι αντί να χρησιμοποιεί τη γενική καθένα @ _ array .
Η

4 Αποθηκεύστε το αρχείο Perl πρόγραμμα και να το εκτελέσετε .


εικόνων