Win32::OLE auf dem pc gesucht: kann zwar modul finden gibt aber mehrere - #69362 (Allgemeines zu Perl)

sabrina

2006-09-08 15:46

User since
2006-08-03
264 Artikel
BenutzerIn
[default_avatar]

hallo GwenDragon,
danke erst mal!
Habe es grade mit deinem code stueck probiert aber es geht nicht wie gewuenscht, ich denke ich schick mal meine komplette while schleife, denn so wie ich das sehe wird ein stueck darunter etwas in mein array uebergeben oder ?

Code (perl): (dl )

while(my $line = <FH>) {       
chomp $line;
my @array = (split(/[\t\s\\]/,$line))[0..($columns-1)]; 
foreach (@array) {
s/^\s+/;/g;
s/\s+$/;/g;
} # foreach
if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){
push @data,[@array];
}
} # while

wenn ich schon beim fragen bin, abgesehen von meinem problem mit der trennung " ; "habe ich wie oben schon erwaehnt, meistens nicht das problem welche syntax ich brauch, sondern was ich mit ihr mache und so meine naechtse frage bei meinem regex

Code: (dl )

1
2

if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){  
  push @data,[@array];

das bedeutet ja wenn ein BLUBB oder BLUBBER in der line steht dan haeng die line nacheinander in @data, jetzt habe ich in einer line zwar BLUBB stehen aber an der falschen stelle und es steht noch was anderes da und zwar SAND kleines beispiel( bla bla SAND BLUBBER), normal wuerde ich doch mit Caret ^ als negation arbeiten ?
hab es schon auf zwei arten probiert einmal so:

Code (perl): (dl )

if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){  
  push @data,[@array];                   
  }
  if ($line =~ /\b(?:[^SAND]\b/){
  push @data,[@array];
  }

hier die fehlermeldung:

Unmatched ( in regex; marked by <-- HERE in m/\b( <-- HERE [^SAND]\b/ at 5_09_neu.pl line 22

und einmal so:

Code (perl): (dl )

1
2
3

if ($line =~ /\b(?:BLUBB|BLUBBER|[^SAND])\b/){     
  push @data,[@array];       
  }

bekomm jetzt keine fehlermeldung aber es wird jetzt keine linien mehr rausgeschmissen, hab jetzt also alle drinn, ungefiltert.
lg sabrina