[Perl] Input von der Konsole aufnehmen

[Joopi]

Das folgende Script ist ein einfaches Programm, um eine Eingabeaufforderung an den User zu senden, einen Wert zu erwarten, um diesen dann wieder auszugeben.

Die Funktion chomp entfernt den Zeilenumbruch, der durch Enter bei der Eingabe des Wertes mitgesendet wird.

Code:

#!/usr/bin/perl -w

#****************************************************************************************
# Dateiname: perl_test2.pl
# Datum: 28.07.2021
#
# Dieses Script nimmt eine Eingabe auf der Konsole entgegen, trimmt den Wert, der in die
# Variable übernommen wurde, mit chomp (wegen dem Zeilenumbruch) und gibt das Ergebnis
# dann auf der Konsole aus.
#
#****************************************************************************************

use strict;
use warnings;

# Verzeichnis - in diesem Script eigentlich nicht notwendig, da keine Dateioperationen vorgenommen werden.
my $pfad = '/home/none/help/help5/temp';

# Sofort in den Arbeitsordner wechseln.
chdir($pfad."/");

print "Your name please: ";
my $name = <STDIN>;
chomp $name;

print "Your name is '$name'\n";

Tastatureingaben können also recht einfach aufgenommen und verarbeitet werden.