Vergleich Variable mit String - #160251 (Allgemeines zu Perl)

Linuxer

2012-07-27 13:16

User since
2006-01-27
3891 Artikel
HausmeisterIn

user image

Getestet mit dem unten stehenden Code, sah es erstmal gut aus.
Scheint eher ein Problem mit den Daten zu sein, weniger mit dem (direkten) Code.

<Raterunde>
Liest Du die Pfadangaben aus Dateien oder von STDIN ein?
Hast Du daran gedacht, den Zeilenumbruch am Ende einer Zeile zu entfernen?
</Raterunde>

Testcode:

Code (perl): (dl )

#! /usr/bin/perl
use strict;
use warnings;

my $searchstring = 'usr/include/malloc.h';

my @files = (
    'D:/Igor_Perforce/DTBS/driver/qnx/util/readsmart/trunk/src/readsmart.c',
    'D:/Igor_Perforce/DTBS/driver/qnx/util/readsmart/trunk/src/usr/include/malloc.h',
);


for my $f ( @files ) {
    if ( $f =~ /$searchstring/i ) {
        print "\nfound $f\n"
    }
    else {
        print "\nnot found\n"
    }
}

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!