Re^4: Printing all the files that have both ".rtf" and ".ftp" by searching recursively in a given directory

It seems like the below code is printing the files with .rtf or .ftp files,I want to print files that has both .rtf and .ftp extension.Can someone advise?

use warnings;
use strict;
use File::Find::Rule;
use Data::Dumper;

my @files = File::Find::Rule->file()
                            ->name( '*.rtf', '*.ftp' )
                            ->in( './' );
print Dumper(\@files);
[download]

Comment on Re^4: Printing all the files that have both ".rtf" and ".ftp" by searching recursively in a given directory Download Code

Replies are listed 'Best First'.
Re^5: Printing all the files that have both ".rtf" and ".ftp" by searching recursively in a given directory by toolic (Bishop) on Apr 12, 2011 at 19:10 UTC
Are you saying you have a file named something like "foo.rtf.ftp" or "foo.ftp.rtf"? Just change the name strings to match your bizarre file names: `use warnings; use strict; use File::Find::Rule; use Data::Dumper; my @files = File::Find::Rule->file() ->name( '.rtf.ftp', '.ftp.rtf' ) ->in( './' ); print Dumper(\@files);` [download]	[reply] [d/l]
Re^6: Printing all the files that have both ".rtf" and ".ftp" by searching recursively in a given directory by Anonymous Monk on Apr 12, 2011 at 19:16 UTC
I have a file with name foo.rtf and foo.ftp ,I only want to print such files with both extensions	[reply]
Re^7: Printing all the files that have both ".rtf" and ".ftp" by searching recursively in a given directory by Anonymous Monk on Apr 12, 2011 at 19:27 UTC
I tried to use thefollowing but it is also not helping.. `my @files = File::Find::Rule->file() ->name( qr/\.(rtf&ftp)$/ ) ->in( './' );` [download]	[reply] [d/l]