Πώς να ελέγξετε εάν ένα αρχείο υπάρχει σε Perl

Αρχικά είχε σχεδιαστεί ως ένα Unix scripting γλώσσα , Perl έχει γίνει μια γλώσσα προγραμματισμού γενικής χρήσης που χρησιμοποιούνται σε διάφορες χωρητικότητες . Είναι εξακολουθεί να χρησιμοποιείται ως Unix και Linux scripting γλώσσα από τους διαχειριστές του συστήματος . Μία από τις χρήσεις της γλώσσας μπορεί να είναι να ελέγξετε αν υπάρχει ένα αρχείο και να εκτυπώσετε την απάντηση στην οθόνη ή πράξη σχετικά με το αποτέλεσμα . Η filehandle " - e" χρησιμοποιείται για τη δοκιμή για την ύπαρξη του αρχείου . Οδηγίες
Η

1 Ανοίξτε ένα κενό έγγραφο σε οποιοδήποτε πρόγραμμα επεξεργασίας κειμένου . 2

Τύπος " # ! /Usr /bin /perl -w " στην πρώτη γραμμή του εγγράφου για να ξεκινήσει το σενάριο Perl .
εικόνων 3

Πληκτρολογήστε τη γραμμή " $ file = ' file.txt " για να δημιουργήσετε τη μεταβλητή που κρατά το όνομα του αρχείου . Αντικαταστήστε το " file.txt " με το όνομα του αρχείου που θέλετε να ελέγξετε για .
Η 4

Πληκτρολογήστε τη γραμμή " αν ( e - $ file ) { " για να ξεκινήσει η δήλωση if που ελέγχει για την αρχείο.
5

Πληκτρολογήστε τη γραμμή " εκτύπωσης " Ναι , υπάρχει το αρχείο ! " ? } " για την έξοδο της γραμμής «Ναι , υπάρχει το αρχείο ! " στην οθόνη , αν υπάρχει το αρχείο .
Η

6 Πληκτρολογήστε τη γραμμή " else {print " Όχι , το αρχείο δεν υπάρχει . " ;)" για να εκτυπώσετε τη γραμμή " Όχι , το αρχείο δεν υπάρχουν . " εάν το αρχείο δεν υπάρχει
Η 7

Πληκτρολογήστε τη γραμμή "exit ? " . . να κλείσει το σενάριο Perl
8

Αποθηκεύστε το αρχείο ως " file_exist.pl » και κλείστε το αρχείο .
Η 9

Πληκτρολογήστε " perl file_exist.pl " σε μια γραμμή εντολών για να εκτελέσει το σενάριο .
Η
εικόνων