+ Perl // Bekomme ein Fehler im Browser angezeigt!!!1

[Struppi]

Hallo shadow

while(<DATEI>) {
  chomp;
  @zeile=split(/\s*,\s*/,  $_, 1);

Hm ich hatte das mal getest und es hat mir alle miene Spalten ausgegeben die ich also ingesaamt 5. Ich fands auch komisch aber es hatte geklappt.

Also ich hab's mal ausprobiert. Das split macht gar nichts.
my $l = "a a , a b , c , d , e";
my @zeile = split(/\s*,\s*/,  $l, 1);
use Data::Dumper;
print Dumper @zeile;

nichts gesplittet.

mach die eins weg und schon geht's.

Ich werd es erstmal drin lassen. So werd nochmal die seite psten kann ja sein das ich was übersehen hab.

#Dateiflock
use Fcntl qw(:DEFAULT :flock);
use constant LOCK_EX => 2;

Oh Mann, also nochmal. Wenn das Modul Fcntl ':flock' nicht exportieren kann, dann bricht es das Programm mit einem Fehler ab. Da das bei mir in einigen Umgebungen passiert und ich nicht dahinter gekommen bin ob diese Konstanten irgendwie anders von dem Modul sich exportieren lassen, hab ich mir anstelle dessen eine eigene Konstante definiert.

Also:

entweder:
use Fcntl qw(:DEFAULT :flock);

oder, falls das obige einen Fehler erzeugt:
use Fcntl qw(:DEFAULT );
use constant LOCK_EX => 2;

Du benutzt nur LOCK_EX, oder?

Dann reicht auch:
use Fcntl qw(LOCK_EX);

print "Content-type: text/html\n\n";

Der Wert nach dem gesucht werden soll

my $eingabe = $varpool;

my @zeile=();
my $gefunden=0;
open (DATEI, "<@dir1[0]") or die "Kann Datei @dir1[0] nicht öffnen$!\n";
flock DATEI,LOCK_EX || die "Kann File nicht locken: $!";
  while(<DATEI>) {
  chomp;
  @zeile=split(/\s*,\s*/,  $_, 1);

wie gesagt hier wird gar nichts gesplittet.

exit (0);

das ist unnötig.

Struppi.