using file globs and regex

From: pgodfrin <pgodfrin@xxxxxxxxx>
Date: Fri, 7 Aug 2009 09:33:52 -0700 (PDT)

Greetings,
This program works fine (with file names f1..f8 in the directory):

#!/usr/bin/perl
use warnings;
use strict;
$\="\n";
while(<f*>)
{
print "$_";
if(/f5/)
{
my $fn=$_;
print "File name $fn found..." and exit;
}
}
exit;

But I was hoping to be able to do something like:
my $fn=grep (/f5/,<f*>);

Basically just trying to have less lines of code...any suggestions?
phil g
.

Follow-Ups:
- Re: using file globs and regex
  - From: Tad J McClellan

Prev by Date: Re: Perl process as a unix background process
Next by Date: Re: Perl process as a unix background process
Previous by thread: Perl process as a unix background process
Next by thread: Re: using file globs and regex
Index(es):
- Date
- Thread

Relevant Pages

Re: Writing or copying file to another directory
... use warnings; ... use strict; ... I need to learn more about how to debug a script. ...
(comp.lang.perl.misc)
Re: Problem with Win32::Console and END block.
... > use strict; ... > use warnings; ... select STDOUT; ...
(comp.lang.perl.misc)
Numeric IP addresses
... use strict; ... use warnings; ... use Socket; ... exit unless; ...
(perl.beginners)
Re: Please help with convoluted script
... use warnings; ... use strict; ... foreach my $i { ...
(perl.beginners)
Re: fork and taint
... use strict; ... use warnings; ... I only get the "before fork ok" in browser and perl.exe crashes, ... exit 0;} ...
(comp.lang.perl.misc)