Perl Script

MyOOS [Dumper]ist ein Sicherungsprogramm für MySQL-Datenbanken. Damit können Sicherungskopien der Daten (Forum, Shop, Blog, usw.) erstellt und bei Bedarf auch wieder hergestellt werden. Besonders bei Web-Space ohne Shell-Zugang bietet sich MyOOS [Dumper] als sinnvolle Alternative an.
Antworten
r23
Beiträge: 2718
Registriert: 18.09.2008, 05:56
Wohnort: Hagen
Kontaktdaten:

Perl Script

Beitrag von r23 »

Hallo,

der Code, den wir haben, ist nicht veraltet, aber er könnte verbessert werden, indem wir einige moderne Perl-Praktiken anwenden. Hier sind einige Vorschläge:

- Verwende die `use strict` und `use warnings` Pragmen, um häufige Fehler zu vermeiden und gute Programmiergewohnheiten zu fördern.
- Verwende die `use utf8` Pragme, um anzugeben, dass Ihr Skript UTF-8-kodierte Zeichen enthält.
- Verwende die `use CGI qw(:standard)` Syntax, um nur die Standardfunktionen von CGI zu importieren und Namenskonflikte zu vermeiden.
- Verwende die `say` Funktion anstelle von `print`, um automatisch einen Zeilenumbruch am Ende jeder Ausgabe hinzuzufügen.
- Verwende die `q` und `qq` Operatoren, um einfache und doppelte Anführungszeichen zu vermeiden und Ihren Code lesbarer zu machen.

Mit diesen Änderungen würde Ihr Code so aussehen:

Code: Alles auswählen

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use CGI qw(:standard);
use feature 'say';
im Test Script habe ich dies bereits eingebaut:

Code: Alles auswählen

say header(-type => q{text/html; charset=utf-8}, -cache_control => q{no-cache, no-store, must-revalidate});
say q{<!DOCTYPE HTML>};
say q{<html><head><title>MyOOS [Dumper] Perl modul test</title>};
say q{<style type="text/css">body { padding-left:18px; font-family:Verdana,Helvetica,Sans-Serif;}</style></head>};
say q{<body><h2>Testing needed Perl-Moduls in order to run the Perl script crondump.pl</h2>};
say q{<h4 style="background-color:#ccffcc;">Necessary Modules for crondump.pl</h4>};
say q{<strong>testing DBI ...</strong>};
https://github.com/r23/MyOOS-Dumper
MK70
Beiträge: 76
Registriert: 05.02.2021, 16:11

Re: Perl Script

Beitrag von MK70 »

:wink:
Antworten