diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-10-16 10:33:47 +0200 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-10-16 10:33:47 +0200 |
| commit | fcfac16ca1db88f790d8b275cdc681c66d1dbf40 (patch) | |
| tree | 0e086f8062bc012f3d467899c96a8c1829173453 | |
| parent | 2d6eb962777b6668dfc3e76ed75c0bde6cf5a5d5 (diff) | |
| download | Skriptsprachen-fcfac16ca1db88f790d8b275cdc681c66d1dbf40.tar.gz Skriptsprachen-fcfac16ca1db88f790d8b275cdc681c66d1dbf40.zip | |
Save old input record separator
| -rw-r--r-- | Aufgabe2/skript3.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Aufgabe2/skript3.pl b/Aufgabe2/skript3.pl index 367567d..648b4ba 100644 --- a/Aufgabe2/skript3.pl +++ b/Aufgabe2/skript3.pl @@ -29,6 +29,7 @@ binmode (STDIN, ":encoding(UTF-8)"); use open ":encoding(UTF-8)"; # suppress line reading +my $old_INPUT_RECORD_SEPARATOR = $/; undef $INPUT_RECORD_SEPARATOR; my $chapter_file_name = 'Stechlin-01.txt'; # input file name |