Καλησπερα,
Θα ηθελα τα φωτα καποιου γνωστη στην Perl. Δυστυχως η γνωση πανω σε αυτη ειναι μικρη. Εχουμε τον παρακατω κωδικα που κανει configure το firewalld σε Centos7:
Θελω να ρωτησω:Κώδικας:sub firewall_conf { my @tcp_ports = (21, 22, 443); my @should_be_closed_tcp_ports = (111, '1024-1975', '1977-2811', '2813-5000', '5002-7912', '7914-8004', '8010-8079', '8081-9122', '9126-9998', '10000-65535'); my @udp_ports = (123, 161); my @should_be_closed_udp_ports = ('10000-65535'); my $retcode = 1; my $fw_running = 0; eval { $fw_running = 1 if `firewall-cmd --state` =~ /^running/; print "firewall running? $fw_running\n"; system("/bin/rm -f /etc/firewalld/zones/public.xml") == 0 or print "failed to remove existing public zone configuration\n"; system("systemctl enable firewalld") == 0 or die "failed to enable firewall\n"; system("systemctl start firewalld") == 0 or die "failed to start firewall\n"; system("firewall-cmd --set-default-zone=public") == 0 or die "failed to set default zone to 'public'\n"; map { add_fw_port "$_/tcp" } @tcp_ports, @should_be_closed_tcp_ports; map { add_fw_port "$_/udp" } @udp_ports, @should_be_closed_udp_ports; }; if ($@) { print "ERROR: failed to configure firewall: $@"; if (! $fw_running) { system("systemctl stop firewalld") == 0 or print "ERROR: failed to stop firewall\n"; } $retcode = 0; } return $retcode; }
α) Ο κωδικας θα τρεχει αν βρει οτι το firewalld τρεχει;
β) Αν βρει οτι το firewall ΔΕΝ τρεχει τι κανει;
Εμφάνιση 1-4 από 4
Θέμα: Εξηγηση κωδικα Perl
-
02-12-16, 11:19 Εξηγηση κωδικα Perl #1
Τελευταία επεξεργασία από το μέλος euri : 02-12-16 στις 23:54. Αιτία: προσθήκη του tag [code] για μορφοποίηση κώδικα
Νothing that you learned from ash and debris...
-
02-12-16, 23:44 Απάντηση: Εξηγηση κωδικα Perl #2
Τρέχει, δεν τρέχει το firewall, το script το ξαναξεκινάει.
Αν δεν μπορεί να το ξεκινήσει σου γυρνέι το reason.
-
03-12-16, 00:40 Απάντηση: Εξηγηση κωδικα Perl #3
Ευχαριστω. Και εγω αυτη την εντυπωση ειχα με τις γνωσεις που εχω σε αλλες γλωσσες απλα ειχα τις αμφιβολιες μου για το περι τρεχει, δεν τρεχει.
Νothing that you learned from ash and debris...
-
04-12-16, 19:22 Απάντηση: Εξηγηση κωδικα Perl #4
Βασικά τι είναι αυτό που θέλεις να γίνεται;
Αν μας περιγράψεις το logic, μπορούμε να σου προτείνουμε αλλαγές στο παραπάνω script (ή να σε βοηθήσουμε να γράψεις ένα νέο )...NetBSD Rocks!
http://www.netbsd.org
Παρόμοια Θέματα
-
Ανακοινώσεις για μαθήματα και εκδηλώσεις σχετικά με το ελεύθερο λογισμικό / ανοιχτό κώδικα
Από mrsaccess στο φόρουμ Unix - LinuxΜηνύματα: 109Τελευταίο Μήνυμα: 17-03-24, 00:28 -
Μια απλη εξηγηση για το SNR/SNRM/Noise Margin
Από Arvanitis Garage στο φόρουμ ADSLΜηνύματα: 5Τελευταίο Μήνυμα: 02-11-16, 14:01 -
Πρόβλημα με blog (κώδικα)
Από lebron15 στο φόρουμ Internet, web surfing και online υπηρεσίεςΜηνύματα: 0Τελευταίο Μήνυμα: 28-05-16, 04:42 -
Η MPAA στρέφεται εναντίον του Popcorn Time και των κλώνων του και ζητάει την αφαίρεση του κώδικα από το GitHub
Από nnn στο φόρουμ ΕιδήσειςΜηνύματα: 15Τελευταίο Μήνυμα: 23-03-16, 21:50 -
[Other] προβολή ΖΤΕ οτε adsl modem σε κώδικα !
Από geioannou στο φόρουμ ADSL & Broadband Hardware, routers και modems...Μηνύματα: 4Τελευταίο Μήνυμα: 30-01-16, 22:18
Bookmarks