Suche ob String in String enthalten ist (Allgemeines zu Perl)

[thread]8775[/thread]

Suche ob String in String enthalten ist

Kalmuecke

2007-02-21 10:28

User since
2006-10-14
68 Artikel
BenutzerIn
[default_avatar]

Hi,

ich habe, so glaube ich :D, ziemlich einfaches Problem, weiß aber im Moment nicht
wie ich es lösen soll.

Und zwar habe ich einen String wie diesen:

C:\Programme\Pfad\Tiefer\NochTiefer\meine_datei.h 200: blabla

oder

C:\Programme\Pfad\Tiefer\NochTiefer\meine_datei.hh 4711: blabla

Jetzt möchte ich gern suchen ob der Name der Datei "meine_Datei.h"
in einem der 2 Strings vorkommt, allerdings findet mein Programm nun beide Zeilen, weil
ja in beiden eigentlich das gleiche drin steht, nur eben der eine String hat ein zusätzlich
"h" angehängt! Für mich sind das aber 2 verschiedene paar "Schuhe"!

Kann mir jemand sagen wie man das am einfachsten hinbekommt?
Meinen zu suchenden String lese ich über eine Config-Datei ein und steht dann in einer
Variable!

Danke im voraus!
Gruss

Kalmuecke

vayu

2007-02-21 10:45

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

$str =~ /meine_datei.h\b/

so :) \b matched auf eine Wortgrenze

könntest auch \s hintersetzen, das matched dann wenn ein leerzeichen folgt\n\n

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

renee

2007-02-21 17:56

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

1
2
3

if(index($str,'meineDatei.h') != -1){
    print "enthalten!\n";
}

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/

Taulmarill

2007-02-21 18:14

User since
2004-02-19
1750 Artikel
BenutzerIn

user image

sollte man hier nicht lieber folgende abfrage verwenden

Code: (dl )

if(index($str,'meineDatei.h') >= $[ ){

SCNR :)\n\n

$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2007-02-21 10:28.