On Tuesday 15 February 2005 11:06 am, Brian Volk wrote:
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use Cwd;
> use File::Basename;
> use Regexp::Common qw /URI/;
>
> my $dir = "C:/brian/small";
> opendir (SM, $dir) or die "Can't open $dir: $!";
>
> my @files = map { "$dir/$_" } grep { !/^\./ } readdir SM;
>
> close SM;
>
> foreach my $file (@files) {
> my ($basename) = fileparse($file,'.txt');
>
> open(LINK, "> $basename.txt") or warn "$!\n";
> my $text = '';
> open(TEXT, "< $file") or warn "$!\n";
> read( TEXT, $text, -s TEXT );
> print LINK "$text $1\n" # <------
> Use of uninitialized value in pattern match
> and close TEXT and next
> if /$RE{URI}{HTTP}{-keep}/;
>
> }
>
> # ----- end
I don't have the rex module be I was able to get a crude version running I am
sure others have better ways of doing it. I think this works didn't test it
out fully.
my $dir = "C:/brian/small";
opendir (SM, $dir) or die "Can't open $dir: $!";
my $text;
#my @files = map { "$dir/$_" } grep { !/^\./ } readdir SM;
my @files = grep /.txt/, readdir SM;
close SM;
foreach my $file (@files) {
chomp;
my ($basename) = fileparse($file,'.txt');
open(LINK, ">./newfiles/$basename.txt") or warn "$!\n";
my $text = '';
open(TEXT, "< $file") or warn "$!\n";
#read( TEXT, $text, -s TEXT );
while(<LINK> {
need an expression here to pull the link out of the current
line if there is one.
print LINK "$text $1\n"
}
close(LINK);
close(TEXT);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
