perl problem

Alexander

Alexander

InfoAssi
Code:
#So unter Windows mit Active perl
#!d:/Programme/activeperl/bin/perl -w

use strict;

open(DATEN,"c:/ola.txt");
my @Zeilen=<DATEN>;
close(DATEN);

for (my $ilauf=0;$Zeilen[$ilauf];$ilauf=$ilauf+1)
{

if ($Zeilen[$ilauf] eq "laola")
{
print "juhuu \n";
}
print $Zeilen[$ilauf];
}

#So unter Linux

#!/usr/bin/perl -w

use strict;

open(DATEN,"ola");
my @Zeilen=<DATEN>;
close(DATEN);

for (my $ilauf=0;$Zeilen[$ilauf];$ilauf=$ilauf+1)
{

if ($Zeilen[$ilauf] eq "laola")
{
print "juhuu \n";
}
print $Zeilen[$ilauf];
}
In Beiden fällen ist eine Datei ola vorhanden in der "laola" enthalten ist.
Unter Windows mit Active perl ist die If bedinung erfüllt unter linux nicht.

Hat jemmand eine Idee warum?
 
Zuletzt bearbeitet von einem Moderator:
hi!

versuch mal nen chomp($zeile); bevor du das mit dem string vergleichst. das chomp entfernt zeilenumbrüche und sowas. probier mal ob das vielleicht funktioniert.

frank
 
Jooo die if anweisung trift dann zui

Komisch nur das er nach dem die Bedinung erfüllt und der if block abgearbeitet wurde die schleife einfach verlässt.
 
Zuletzt bearbeitet:
hi,
das darf nicht sein bei dem Code. Mach statt der for-Schleife eine foreach-Schleife, wenn dein Problem das zulässt. Und verwende bitte code-Tags.
Ich versteh aber auch gerade nicht, wieso die Bedingung unter Win wahr ist.

steve
 
ok beim nächstenmal werde ich es machen.

Foreach funktioniert auch wunderbar und er macht nach erfüllter bedinung auch weiter was er bei der for schleife nicht tat.

THX : )
 

Ähnliche Themen

Zugriff Ubuntu 16.04. auf Freigabe 18.04. LTS nicht möglich

Server und Client für TCP und UDP

[Perl] Perl OO Methodenaufruf in anderem Objekt

Crontab und Scripts - Problem

ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern

Zurück
Oben