On Friday 06 May 2005 16:50, macromedia wrote:
> Something like this?
>
> #!/usr/bin/perl -w
>
> #Syntax: test.pl "<directory>" "<match>"
>
> require 5.000;
> use strict;
>
> # Pass filename parameter
> my $path = $ARGV[0];
> my $num = $ARGV[1];
>
> while ($line = <$path*.txt>) {
> open (FILE, $line) or die "cannot open $line: $!\n";
> while (<FILE>) {
> if ($line =~ /$num/ {
> print $line;
> }
> }
> close FILE;
> }
>
Looks good. Does it work?
>
> -----Original Message-----
> From: Gavin Henry [mailto:[EMAIL PROTECTED]
> Sent: Friday, May 06, 2005 11:24 AM
> To: beginners@perl.org
> Subject: Re: Writing my first perl script
>
> <quote who="macromedia">
>
> > Hello,
> >
> > I'm not sure about the login or how I should approach what I want to
> > achieve. I require a script that does the following.
>
> Here are the quick answer, which provide you some reading material:
> > 1. Search a directory and all sub-directories for a certain file
> > extension. (Ex. .txt)
>
> If you are famliar with the Unix find command, you can use find2perl;;
>
> http://perldoc.perl.org/find2perl.html
>
> > 2. Get the results of the above search and check "inside" each file
>
> for
>
> > a string match. (Ex. "123").
>
> You would use a while loop, Filehandle and some regular expressions:
>
> http://perldoc.perl.org/perlopentut.html
> http://perldoc.perl.org/perlrequick.html
> http://perldoc.perl.org/perlfaq5.html
>
> > 3. List the matches found into an external file for further
>
> processing.
>
> See above.
>
> > What features should I be looking at to achieve this? Anyone know of
> > some good examples that I could pick away at?
>
> See above.
>
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> > <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
--
Just getting into the best language ever...
Fancy a [EMAIL PROTECTED] or something
on http://www.perl.me.uk Just ask!!!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
