[LUGA] Mit freundlicher Unterstützung von:
Linux New Media AG

Mail Thread Index


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[luga] Ein Perl-Rätsel



Bitte erst überlegen, dann ausprobieren.

Angenommen, ich habe folgendes Perlscript:

---8<------8<------8<------8<------8<------8<------8<------8<---
#!/usr/bin/perl
use FileHandle;

open(FD1, "file1");
FD1->input_record_separator(undef);
$string1 = <FD1>;
close(FD1);

open(FD2, "file2");
$string2 = <FD2>;
close(FD2);

print $string1;
print $string2;
---8<------8<------8<------8<------8<------8<------8<------8<---

Und folgende Files:

file1:
---8<------8<------8<------8<------8<------8<------8<------8<---
File 1 Zeile 1
File 1 Zeile 2
---8<------8<------8<------8<------8<------8<------8<------8<---

file2:
---8<------8<------8<------8<------8<------8<------8<------8<---
File 2 Zeile 1
File 2 Zeile 2
---8<------8<------8<------8<------8<------8<------8<------8<---

Was gibt das Script aus? Und wieso?

	hp

Attachment: pgpYow3EwVoPU.pgp
Description: PGP signature



powered by LINUX the choice of a gnu generation
linux user group austria;
Suche
Suche
Letzte Änderung:
webmaster@luga.at
September 2010