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];
}
Unter Windows mit Active perl ist die If bedinung erfüllt unter linux nicht.
Hat jemmand eine Idee warum?
Zuletzt bearbeitet von einem Moderator: