matches this but not all ...

[MoshiachNow]

Hi,

I'd like to find UserAccounts.txt and some other extensions,but reject all other .txt files.
My regex looks like:

unless (/.log|.nfo|.zip/ || $_ eq '.' || $_ eq '..' || $_ eq "UserAccounts.txt"){

but this will get in all other .txt files as well.
Any advise ?
Thanks


Long live king Moshiach !

http://www.7for70.com/

 

[doood]

[b]#!/usr/bin/perl[/b]

while (<DATA>) {
  chomp;
  print "$_\n" if $_ =~ /\.(nfo|log|zip)$/ || $_ eq 'UserAccounts.txt';
}

[blue]__DATA__
dummy.file
file.nfo
file123.log
anotherfile.nfo
not.me
nor.me
xyz.zip
abc123.txt
pickme.nfo
findme.zip
ignoreme.txt
UserAccounts.txt
dontpickme.txT
rubbish.file[/blue]

outputs:-

[red]file.nfo
file123.log
anotherfile.nfo
xyz.zip
pickme.nfo
findme.zip
UserAccounts.txt[/red]

 

[MoshiachNow]

Thanks,

almost ther,however I need all files NOT matching "nfo|log|zip" and ".txt" ,and to match also "UserAccounts.txt"


Long live king Moshiach !

http://www.7for70.com/

 

[doood]

Sorry MoshiachNow - I misunderstood you

How' this (it's too early for me to check it carefully - but I think it's o.k.)

[b]#!/usr/bin/perl[/b]

while (<DATA>) {
  chomp;
  print "$_\n" unless $_ =~ /\.(txt|nfo|log|zip)$/ ^ $_ eq 'UserAccounts.txt';
}

[blue]__DATA__
dummyfiletofind.file
ignore_me.nfo
file123ignore.log
ignoreanotherfile.nfo
yes.me
and.me
xyz_ignore_me.zip
abc123_not_me.txt
donotpickme.nfo
dontfindme.zip
pleaseignoreme.txt
UserAccounts.txt
pickme.txT
showme.file[/blue]

 

[MoshiachNow]

Thanks,

ended up with :

if ( /[^(\.log|\.nfo|\.zip|\.txt)]$/ || $_ eq 'UserAccounts.txt'){

Long live king Moshiach !

http://www.7for70.com/