Joopi - Migrationssammler

Groß-/Kleinschreibung nicht beachten

Sun, 02 Nov 2025 09:57:22 +0100

In der Bash wird bei der Ausführung von Befehlen die Groß-/Kleinschreibung standardmäßig beachtet. Um selber steuern zu können, ob die Groß-/Kleinschreibung beachtet wird oder nicht, gibt es folgende Parameter, die bei find oder grep genutzt werden können.

Ein Beispiel für die Beachtung von Groß-/Kleinschreibung mit dem Befehl find (case-sensitive / case-insensitive):

Code:
find . -iname "*.jpg"

-name = case-sensitive
-iname = case-insensitive

Der Standard für den Befehl grep ist, dass Groß-/Kleinschreibung beachtet wird. Um diesen auszuschalten, ist die Option -i notwendig.

Code:
grep -i "error" /var/log/*.log

Es werden also alle Log-Dateien, egal wie sie benannt wurden, durchsucht.

Einigen Code zu MySQL

Sat, 23 Nov 2024 19:06:12 +0100

MySQL - wichtige Stringfunktionen

CHAR_LENGTH(str ): Gibt die Länge eines Strings zurück. Sehr interessant um zu wissen wie lange eine Zeichenkette ist. Diese Funktion zählt die Zeichen, nicht die Bytes.

Code:
SELECT CHAR_LENGTH( "Hallo" );

ergibt also:

Zitat:5

LEFT(str,len): Gibt die ersten len Buchstaben eines Strings der linken Seite zurück.

Code:
SELECT LEFT( "das ist ein Test", 9 );

würde demzufolge "das ist e" zurückgeben.

RIGHT(str,len): Gibt dementsprechend die rechte Seite eines Strings zurück.

Code:
SELECT RIGHT("Das ist ein TEST",10);

ist dann "t ein TEST".

MySQL - verbinden zweiter Tabellen per JOIN

Sehr häufig müssen 2 Tabellen miteinander verbunden werden. Denn oft stehen Tabellen mit einander in Verbindung. Zum Beispiel beinhaltet eine Tabelle mit Kundendaten in einer Spalte das Bundesland in dem der Kunde wohnt. Natürlich könnte man jetzt immer dort "Hessen" eintragen. Geschickter ist es aber in dieser Spalte nur eine Nummer zu hinterlegen, die in der Tabelle "Bundesländer" dann mit der id von Hessen verknüpft ist.

Viele werden jetzt sagen: "Hessen ist doch schnell getrippt, warum Tabellen verbinden". Das schöne ist, man kann komplette Datensätze miteinander verbinden, ohne alle Angaben nochmal eintragen zu müssen. Zum Beispiel braucht man dann in einer Tabelle "Rechnungen" nicht mehr alle Kundeninformationen speichern wie z.B. Name, Strasse, plz, ort. Sondern man speichert nur noch die Zahl oder id des Kunden aus der "Kundentabelle". Man spricht hier von Entitäten.

Eingie Varianten sind LEFT JOIN, RIGHT JOIN, oder INNER JOIN. Hier mal 3 Beispiele:

Code:
SELECT * FROM kunde

INNER JOIN rechnung ON kunde.id=rechnung.rech_id;

Bei einem INNER JOIN werden zum Beispiel nur die Daten angezeigt, die in beiden Tabellen übereinstimmen. Also werden in diesem Fall nur Kunden mit einer Rechnung angezeigt.

Code:
SELECT * FROM kunde

LEFT JOIN rechnung ON kunde.id=rechnung.rech_id;

Bei einem LEFT JOIN werden zum Beispiel alle Daten der Linken Tabelle des Joins angezeigt, und wenn in der Rechten Tabelle keine übereinstimmenden Daten vorhanden sind, bleiben diese Spalten dann eben leer. Also werden in diesem Fall alle Kunden angezeigt, ob Sie eine rechnunge haben oder nicht.

Code:
SELECT * FROM kunde

RIGHT JOIN rechnung ON kunde.id=rechnung.rech_id;

Dieses Beispiel macht eigentlich keinen Sinn. Es besagt, daß alle Rechnungen angezeigt werden sollen, auch wenn es für diese Rechnung in der Tabelle Kunden keinen Kunden gibt. Und Rechnungen ohne Kunden machen nun wirklich keinen Sinn. Aber dennoch braucht man diese Funktion. Stellen Sie sich zum Beispiel den Fall vor, daß ein Kunde aus versehen aus der Kundentabelle gelöscht wurde. Mit dieser Funktion kann man jetzt nach Rechnungen suchen, die keinen Kunden haben.

MySQL - Bei einer MySQL die Standart-Kollation ändern

Da hat man eine neue MySQL Datenbank angelegt, und muss nach dem Einfügen der Tabellen mit entsetzen feststellen, dass alle Text-Spalten mit der Standart Kollation latin1_swedish_ci angelegt werden. Da kann es dann schon mal zu Problemen mit den Umlauten kommen. Wie kann man jetzt den Standart der Kollation auf einen Anderen setzen? Hier ist der SQL-Befehl:

Code:
ALTER DATABASE `db-name` 

DEFAULT CHARACTER SET latin1 

COLLATE  latin1_german1_ci;

Wenn man, wie es normalerweise der Fall ist, oft mit Umlauten und vielleicht sogar mit der russischen Schrift arbeitet, dann ist es besser folgende Collation zu benutzen.

Code:
ALTER DATABASE `db422430845` 

DEFAULT CHARACTER SET utf8 

DEFAULT COLLATE utf8_general_ci;

MySQL - aktuelle Zeit oder Datum in eine Spalte schreiben

Sehr oft kommt es for daß man das aktuelle Datum in eine Spalte einer Tabelle eintragen will. Sehr häufig benutzt man es für eine Spalte in der der letzte Log-In protokolliert wird. Oder man will festhalten wann ein Datensatz angelegt, oder das letzte Mal geändert wurde. Man kann das in php erledigen, und den wert dann gleich richtig formatiert mitschicken, man könnte das aber sofort und einfacher per MySQL erledigen. Hier wird jetzt das Datum samt Urzeit im richtigen Format für eine MySQL-Tabelle eingetragen: '2012-01-19 10:03:25'

Code:
UPDATE tabelle SET login=NOW()

Wenn Sie nur das Datum eintragen möchten, dann wäre das hier das richtige. Hier wird jetzt nur das Datum im richtigen Format für eine MySQL-Tabelle eingetragen: '2012-01-19'

Code:
UPDATE tabelle SET login=CURDATE()

Wegen der Vollständigkeit hier noch die Zeit. Mit den beiden letzten funktionen könnte man dann die Logindaten in zwei verschiedene Spalten schreiben. Eine für das Datum eine für die Zeit. Hier wird jetzt die Urzeit im richtigen Format für eine MySQL-Tabelle eingetragen: '10:03:25'

Code:
UPDATE tabelle SET login=CURTIME( );

MySQL - Ein Deutsches Datum per SQL in die Datenbank schreiben

Oft steht man vor dem Problem, daß mann ein Deutsches Datum in eine Zelle schreiben muss. Doch dummerweise versteht MySQL das deutsche Datumsformat nicht. Oft wird dann mit php oder anderen Scripten das Datum in kleine Teilstrings zerstückelt. Doch hier gibt es einen kleinen netten SQL-Befhel, der das alles wie von selbst macht. Hier ist der SQL-Befehl:

Code:
INSERT INTO `tabelle` (`id` ,`datum`) VALUES ('', STR_TO_DATE('14.04.2006', '%d.%m.%Y'));

MySQL - Ein Datum aus der MySQL-Datenbank im Deutschen Format anzeigen

Wir wissen jetzt, wie man ein Deutsches Datum in die Datenbank bekommt. Doch wie bekommt man es jetzt von dort wieder im Deutschen Format raus ??? Hierfür gibt es jetzt noch ein MySQL-Befehl, und der sieht so aus:

Code:
SELECT DATE_FORMAT(datum, '%d.%m.%Y') AS MeinDatum FROM tabelle;

MySQL - Mit IN Array eine MySQL-Datenbank durchsuchen

Manchmal kommt es vor, daß man eine Datenbank nach mehreren Begriffen durchsuchen muss. Man könnte jetzt natürlich die Begriffe aneinanderreihen nach dem Motto: "WHERE test LIKE 'A' OR test LIKE 'B' OR test LIKE 'C' ". Aber das macht den MySQL Code sehr unübersichtlich, wenn man mal gerne 20 oder mehr Begriffe abfragen möchte. Hier gitb es eine tolle Hilfe. Den Befehl IN ('A', 'B', 'C').

So würde das Ganze dann aussehen:

Code:
SELECT * 

FROM tabelle

WHERE test IN ('A', 'B', 'C');

Wenn das Array schon in php in einer Variable vorliegt, könnte man das Ganze noch besser machen. Und zwar so:

Code:
$array = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I');

$SQLarray = "'" . implode("','", $array) . "'";

$MySQL = "SELECT * FROM tabelle WHERE test IN ($SQLarray);";

echo $MySQL;

MySQL - Datensätze aus zwei Spalten in einer Spalte zusammenfassen

Ab und zu kommt es auch vor, daß man die Werte zweier Spalten in einer Spalte zusammenfassen möchte. Auch hierfür gibt es einen bestimmten SQL-Befehl. In meinem Beispiel werden die beiden Werte mit einem Komma getrennt in die 3. Spalte geschrieben. Hier ist der SQL-Code:

Code:
UPDATE INTO tabelle1  

SET Spalte3 = CONCAT( Spalte1, ', ', Spalte2 )

WHERE bedingung = 1

MySQL - Mit IF eine MySQL-Datenbank abfragen

Heute ist es mir mal wieder passiert, dass ich in einer Datenbank eine Abfrage machen wollte mit der man auf einen bestimmten Umstand anders reagieren könnte. Und dabei ist mir mal wieder nicht die richtige Syntax eingefallen. Ich wollte den Inhalt einer Spalte abfragen, und wenn diese nicht vorhanden ist, soll der Wert einer anderen Spalte genommen werden.

Der Grund dafür könnte sein, dass eine Tabelle verschiedene Sprachversionen in den einzelnen Spalten ist, und wenn jetzt z.B. Spanisch noch nicht übersetzt ist, soll er eben die Übersetzung aus der Englischen Spalte nehmen.

So würde das Ganze dann aussehen:

Code:
SELECT IF(spanisch LIKE '',englisch,spanisch) AS MeinText

FROM tabelle

WHERE id = 1;

Das schöne daran ist, ich kann jetzt in meinem php Code einfach echo $row['MeinText']; einbauen und muss mich dann hier nicht mit einer php IF-Then-Else Geschichte rumplagen, da es in MySQL doch einfacher zu handhaben ist.

Vielleicht hilft Euch das ja weiter. Mir hat es zumindest geholfen. :-)

MySQL - Datensätze suchen, die nicht einer Anforderung entsprechen

Heute stand ich vor dem Problem Datensätze zu suchen, die einem Kriterium nicht entsprechne dürfen. Da ich dies schon öfter benutzt habe und heute danach gefragt wurde, möchte ich dies jetzt hier für die Nachwelt festhalten. Hier ist der relativ simple SQL-Code für My SQL

Code:
SELECT * FROM teballe 

WHERE spalte NOT LIKE 'SuchBegriff';

MySQL - Bei einer WHERE Abfrage nach einem Teilstring suchen

Wie macht man es, wenn man nur nach einem Teilstring in MySQL suchen möchte? Das ist sehr ähnlich wie bei MS Access. Einfach mit left und right scuhen, wenn sich der Teilstring am Ende oder am Anfang befindet.

Code:
SELECT * FROM tabelle 

WHERE left(spalte, 5) LIKE '12345';

Eine andere Möglichkeit wäre natürlich mit dem Platzhaltersymbol '%' zu suchen. Dann findet er diesen Teilstring egal wo sich dieser in der Spalte befindet.

Code:
SELECT * FROM tabelle 

WHERE spalte LIKE '%12345%';

In diesem Zusammenhang sei noch erwänt, daß man auch nach einem String suchen kann, bei dem man einen oder mehrere Buchstaben durch einen Platzhalter oder Joker ersetzt. In dem unten gezeigten Beispiel findet er 12345 oder auch 10345. Das ist zum Beispiel interessant, wenn man nicht mehr weiß ob man in einem Spanischen Wort das 'ñ' mit einem normalen 'n' geschrieben hat oder nicht. So könnte man dann nach 'Espa_a' suchen und er würde 'España' und auch 'Espana' finden.

Code:
SELECT * FROM tabelle 

WHERE spalte LIKE '%1_345%';

Letzte Änderung dieser Information:

Zitat:19.01.2012 10:47 h

MySQL - Nach einem Strings einer bestimmten Länge suchen

Manchmal könnte es vorkommen, daß man Strings sucht, die eine bestimmte Länge aufweisen. So ist es mir zumindest heute ergangen. Dafür gibt es auch SQL Funktionen. Für meinen Fall half mir heute diese SQL.

Code:
SELECT *

FROM tabelle

WHERE CHAR_LENGTH( spalte ) >5;

MySQL - Eine Spalte in zwei Tabellen vergleichen und fehlende anzeigen

Soeben habe ich mich gefragt, wie man eine Spalte in zwei Tabellen vergleichen kann. Ich hatte zwei Tabellen, die eigentlich die gleiche Anzahl von datensätzen haben sollte. Hatten Sie aber nicht. Die eine Tabelle hatte einen Satz mehr. Damit ich nicht meine Jugendzeit damit verbringe, diesen einen Satz zu suchen, habe ich eine SQL-Abfrage geschrieben. Hier ist sie:

Code:
SELECT a.spalteA

FROM tabelle1 AS a

LEFT JOIN tabelle2 AS b ON a.spalteA = b.id

WHERE b.id IS NULL;

MySQL - Werte einer Spalte in eine andere Spalte schreiben

Heute hatte ich das Problem, daß ich Werte einer Spalte in eine andere Spalte schreiben mußte, und das über 24 Spalten hinweg bei einer Anzahl von 1200 Datensätzen. Da läßt sich logischerweise nichts mehr mit der Hand machen. Also kam ich zu folgender Lösung:

Code:
UPDATE `tabelle` SET 

wert1 = wert4, 

wert2 = wert5, 

wert3 = wert6;

Dabei sollte man aber bedenken, daß man nicht Spalte 1 auf Spalte 2 und dann erste Spalte 2 auf Spalte 3 setzen kann. Denn dann hat man dreimal den Wert der Spalte 1. Man muß am hinteren Ende der Tabelle anfagnen, damit man sich nicht die Werte überschreibt. Bei solchen Angelegenheiten ist es sowieso ratsam man macht erst einmal einen Test mit einer Beispieltabelle, und dann erst an den richtigen Daten. Am Besten ist es auch vorher von der Datenbank ein Backup zu erstellen.

MySQL - Spalte mit einer bestimmten Anzahl von Buchstaben füllen

Wollten Sie schon mal eine Spalte mit einer bestimmten Anzahl von Buchstaben füllen? Das mußte ich heute. Meine Tabelle braucht in einer Spalte eine gewisse Anzahl von Buchstaben für einen Belegunskalender für Ferienhäuser. Also muß in der Spalte für den Januar 31 Buchstaben stehen, für Februar 2012 natürlich 29, da dies ein Schaltjahr ist. Hier folgender Vorschlag:

Code:
UPDATE `tabelle` SET 

januar = REPEAT('F',31),

februar = REPEAT('F',29);

Einigen Code zu PHP

Sat, 23 Nov 2024 18:55:51 +0100

PHP - Suchen eines Key in einem Array

Manchmal ist es notwendig die Position eines Wertes in einem Array zu wissen. Dafür gibt es einen php-Befehl: array_search.
Hier mal ein kleines Beispiel:

Code:
$MeinArray = array("W0","W1","W2","W3");  $MeinKey = array_search("W2", $MeinArray);  echo "Mein Key = ".$MeinKey; 

Das Ergebnis dieser Abfrage ist dann:

Zitat:Mein Key = 2

PHP - Der erste Key eines Array soll höher als Null sein.

Es kommt auch schon einmal vor, das Array mit einem anderen key anfangen soll. Ein normales Array fängt immer mit einem Key von 0 an. Was wäre aber jetzt, wenn edas programm verlangt, das der Key mit 100 anfangen soll? Hier gibt es auch eine einfache Lösung.

Hier mal ein kleines Beispiel:

Code:
$MeinArray = array("W0","W1","W2","W3");

$MeinNeyesArray = array(100 => "W100","W101","W102","W103");  

echo "Mein 102 = ".$MeinNeyesArray[102]; 

Das Ergebnis dieser Abfrage ist dann:

Zitat:Mein 102 = W102

PHP - Hier die Beispiele mit der date() - Funktion

Code:
date("d.m.Y");

Heutiges Datum mit jeweils führender Null und vierstellige Jahreszahl so sieht's: aus:

03.01.2023

Auch die Zeit kann man damit darstellen:

Code:
date("h:i:s \h");

Zu bedenken ist dabei, daß es sich um die Zeit des Servers handet. Und so sieht's aus:

Zitat:05:14:13 h

Man kann beides zusammentun, und erhält dann etwas wie:

Code:
date("l jS F Y h:i:s");

Hier das Ergebnis:

Zitat:Tuesday 3rd January 2023 05:14:13

Jetzt noch ein letztes Beispiel, wie man auch andere Daten außer dem heutigen Datum darstellen kann, und sogar auch damit rechnen.

Code:

    $noon = mktime(12,0,0, date("m"), date("d"), date("Y"));

    $morgen = mktime(0,0,0, date("m"), date("d")+1, date("Y"));

    $letztermonat = mktime(0,0,0, date("m")-1, date("d"), date("Y"));

    $naechstesjahr = mktime(0,0,0, date("m"), date("d"), date("Y")+1);

    echo "Heute Mittag = ".date("d.m.Y h:i:s", $noon)."
";

    echo "Morgen = ".date("d.m.Y", $morgen)."
";

    echo "Letzer Monat = ".date("d.m.Y", $letztermonat)."
";

    echo "Nächstes Jahr = ".date("d.m.Y", $naechstesjahr)."
";

?>

Und so sieht das ganze dann aus:

Zitat:Heute Mittag = 03.01.2023 12:00:00
Morgen = 04.01.2023
Letzer Monat = 03.12.2022
Nächstes Jahr = 03.01.2024

PHP - Ein Datum aus der Datenbank richtig darstellen

Wenn man ein Datum in der Datenbank speichert wird es normalerweise in einer Art und Weise gespeicher, daß man es in deutsch nicht wirklich lesen kann. Aus diesem Grund gibt es einen netten php-Befehl, der das Datum in ein Array packt, und von dort wieder ausgelesen werden kann.

Code:
$datum = explode("-",tabellenspalte);  

echo $datum[2].".".$datum[1].".".$datum[0]; 

Das Ganze würde aber auch Sinn machen, daß man es direkt in der SQL-Abfrage ändert. Das können Sie aber in der Rubrik Tipps und Tricks für MySQL nachlesen

PHP - Mit strpos einen String suchen

Sehr oft kommt es vor, daß man überprüfen muss ob ein String in einem anderen String vorhanden ist. Hierfür ist der php-Befehl strpos('meinstring','suchstring'); hilfreich.

Hier mal eine kleines Beispiel:

Code:

    $meinString = 'abc'; 

    $findMich  = 'a'; 

    $pos = strpos($meinString, $findMich); 

    if ($pos !== false) { 

        echo "Der String '$findMich' wurde im String 

        '$meinString' gefunden";

        echo " und befindet sich an Position $pos"; 

    } else {

        echo "Der String '$findMich' wurde nicht im String 

        '$meinString' gefunden"; 

    } 

?>

weitere Beispiele und Erklärungen finden Sie auf der Seite
http://php.net/manual/de/function.strpos.php

Ab und zu muss man aber nach dem letzten Vorkommen eines Zeichens suchen. Dafür gibt es auch einen Befehl, der da wäre: strrpos('meinstring','suchstring')

Beide Befehle kann man noch mit einem dritten Parameter versehen. Der besagt ab welchem Zeichen gesucht werden soll. Wenn dieser Wert negativ ist, dann würde er ab dem Zeichen vom Ende der Zeichenkette anfangen zu suchen.

Code:
$pos = strpos('abcdef abcdef', 'a', 1); // $pos = 7, nicht 0

PHP - Anzahl der Tage eines Monats ermitteln

In letzter Zeit treffe ich immer öfter auf das Problem, wie ich herausfinden kann, wieviel Tage ein bestimmter Monat hat. Dazu gibt es natürlich auch einen Programmierweg. Dieser setzt sich aus den beiden php-Funktionen
mktime und date zusammen. Zuerst muß man das Datum von einem Text in einen Wert, den sogannten Timestamp, umwandeln. Dies sind die Sekunden seit dem 01.01.1970. Damit kann man dann wiederum ermittlen, wieviel Tage der Monat hat. Hier mal das script dazu:

Code:
echo date("t",mktime(0,0,0,2,1,2012));

Und das ergebins davon ist:

Zitat:29

PHP - Grossen Zahl nach Tausendern mit Trennzeichen darstellen

Wenn man eine grosse Zahl wie z.B. 10000000 auf einer Webseite darstellen möchte, wird das Lesen dieser Zahl bei so vielen Nullen etwas schwierig. Hierfür gibt es eine php-Funktion die sich number_fomrat nennt. Sie Syntax ist recht simple.

Code:
echo number_format('10000000', 0, ',', '.');

echo number_format('10000000', 2, ',', '.');

echo number_format('10000000');

So würde das ganze dann fertig aussehen:

Zitat:10.000.000
10.000.000,00
10,000,000

Die erste Zeile ist das Deutsche Zahlenformat. Die zweite Zeile wird mit der Zahl 2 dazu veranlasst noch 2 Stellen hinter dem komma anzuzeigen. Die Dritte Zeile ist das engliche Zahlen Format.

Daten aus Tabelle in eine andere Tabelle erfassen

Fri, 22 Nov 2024 12:41:24 +0100

Aus gegebenem Anlass wollte ich wissen, ob ich aus einer Tabelle oder einem JOIN-Statement Tabellenzeilen in einer neuen oder bestehenden Tabelle einfügen kann.

Ergebnis: ja, das geht.

Das war mein erster Versuch, um dieses Thema zu lösen (recht naiv, aber wer nicht wagt, der nicht gewinnt):

Code:
SELECT id, anz_datei INTO result FROM anzahlen WHERE anz_datei > 100;

Es kommt dabei zu einer Fehlermeldung seitens MySQL:

Zitat:#1327 - Nicht deklarierte Variable: result

Das kann so nicht funktionieren, denn die aufnehmende Tabelle ist nicht vorhanden. Also muss die Tabelle erstellt werden, zur Laufzeit, um eben Daten aufnehmen zu können:

Code:
CREATE TABLE result SELECT id, anz_datei FROM anzahlen WHERE anz_datei > 100;

Das hat funktioniert, denn die Tabelle wird angelegt, bevor die SELECT-Anweisung startet. Die neue Tabelle wurde mit Daten gefüllt. Das AUTO_INCREMENT aus dem Feld id wurde jedoch nicht mitgenommen. Solche Tabellen würde ich auch nur dann einsetzen, wenn ich sie temporär brauche (vielleicht versus Views?).
Ob die Attribute der Felder, die erstellt werden müssen, mitgeschleppt werden, muss ich noch recherchieren.

Nun sollen weitere Daten in die Tabelle aufgenommen werden. Dies erfolgt dann auf diese Art und Weise:

Code:
INSERT INTO result (id, anz_datei) SELECT id, anz_datei FROM anzahlen WHERE anz_datei = 5094;

Hierbei ist zu beachten, dass die aufnehmende Tabelle bereits existiert. Und schon sind die Daten erfasst und stehen zur Verfügung.

Warum kam ich auf diese Thematik?

Wenn ich ein Programm laufen lassen, dass sich Daten aus Tabellen mit JOIN-Statements holt, dann macht es vielleicht Sinn, die Abfragen vorab zu gestalten (und auch auszuführen), um später im Programmablauf nur noch auf Tabelle zugreifen zu können, ohne das die aufwendigen JOIN-Anweisung abzuarbeiten sind. Das ist nicht immer möglich, denn wenn im Programmablauf erst eine Unbekannte bekann wird, kann vorher keine Tabelle mit Inhalten gefüllt sein. Es kommt also auf den Anwendungsfall an.

Eine leere Textdatei erstellen

Sat, 16 Nov 2024 21:29:28 +0100

Wie wird in Perl eine leere Textdatei erstellt?

Code:
my $datei = "leere_datei.txt";

# Datei im Schreibmodus öffnen

open(my $fh, '>', $datei) or die "Kann die Datei nicht erstellen: $!";

# Datei schließen

close($fh);

print "Die Datei '$datei' wurde erstellt.\n";

Erklärung:

Code:
open(my $fh, '>', $datei):

Öffnet die Datei $datei im Schreibmodus (>).
Wenn die Datei nicht existiert, wird sie erstellt.
Wenn die Datei existiert, wird ihr Inhalt gelöscht.

Code:
close($fh):

Schließt den Datei-Handle, um sicherzustellen, dass die Datei korrekt gespeichert wird.
or die "...":

Gibt eine Fehlermeldung aus und beendet das Skript, falls das Öffnen der Datei fehlschlägt (z. B. aufgrund von fehlenden Schreibrechten).

Alternative Methode: Mit touch
Falls du das Modul File::Touch verwenden möchtest, kannst du eine leere Datei ähnlich wie mit dem Linux-Befehl touch erstellen:

Code:
use File::Touch;

my $datei = "leere_datei.txt";

touch($datei);

print "Die Datei '$datei' wurde erstellt.\n";

Installation von File::Touch:
Falls das Modul noch nicht installiert ist, kannst du es über CPAN installieren:

Code:
cpan File::Touch

File Test Operator für Dateien und Ordner

Sat, 16 Nov 2024 21:23:22 +0100

Einfache Prüfung, ob eine Datei existiert.

Code:
my $datei = "beispiel.txt";

if (-e $datei) {

    print "Die Datei '$datei' existiert.\n";

} else {

    print "Die Datei '$datei' existiert nicht.\n";

}

Zusätzliche Datei-Prüfungen
Perl bietet viele weitere File Test Operators, um Dateien und Verzeichnisse zu überprüfen. Hier sind einige nützliche Operatoren:
Operator
Beschreibung

Code:
-e

Existiert die Datei?

Code:
-f

Ist es eine reguläre Datei?

Code:
-d

Ist es ein Verzeichnis?

Code:
-r

Ist die Datei lesbar?

Code:
-w

Ist die Datei schreibbar?

Code:
-x

Ist die Datei ausführbar?

Code:
-z

Ist die Datei leer?

Code:
-s

Gibt die Größe der Datei zurück.

Code:
my $datei = "beispiel.txt";

if (-e $datei) {

    print "Die Datei '$datei' existiert.\n";

    if (-f $datei) {

        print "Es ist eine reguläre Datei.\n";

    } elsif (-d $datei) {

        print "Es ist ein Verzeichnis.\n";

    }

    print "Die Datei ist " . (-s $datei) . " Bytes groß.\n" if -s $datei;

    print "Die Datei ist lesbar.\n" if -r $datei;

    print "Die Datei ist schreibbar.\n" if -w $datei;

    print "Die Datei ist ausführbar.\n" if -x $datei;

} else {

    print "Die Datei '$datei' existiert nicht.\n";

}

Bestimmte Anzahl Dateien verschieben/kopieren

Mon, 04 Nov 2024 13:43:29 +0100

Das Kopieren und Verschieben einer gewissen Anzahl an Dateien, die unbestimmt ist, kann wie folgt in der Bash erledigt werden:

Code:
anzahl=30000

find /quellordner -type f | head -n $anzahl | xargs -I {} mv {} /zielordner

find /quellordner -type f | head -n $anzahl | xargs -I {} cp {} /zielordner

Dateien von Ordner A nach Ordner B verschieben

Sat, 05 Oct 2024 19:06:44 +0200

Ein einfaches Skript zum Verschieben von Dateien mit der Extension ".mp4" von einem Ordner in den anderen Ordner.

Code:
#!/usr/bin/env python3

# *********************************************************************************************

# python3 move_video.py

# *********************************************************************************************

#

import os

import shutil

quellordner = "/OrdnerA/"

zielordner = "/OrdnerB/"

# Alle Dateien im Ordner A durchgehen

for datei in os.listdir(quellordner):

    if datei.endswith(".mp4"):

        # Vollständigen Pfad der Datei in Ordner A und B erstellen

        quell_datei = os.path.join(quellordner, datei)

        ziel_datei = os.path.join(zielordner, datei)

        # Datei verschieben

        shutil.move(quell_datei, ziel_datei)

        print(f"{datei} wurde nach {zielordner} verschoben.\n")

Dateien regelmäßig löschen

Wed, 22 May 2024 15:44:19 +0200

In einem Ordner sammeln sich ständig Dateien mit bestimmten Extensions an, die ich dort nicht haben möchte. Das manuelle Löschen geht mir mittlerweile auf die Nerven, also habe ich mich mal wieder an ein Shell-Skript begeben und lasse die unerwünschten Dateien nun regelmäßig über einen Cronjob löschen.

Die Lösung war zunächst einfach, denn ein bisschen Erfahrung konnte ich im Laufe der Zeit sammeln, um ein Shell-Skript auf die virtuellen Beine zu stellen.

Die einfache Variante.

Code:
# Angabe des Ordner, in dem die unerwünschten Dateien liegen

ordner="/ordnername/"

#

# Dateien mit den unerwünschten Extensions durch Option -o (OR) angegeben

find "$ordner" -type f \( -name "*.jpg" -o -name "*.pdf" -o -name "*.png" \) -delete

Die etwas feinere, aber auch für mich kompliziertere Variante mit Schleife.

Code:
# Angabe des Ordner, in dem die unerwünschte Dateien liegen

ordner="/ordnername/"

#

# Array mit den unerwünschten Extensions erstellen

extensions=("jpg" "pdf" "png")

#

# Dateien mit den unerwünschten Extensions löschen

for ext in "${extensions[@]}"; do

    find "$ordner" -type f -name "*.$ext" -delete

done

Den Cronjob habe ich auf 30 Minuten eingestellt, so dass die lästigen Dateien kaum noch meine andere Arbeit behindern.

Das Shell-Skript muss natürlich ausführbar sein. Und das wird mit folgendem Befehl in der Konsole bewerkstelligt.

Code:
chmod +x delete_files.sh

Unabhängig von der Wahl der Skriptsprache hätte dieses Skript auch in Python oder PHP oder sonstwas umgesetzt werden können. Ich fand die Umsetzung über ein normales Shell-Skripts ideal.

Array in Perl verstehen

Sat, 06 Apr 2024 18:29:16 +0200

In einem Perl-Skript ist @ING eine Array-Variable. Diese Variable kann mehrere Werte aufnehmen und speichern. Arrays werden in Perl durch ein vorangestelltes '@'-Zeichen gekennzeichnet.

Deklaration eines leeren Arrays:

Code:
my @ING;

Zuweisen von Werten zu einem Array:

Code:
@ING = (1, 2, 3, 4, 5);

Zugriff auf Elemente eines Arrays:

Code:
print $ING[0];  # Gibt das erste Element des Arrays aus

print $ING[1];  # Gibt das zweite Element des Arrays aus

Hinzufügen eines Elements zu einem Array:

Code:
push @ING, 6;  # Fügt das Element 6 am Ende des Arrays hinzu

Iteration über die Elemente eines Arrays:

Code:
foreach my $element (@ING) {

    print "$element\n";

}

In diesem Fall ist @ING einfach eine Variable, die als Array verwendet wird. Der Name @ING könnte beliebig sein und wurde in Ihrem Skript wahrscheinlich entsprechend verwendet, um bestimmte Daten zu speichern oder zu verarbeiten.

Um ein bestimmtes Element aus einem Array in Perl anzusprechen, verwenden Sie den Index dieses Elements in eckigen Klammern nach dem Arraynamen. Hier sind einige Beispiele:

Code:
my @array = ('a', 'b', 'c', 'd', 'e');

Das erste Element des Arrays (Index 0) ansprechen und ausgeben

Code:
print $array[0];  # Ausgabe: 'a'

Das dritte Element des Arrays (Index 2) ansprechen und ausgeben

Code:
print $array[2];  # Ausgabe: 'c'

Das letzte Element des Arrays ansprechen und ausgeben

Code:
print $array[-1]; # Ausgabe: 'e'

Sie können auf ein Element in einem Array zugreifen, indem Sie den Index des Elements in eckigen Klammern nach dem Arraynamen angeben. Beachten Sie, dass die Indizierung in Perl bei 0 beginnt, sodass das erste Element des Arrays den Index 0 hat, das zweite den Index 1 usw. Sie können auch negative Indizes verwenden, um von hinten zu zählen, wobei -1 das letzte Element des Arrays ist, -2 das vorletzte usw.

Um das dritte Element aus dem Array @ING zu entfernen, können Sie die splice-Funktion verwenden. Hier ist, wie Sie das machen können:

Code:
my @ING = (1, 2, 3, 4, 5);

# Das dritte Element entfernen

splice(@ING, 2, 1);

# Ausgabe des Arrays nach Entfernen des dritten Elements

print "Array nach Entfernen des dritten Elements: @ING\n";

Die splice-Funktion wird verwendet, um Elemente aus einem Array zu entfernen und/oder neue Elemente einzufügen. In diesem Fall entfernen wir 1 Element aus dem Array @ING ab dem Index 2 (0-basiert, das dritte Element) mit splice(@ING, 2, 1).

Um den Namen 'Detlef' aus dem Array @ING zu entfernen, können Sie die grep-Funktion verwenden, um alle Elemente außer 'Detlef' zu behalten. Hier ist, wie Sie das machen können:

Code:
my @ING = ('Herbert', 'Werner', 'Detlef', 'Hans');

my $zu_entfernender_name = 'Detlef';

# Nur die Namen behalten, die nicht 'Detlef' sind

@ING = grep { $_ ne $zu_entfernender_name } @ING;

# Ausgabe des Arrays nach Entfernen des Namens 'Detlef'

print "Array nach Entfernen des Namens 'Detlef': @ING\n";

In diesem Beispiel verwenden wir grep, um alle Elemente des Arrays @ING beizubehalten, die nicht 'Detlef' sind. Das Ergebnis wird dann zurück in das Array @ING gespeichert. Nach diesem Vorgang wird 'Detlef' aus dem Array entfernt sein.

Hier ist die Verwendung der splice-Funktion, um den Namen 'Detlef' aus dem Array @ING zu entfernen:

Code:
my @ING = ('Herbert', 'Werner', 'Detlef', 'Hans');

my $zu_entfernender_name = 'Detlef';

# Index des zu entfernenden Namens ermitteln

my $index = -1;

for my $i (0 .. $#ING) {

    if ($ING[$i] eq $zu_entfernender_name) {

        $index = $i;

        last;

    }

}

# Element aus dem Array entfernen, falls es gefunden wurde

if ($index >= 0) {

    splice(@ING, $index, 1);

}

# Ausgabe des Arrays nach Entfernen des Namens 'Detlef'

print "Array nach Entfernen des Namens 'Detlef': @ING\n";

In diesem Beispiel wird der Index des Namens 'Detlef' im Array @ING ermittelt, und dann wird die splice-Funktion verwendet, um das Element an diesem Index zu entfernen. Wenn der Name nicht im Array gefunden wird, wird nichts entfernt. Dieser Ansatz ermöglicht es Ihnen, gezielt ein bestimmtes Element aus dem Array zu entfernen.

In der splice-Funktion gibt der dritte Parameter die Anzahl der Elemente an, die ab dem angegebenen Index aus dem Array entfernt werden sollen.

Also bedeutet splice(@ING, $index, 1);, dass ab dem Index $index im Array @ING genau ein Element entfernt wird.

In diesem Fall, wo wir den Namen 'Detlef' entfernen wollen, setzen wir den dritten Parameter auf 1, da wir nur ein Element entfernen wollen, das genau dem zu entfernenden Namen entspricht. Wenn Sie mehrere Elemente an dieser Position entfernen möchten, können Sie den dritten Parameter entsprechend anpassen.

Sie können dies mit Perl relativ einfach erreichen, indem Sie die Datei öffnen, die letzte Zeile lesen und prüfen, ob sie leer ist. Wenn die letzte Zeile nicht leer ist, fügen Sie eine leere Zeile hinzu.

Code:
# Dateiname

my $dateiname = "pfad/zur/datei.txt";

# Datei öffnen (nur zum Lesen)

open(my $datei, '<', $dateiname) or die "Kann Datei nicht öffnen: $!";

# Alle Zeilen in ein Array einlesen

my @zeilen = <$datei>;

# Schließen der Datei

close($datei);

# Prüfen, ob die letzte Zeile leer ist

if ($zeilen[-1] !~ /\S/) {  # Wenn die letzte Zeile leer ist (keine nicht-Whitespace-Zeichen)

    print "Die letzte Zeile ist leer.\n";

} else {

    # Fügen Sie eine leere Zeile am Ende hinzu

    push @zeilen, "\n";

    print "Eine leere Zeile wurde hinzugefügt.\n";

}

# Datei zum Schreiben öffnen

open($datei, '>', $dateiname) or die "Kann Datei nicht öffnen: $!";

# Schreiben Sie die aktualisierten Zeilen zurück in die Datei

print $datei @zeilen;

# Schließen der Datei

close($datei);

In diesem Skript lesen wir die Datei Zeile für Zeile ein und speichern sie in einem Array @zeilen. Dann überprüfen wir, ob die letzte Zeile leer ist, und fügen eine leere Zeile hinzu, wenn dies nicht der Fall ist. Schließlich schreiben wir die aktualisierten Zeilen zurück in die Datei.

eMail analysieren und zerlegen

Sun, 07 Jan 2024 20:30:15 +0100

Jeder von uns bekommt wahrscheinlich jeden Tag Mails. Die einen bekommen mehr, die anderen bekommen weniger.

Die wenigsten User machen sich heutzutage darüber Gedanken, wie eine Mail entsteht bzw. aus welchen Bestandteilen diese zusammen gesetzt ist.

In einer anderen Sache habe ich mich genau damit beschäftigt, was eine Mail ausmacht und was sie alles enthalten kann sowie wie diese in unserem Mailclient bzw. online beim Mailanbieter für uns zu lesen ist.

Meine Aufzeichnungen sind nicht abschließend, sondern spiegeln mein Wissen wider und zeigen das, was ich bislang erreicht habe.

Generell kann man sagen, dass eine Mail 2 Hauptbestandteile (Mailheader und Mailbody) mit 3 Sektionen hat:

Mailheader
Mailbody mit Mailtext Plain/HTML
Mailbody mit Anlagen

Der Mailheader beinhaltet alle technsichen Informationen, die die einzelnen Stellen, die die Mail ausliefern bzw. weiterleiten mitgegeben haben.

Die Mailtext kann in zwei Formaten vorliegen (entweder oder / beides zusammen):

Plaintext (also Klartext)
HTML-Text (HTML-Rohdaten)

Sobald eine Mail Plaintext und HTML-Text enthält, bekommt sie das Attribut: multipart (dazu später mehr)

Eine Mail kann im Klartext oder kodiert ausgeliefert werden. Wird sie kodiert ausgeliefert, so ist dies die base64-Kodierung.

Wichtig bei der Darstellung des Mailtextes ist es zu wissen, mit welchem Zeichensatz (charset) die Mail verfasst wurde. Generell nutzen die westlichen Ländern mittlerweile den Zeichensatz utf-8, aber besonders aus dem kyrillisch-sprachigen Raum kommen oftmals andere Zeichensätze mit. Das liegt oftmals daran, die der Mailclient es Mailverfassers eingerichtet ist.

Mailtexte im Klartext haben folgenden Eintrag: Content-Transfer-Encoding: quoted-printable

Mailtexte können aber auch eine Kodierung haben: Content-Transfer-Encoding: base64

Damit sind die Mailtexte als Rohdaten der Mail nicht lesbar und müssen dekodiert werden.

Alle Anlagen werden für gewöhnlich base64-kodiert: Content-Transfer-Encoding: base64

Die derzeit für mich wichtigsten Zeichensätze sind neben utf-8 die folgenden:

iso-8859-1
iso-8859-2
iso-8859-15
windows-1250
windows-1251
us-ascii
koi8-r

Es ist wirklich nicht einfach für den Hobbyprogrammierer, eine Mail zu analysieren und die Mailtext lesbar ohne Sonderzeichen zu machen und die Anlage abzuspeichern.

Je nach dem, welcher Zeichensatz genutzt wird, gibt es immer wieder andere Vorgehensweisen, um die Mail analysieren zu können.

In den folgenden Antworten auf diesen Eröffnungsthread möchte ich meine Erkenntnisse dokumentieren, da sie mittlerweile ein PHP-Skript umfassen, dass aus dem Ruder läuft.

Die in dem primären Beispiel verwendete Mail ist eine Phantasiemail mit Phantasiedaten soweit es die Identität der beteiligten Personen angeht.

Die Mail wird eine Multipart-Mail sein, mit dem Zeichensatz utf-8, mit Plain- und HTML-Text sowie mit Anlagen.

MIME 1.0

Show Content

multipart/mixed

Show Content

multipart/alternative

Show Content

attachments

Show Content

image/jpeg

Show Content

HTML-Tags decodieren

Sun, 07 Jan 2024 19:31:04 +0100

In der letzten Zeit kommt es immer häufiger vor, dass ich HTML-Texte als Rohdaten in eine MySQL-Datenbank erfasse. Der Umgang mit HTML-Tags sind insgesamt nicht immer einfach, aber wenn man weiß, was man will, dann kann man sich sehr gut helfen.

Wenn HTML-Rohdaten nicht in einem Browser ausgeführt werden, dann gibt es unschöne Leseansichten bzw. die Daten sind nicht in einer MySQL-Datenbank erfassbar.

Wer einen HTML-Text außerhalb eines Browsers lesen will, der sollte tunlichst die HTML-Tags ausblenden.
Wer einen HTML-Text in eine Datenbank, z.B. MySQL, erfassen will, der muss diverse Sonderzeichen masieren, die sonst bei der Erfassung zu einem Fehler führen.

Fall 1
Ein HTML-Rohtext wird in der Konsole ausgegeben

Code:

$text = "Das ist mein Text, der ausgegeben werden soll.
";

echo "Text 1 " . $text . "\n";

Ergebnis

Zitat:Text 1
Das ist mein Text, der ausgegeben werden soll.

Fall 2
Die HTML-Rohdaten werden gestript, um den Text lesbar zu machen

Code:

$text2 = "Das ist mein Text, der ausgegeben werden soll.
";

$text2 = strip_tags($text2);

echo "Text 2 " . $text2 . "\n";

Ergebnis

Code:
Text 2 Das ist mein Text, der ausgegeben werden soll.

Fall 3 entfällt

Fall 4
Die HTML-Rohdaten werden als Entities umgewandelt

Code:

$text4 = "Das ist mein Text, der ausgegeben werden soll.
";

$text4 = htmlentities($text4);

echo "Text 4 " . $text4 . "\n";

Ergebnis

Code:
Text 4 <p>Das ist mein Text, der <strong>ausgegeben</strong> werden soll.</p>

Fall 5
Insbesondere bei der Erfassung von HTML-Rohdaten in einer MySQL-Datenbank ist der folgende Befehl zu nutzen.

Code:

$text5 = "Das ist mein Text, der ausgegeben werden soll.
";

$text5 = htmlspecialchars($text5);

echo "Text 5 " . $text5 . "\n";

Ergebnis

Code:
Text 5 <p>Das ist mein Text, der <strong>ausgegeben</strong> werden soll.</p>

Fall 6 entfällt

Fall 7
Die HTML-Entitäten werden wieder zurückgewandelt.

Code:
$text7 = "<p>Das ist mein Text, der <strong>ausgegeben</strong> werden soll.</p>";

$text7 = htmlspecialchars_decode($text7);

echo "Text 7 " . $text7 . "\n";

Ergebnis

Code:

Text 7 Das ist mein Text, der ausgegeben werden soll.

Wie wohl zu erkennen ist, kann man die HMTL-Tags bzw. die Zeichen, die nicht einfach so in eine MySQL-Datenbank erfasst werden können, ohne sie zu maskieren, so umwandeln, dass man damit arbeiten kann.

Der Fall 2 zeigt, dass die HTML-Rohdaten in einen gut lesbaren Fließtext umgewandelt werden können.
Die Entities können in die eine, aber auch wieder in die andere Richtung zurückgewandelt werden.

Ich nutze diese Erkenntnisse derzeit so, dass ich Mailheader aus eMails in eine MySQL-Datenbank speichere, aber auch die entsprechenden Mailtext. Die Mailtexte können in Plaintext und als HTML-Rohdaten vorliegen. Auch dann sind die obigen Erkenntnisse absolut wichtig, um die Datenbankerfassung zu ermöglichen.

Linkliste

Sun, 07 Jan 2024 17:45:58 +0100

Links, die wichtig sein können

Eine ältere Beginner-Seite
CPAN - Comprehensive Perl Archive Network
CPAN - How to install CPAN moduls
meta::cpan - Suchmaschine für CPAN
Datei zeilenweise einlesen
PerlMonks
Perl.com
Perl Tutorial
SquarePerl.com
Modern Perl 2014
Perl Maven

CGI auf Webserver ausführbar machen

Sun, 07 Jan 2024 17:37:13 +0100

CGI auf Webserver ausführbar machen

Heute, am 22.07.2021, habe ich es endlich geschafft, im Browser ein cgi-Script aufzurufen.

Geholfen hat mir diese Webseite:

https://www.server-world.info/en/note?os=Debian_10&p=httpd&f=2

Ich bin mir nicht sicher, ob ich alles richtig verstanden habe. Eigentlich kenne ich das so, dass es auf dem Webserver (/var/www/html) einen Ordner /cgi-bin gibt.

Die Webseite arbeitet aber mit dem Ordner /cgi-enabled.

Alle meine Versuche hier auf dem Desktop-Rechner als auch auf dem Notebook haben ergeben, dass ich diesen Ordner /cgi-enabled nutzen muss. Der Ordner /cgi-bin funktioniert nicht.

Auch kann ich nicht meinen normalen User zur Anlage von Ordner und z.B. index.cgi nutzen. Die Ordner als auch die Dateien werden mit dem root erstellt und dann über chmod 705 entsprechen berechtigt.

Nur das funktioniert.

Wenn ich den Ordner /cgi-bin so in die Abläufe einbaue, wird später im Browser gezeigt, dass die URL nicht vorhanden ist.

Mit dem Ordner /cgi-enabled wird die Testseite angezeigt:

Pasted image 20210722181624.png (Größe: 15,79 KB / Downloads: 89)

Ich werde noch weitersuchen und mal prüfen, ob ich das anders hätte hinbekommen können.

---

Das ist die Historie der BASH, aus der ich die wichtigen Befehlszeilen herausfiltern werde, um eine Dokumentation zu schreiben:

Show Content

Das eine ist nämlich die Verfügbarkeit von CGI auf dem System, das andere ist die Möglichkeit, um CGI auch auf dem Webserver ausführen zu können. Das sind zwei verschiedene Dinge.

In der Datei cgi-enabled.conf habe ich neben cgi und pl nun auch py eingetragen, um auch Pythonscripte im Browser möglich zu machen. Das funktioniert auch:

  Pasted image 20210722183547.png (Größe: 27,82 KB / Downloads: 83)

Damit CGI überhaupt machbar ist, ist dieser Ablauf wohl wichtig:

  Pasted image 20210722183708.png (Größe: 80,96 KB / Downloads: 71)

Warum und wieso das alles root-Rechten geschehen muss, habe ich noch nicht verstanden.

Die Sache mit dem Webserver kann dann aus dem folgenden Screener abgelesen werden:

  Pasted image 20210722183832.png (Größe: 142,19 KB / Downloads: 73)

So hat es auf dem Desktop-Rechner und auf dem Linux-Notebook funktioniert. Zumindest in Sachen CGI und Perl.

Module installieren mit CPAN

Sun, 07 Jan 2024 17:18:42 +0100

Module für Perl installieren mit cpan

Die einfachste Art und Weise zusätzliche Module für Perl zu installieren ist mittels cpan möglich.

Das Paket cpanminus ist mit root-Rechten zu installieren.

Code:
apt-get install cpanminus

Bevor man nun Module für Perl installieren kann, ist auf der Konsole, ich habe es mit root-Rechten gemacht, folgendes abzusetzen:

Code:
cpan App::cpanminus

Danach kann dann ein Modul, dessen Name man natürlich wissen muss, installieren. In meinem Falle war es das Modul **File::Random**:

Code:
sudo cpanm File::Random

Danach steht das Modul zur Verfügung. In einem Perlscript ist das Modul wie folgt zu verwenden:

Code:
use File::Random qw/:all/;

cpanminus habe ich deswegen installiert, weil es auf dem normalen Wege nicht möglich war, Module zu installieren, da eben Abhängigkeit innerhalb der Module zu geben scheint.

Mit

Code:
make -f Makefile.PL

bzw.

Code:
make -f Makefile.PL

bekam ich Fehlermeldungen beim Ausführen von:

Code:
make test

Die Ausgabe dazu war:

Zitat:
Code:
root@asus:/home/django/perl/neue_module/File-Random-0.21# make test PERL_DL_NONLAZY=1 "/usr/bin/perl" "-Iblib/lib" "-Iblib/arch" test.pl 1..284 Can't locate Want.pm in @INC (you may need to install the Want module) (@INC contains: blib/lib blib/arc h /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.28.1 /usr/local/share/perl/5.28.1 /usr/lib/x86_64-lin ux-gnu/perl5/5.28 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.28 /usr/share/perl/5.28 /usr/local/l ib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at blib/lib/File/Random.pm line 9. BEGIN failed--compilation aborted at blib/lib/File/Random.pm line 9. Compilation failed in require at test.pl line 10. BEGIN failed--compilation aborted at test.pl line 10. # Looks like your test exited with 2 before it could output anything. make: *** [Makefile:842: test_dynamic] Fehler 2 root@asus:/home/django/perl/neue_module/File-Random-0.21# make manifest "/usr/bin/perl" "-MExtUtils::Manifest=mkmanifest" -e mkmanifest

Die erste Meldung:

Zitat:
Code:
> Can't locate Want.pm in @INC ...

Betrifft ein weitere Modul, welches noch nicht installiert war. Also musste erst das installiert werden, was aber wieder Fehlermeldungen nach sich zog. Daher war die Installation von **cpanminus** eine gute Entscheidung.

---

Bevor ich zur obigen Lösung kam, hatte ich noch folgendes Paket installiert:

Code:
apt-get install libmodule-install-perl

Ob dieses Paket notwendig ist, oder bei der Installation von cpanminus mitinstalliert worden wäre, kann ich derzeit nicht sagen.

---