Hi All,
I have a directory full of .txt files that I need to send to
Regexp::Common... I want to over ride the diamond operator by defining the
directory using @ARGV . I'm not sure how I define it...... Please help,
w/o too much laughing! :-)
------------------------- the start
--------------------------------------------
#!/usr/bin/perl -w
use Regexp::Common qw /URI/;
$dir = "/Program Files/OptiPerl/test_files";
opendir (BIN, $dir) or die "Can't open $dir: $!";
while ( defined ($file = readdir BIN) ) {
#
do something with "$dirname/$file"
@ARGV = qw# $file # ; # <------ this
is not right ?
while (<>) {
/$RE{URI}{HTTP}/ and print "Contains an HTTP URI.\n";
}
closedir (BIN);
}
------------------------------------------------- the end -----------
Thank you!
Brian Volk
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
