On Tue, 2002-01-08 at 02:19, mike wrote:
> #!/usr/bin/perl -w
> open(FILES,">lista");
> my @list2 = `grep 'HREF' $ARGV[0]`;
> foreach $list2 (@list2){
> $list2=~s/HREF="//g;
> $list2=~s/(\#.*\")//g;
> $list2=~s/(\")//g;
> $list2=~`grep 'html' $list2`;
> print FILES "$list2"};
>
> open (FILES2,"<lista");
It might not make any difference, but did you try closing FILES before
opening FILES2? Sometimes odd things happen when two things try to use
the same file at once, and I can't see any need to keep that file handle
open.Isn't it good practice to close filehandles when you've finished
with them?
This is just a wild guess, by the way, my Perl's not very good.
--------------------------------------------------------------------
http://www.lug.org.uk http://www.linuxportal.co.uk
http://www.linuxjob.co.uk http://www.linuxshop.co.uk
--------------------------------------------------------------------
This archive was generated by hypermail 2.1.3 : Tue 08 Jan 2002 - 11:52:44 GMT