Lange Zeichenkette in einem Array suchen - #98707 (Allgemeines zu Perl)

Gast Gast

2007-08-27 12:36

Hallo Zusammen,

ich möchte in einem Array nach einer Zeichenkette suchen. Das Array wird durch das Windows Prozess Programm pv.exe gefüllt. Anschließend soll geprüft werden ob ein bestimmter prozess aktiv ist.

Code (perl): (dl )

...
use strict;
use warnings;

my $prozesse = "D:/bin/pv.tmp";
system ('D:/bin/pv.exe -l java.exe > $prozesse');
open PROZESSE, "<$prozesse";
my @prozesse = <PROZESSE>;
close (PROZESSE);   

if ("@prozesse" =~ /perl.exe/)  {
  print "Der Prozess ist aktiv\n";
  print "@prozesse\n";
  }
else {
  print "Der Prozess ist nicht aktiv\n";
  }

Mein Problem ist jetzt die Zeile

Code (perl): (dl )

if ("@prozesse" =~ /perl.exe/)  {

Wenn ich statt nach "perl.exe" jetzt die folgende Zeichenkette suchen möchte

jre\bin\java -classpath .;.\lib\nls_charset12.jar;.\lib\ocrs12.jar;.\lib\classes12.jar;.\lib\Si
ebelJI.jar;.\lib\SiebelJI_Common.jar;.\lib\SiebelJI_deu.jar;.\lib\systray4j.jar;.\lib\activation.jar;.\lib\mail.jar;.\IV
Z\massload ivz.massload.Forms.MainForm -env "Wirk" -go "ML ASP Wirk;ML SST EVT Wirk;RE Wirk;RG Wirk;RV TS
AM Wirk;ML SA Wirk"

funktioniert diese ohne spezielle Maskierung nicht. Welche Metazeichen muss ich verwenden damit die Zeichenkette als solche erkannt wird.
DANKE
Gruß
Markus