if bed. funktioniert nicht (Allgemeines zu Perl)

[thread]7966[/thread]

if bed. funktioniert nicht

Argon

2006-05-11 11:19

User since
2005-10-13
4 Artikel
BenutzerIn
[default_avatar]

hallo alle zusammen
habe folgendes problem
1)lese zeilenweise aus einer Datei
2)vergleichen

file1
a \(

file2
b \(

Code: (dl )

open (STREAM_EINS,"<$file1")
@lines1=<STREAM_EINS>;
close(STREAM_EINS);

open (STREAM_ZWEI,"<$file2")
@lines1=<STREAM_ZWEI>;
close(STREAM_ZWEI);

foreach $var1 (@lines1)
{
      foreach $var2 (@lines2)
         {
             if ($var1 =~ /$var2/)
                  {
                      print "ok";
                  }
         }
}

eigentlich soll es funktionieren aber tut es nicht. woran kann es liegen??
wenn man in file1 und file2 nur a und a speichert ohne \( dann funktioniert das ganze... HILFE

edit pq: code-tags hinzugefügt\n\n

2006-05-11 11:31

User since
2006-05-09
76 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

if ($var1 eq $var2)
{
   print "ok";
}

2006-05-11 12:44

User since
2003-08-04
12209 Artikel
Admin1

Funktioniert nicht

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

2006-05-11 12:50

User since
2003-08-04
12209 Artikel
Admin1

du hast jeweils ein semikolon hinter dem open vergessen und zweimal
@lines1 zugewiesen. sicher nicht das, was du eigentlich möchtest.
du sagst in deinem posting nur "eigentlich soll es funktionieren". aber was
du eigentlich tun willst, sagst du nicht.

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

renee

2006-05-11 20:17

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich hoffe, Du benutzt auch Wiki:

use strict. Das sieht mir ganz nach einem typische Vertipper aus, der mit strict wahrscheinlich aufgefallen wäre.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2006-05-11 11:19.