From 3ae857f9352bf05d052db0301b0a718399ff85a6 Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Mon, 12 Oct 2015 10:46:07 +0200 Subject: Add assignment no.2 --- Aufgabe2/skript1.pl | 53 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 53 insertions(+) create mode 100644 Aufgabe2/skript1.pl (limited to 'Aufgabe2/skript1.pl') diff --git a/Aufgabe2/skript1.pl b/Aufgabe2/skript1.pl new file mode 100644 index 0000000..971f6dd --- /dev/null +++ b/Aufgabe2/skript1.pl @@ -0,0 +1,53 @@ +#!/usr/bin/env perl +#=============================================================================== +# +# FILE: skript1.pl +# +# USAGE: ./skript1.pl +# +# DESCRIPTION: +# +# OPTIONS: --- +# REQUIREMENTS: --- +# BUGS: --- +# NOTES: --- +# AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de +# ORGANIZATION: FH Südwestfalen, Iserlohn +# VERSION: 1.0 +# CREATED: 09.10.2015 10:06:46 +# REVISION: --- +#=============================================================================== + +use strict; +use warnings; +use utf8; + +# enforce utf-8 mode +binmode (STDOUT, ":encoding(UTF-8)"); +binmode (STDIN, ":encoding(UTF-8)"); +use open ":encoding(UTF-8)"; + +my $poem_file_name = 'Rilke-Herbsttag.txt'; # input file name + +open my $poem, '<', $poem_file_name + or die "$0 : failed to open input file '$poem_file_name' : $!\n"; + +my @poemRead; +my $lines = 0; + +while (my $line = <$poem>) +{ + push(@poemRead, $line); + print $line; + ++$lines; +} + +close $poem + or warn "$0 : failed to close input file '$poem_file_name' : $!\n"; + +printf "Read lines: $lines\n"; + +print reverse @poemRead; + +print sort @poemRead; + -- cgit v1.2.3-70-g09d2