perl - grep filename in directory -
i have directory named - "requests"
inside have below files
transition-request-201405061735.html requisition-request-201405061735.html transition-request-201405061735.txt transition-request-201405061735.csv output.txt
i need filter transition-request-201405061735.txt
the code came far below
#!/usr/bin/perl use strict; use warnings; $request = "/tmp/requests"; opendir(dir, $request) or die $!; @inputfiles = grep { /ion-request-/ && \/\.txt$/ && -f "$request/$_" } readdir(dir); print "@inputfiles\n";
output below
transition-request-201405061735.html transition-request-201405061735.csv transition-request-201405061735.txt requisition-request-201405061735.html
i seeking experts advise in using valid grep
statement filter desired file - transition-request-201405061735.txt
this due escape character:
\/\.txt$/ # ^ here
just remove it:
.... /ion-request-/ && /\.txt$/ ...
Comments
Post a Comment