finne nøyaktig ord for ord

[greigster]

har definert

@Standard = ('Multidata','Srmuxroot','SybaseData','Data','Backup','Charts');

 

jeg går gjennom en liste med adresser, og skal kjenne igjen ord for ord

(/multidata/ /srmxroot/ /sybasedata/ m.m..

 

Det hele fungerer fint helt til /Data/ kommer.. -scriptet finner /data/ i både /multidata og /sybasedata... hvordan kan jeg sammenligne hele ord mot hverandre?

 

 

 

glem det..fant det ut if ($line=~ m/\b$standard\b/i)

Endret 1. september 2004 av greigster

[Torbjørn]

hva med:

my @Standard = qw/Multidata Srmuxroot SybaseData Data Backup Charts/;

for my $address (@addresses){
 print "'$_' funnet i $address\n" if any( map { $address =~ /\b$_\b/i } @Standard);
}

# fra List::Util
sub any { $_ && return 1 for @_; 0 }