Πλησιάζουμε την Παραμονή των Χριστουγέννων και τα Χριστούγεννα και εδώ σας φέρνουμε αυτό το απλό πρόγραμμα Perl με το οποίο μπορείτε να διακοσμήσετε το τερματικό σας με το χριστουγεννιάτικο πνεύμα.
Με αυτό το πρόγραμμα Η κονσόλα linux μπορεί να μοιάζει με χριστουγεννιάτικο δέντρο κινούμενο σχέδιο και παρόλο που η χρησιμότητά του δεν υπερβαίνει το αισθητικό μέρος της κονσόλας, είναι κάτι που είναι αρκετά περίεργο και μπορούμε να το χρησιμοποιήσουμε αυτές τις μέρες του Δεκεμβρίου και αν διαβάζετε και ενδιαφέρεστε να το δοκιμάσετε, συνεχίστε να διαβάζετε ότι εξηγώ πώς να κάνεις τι.
Επομένως, για να δείτε το δέντρο στην κονσόλα είναι απαραίτητο εγκατεστημένο Perl στο σύστημα (με το οποίο θα συμβεί η μαγεία), εάν το έχουμε ήδη, μπορείτε να το εγκαταστήσετε Acme :: POE :: Δέντρο. Για αυτήν την εγκατάσταση, πρέπει να χρησιμοποιήσουμε τη μονάδα CPAN (Comprehensive Perl Archive Network) μετά την εκκίνηση με προνόμια, θα γράψουμε μια απλή γραμμή εντολών:
perl -MCPAN -e 'install Acme::POE::Tree'
Ήδη όταν το κάνουμε αυτό, θα δούμε το κινούμενο χριστουγεννιάτικο δέντρο στο κέλυφος με μια πολύ απλή εντολή:
perl -MAcme::POE::Tree -e 'Acme::POE::Tree->new()->run()'
Είναι επίσης δυνατό να προσαρμόσετε αυτό το δέντρο εάν το επιθυμείτε, απλά πρέπει επεξεργαστείτε τον πηγαίο κώδικα του σεναρίου Perl και το αποθηκεύετε σε ένα αρχείο κειμένου (για παράδειγμα: Christmas.pl) με το ακόλουθο περιεχόμενο:
#! / usr / bin / perl
χρησιμοποιήστε το Acme :: POE :: Tree;
my $ tree = Acme :: POE :: Tree-> νέο (
{
star_delay => 1.5, # φωτεινότητα για 1.5 δευτερόλεπτο
light_delay => 2, # Τα φώτα αναβοσβήνουν για 2 δευτερόλεπτα
run_for => 10, #Exit αυτόματα μετά από 10 δευτερόλεπτα δείγματος
}
);
$ tree-> run ();
Με αυτό το απλό πρόγραμμα, η κονσόλα σας θα ντυθεί με το χριστουγεννιάτικο πνεύμα και, όπως πάντα, περιμένουμε τα σχόλια και τις εντυπώσεις σας.
ΚΑΛΑ ΧΡΙΣΤΟΥΓΕΝΝΑ!!
Είσαι υπέροχος RoBertucho.
«Μόλις το κάνουμε αυτό, θα δούμε το κινούμενο χριστουγεννιάτικο δέντρο στο κέλυφος με μια πολύ απλή εντολή:
perl -MAcme :: POE :: Tree -e 'Acme :: POE :: Tree-> new () -> run ()' »
Είναι ξεκάθαρο ποιος θα ξεχάσει μια εντολή τόσο απλή που θα απομνημονευθεί βλέποντας την για 1 δευτερόλεπτο
Φίλε @ sli, είναι πραγματικά απλό, αυτό που συμβαίνει είναι ότι μπορεί να μην έχετε έννοιες σχετικά με τον προγραμματισμό. Επιτρέψτε μου να σας εξηγήσω με μεγάλη λεπτομέρεια τι συμβαίνει πίσω από τα παρασκήνια.
Όταν δεν είμαστε, γράφουμε στο τερματικό: »perl -MAcme :: POE :: Tree -e 'Acme :: POE :: Tree-> new () -> run ()" «. Αυτό που επισημαίνουμε στον υπολογιστή είναι ότι η γλώσσα προγραμματισμού Perl εκτελεί την εφαρμογή που διαβιβάζεται ως επιχείρημα στον διερμηνέα Perl 🙂
Δεν μου αρέσει πολύ ο Perl, προτιμώ την Python ως γλώσσα σεναρίου για τους πιγκουίνους μου.
Χαιρετισμούς.
Είναι καλύτερο αυτό
https://gist.github.com/franktoffel/aea4329b760eb3e72f4d
Δεν εμπιστεύομαι αν λέει acme