Adriano Allora wrote:
> hi to all,
Hello,
> this question isn't exactly a cgi-question, but I need to solve this
> problem before writing the cgi interface.
>
> I've got a list of tagged files.
> I've listed all the couple word+tag.
> now, for each word+tag I want to write a file containing all the
> filename in which compare the couple.
>
> This is the script:
>
> `sort tagged_files/* | uniq > word+tag.txt`;
perldoc -q "backticks in a void context"
> open(IDX, "<word+tag.txt");
You should verify that the file was actually opened.
> while(<IDX>)
> {
> next if /^\W.+/;
> open(TMP, ">indexes/$_.txt");
You should verify that the file was actually opened.
> $where = `grep -L '$_' tagged_files/*`;
> print TMP $where;
> close(TMP);
> }
>
> someone would tell me why the line with grep does not work?
The string in $_ has a newline at the end.
> Is this the fastest way?
sort -u tagged_files/* > word+tag.txt
grep -L -f word+tag.txt tagged_files/*
Or did you really want to do it in Perl?
Maybe if you could explain in more detail exactly what you want to do?
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
