betterworld+2008-03-08 17:06:55--

Linuxer+2008-03-08 16:45:45--

Auf Basis der Ueberlegung, seinen Editor umzukonfigurieren, so dass er @ durch @$ ersetzt, koennte man ihn ja auch umkonfigurieren, dass er Umlaute durch deren Umschreibung ersetzt ;o))

SCNR (war schon irgendwo schmerzhaft, den Text ohne Umlaute zu lesen)

Meinst Du jetzt mich?

Ich finde es immerhin nicht so schmerzhaft, wie einen Text mit Umlauten in komischen Kodierungen zu lesen ;)

Linuxer+2008-03-08 22:12:11--

Ja, ging in Deine Richtung. Aber ich sehe, so hat jeder sein Wehwehchen ;o))

KurtZ+2008-03-08 22:53:01--

aha .. lass raten du bist Puritaner mit Ami-Tastatur, damit das Y leichter erreichbar ist, schreibts dafür jedesmal oe statt ö!

Pörl rules! 8-)

KurtZ+2008-03-09 14:48:09--

if (defined @arr[0]) ist eine komplett andere Geschichte.

Gast+2008-03-10 13:19:52--

Geht es dir jetzt um ein Praxisproblem oder willst du uns nur sagen, dass beim Interpreter-/Compilerbau von Perl da etwas sytaktisch geschlampt wurde ;)

Gast+2008-03-10 13:19:52--

Ich verstehe nämlich auch nicht mehr, um was es dir geht.

Gast+2008-03-08 06:30:37--

Das kann schon interessant sein.
Beispiel:
...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

  use strict;
#use Data::Dumper;

my @liste;

sub lade_liste {
  my $pfad=shift;
  my $liste_ar=shift;
  if(open (my $fh, '<', $pfad)) {
    @$liste_ar= ('dummy' );  # damit Speicher allokiert wird!
    @$liste_ar=<$fh>;
    close($fh);
  } 
  return (@$liste_ar);
}

lade_liste('Test.txt' => \@liste);


{no warnings;                # "defined is deprecated" ausschalten
    if(defined(@liste)) {
        if( @liste ) {       #  if (scalar @liste) ist redundant
            print @liste;
        }
        else { warn "Datei war leer, kann nicht weiter machen!" }
    }
    else { warn "Datei konnte nicht geladen werden ($!)" }
}