Bachelor/Systemprogrammierung in Perl/examples/hello4.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/Perl/bin/perl

use strict;
use warnings;

my ($hugo, $otto);

$hugo = "hello";
$otto = "world";

# Ausgabe eines Textes bis ein einzelnes END am Zeilenanfang steht

print <<LST;
Dies ist ein l�ngerer Text
in den wir ein $hugo 
und dann sp�ter ein $otto
eingef�gt haben
LST

    exit;