this times my call-for-help could be interesting also for who knows perl (and not only for me).
I need to delete in a list of files, and in each file of newsgroups, all the posts which contents quoted lines. ONLY IF these lines are effectively repeating the non quoted text.
FIRST step: I create a file in which there are stored all the quoted lines:
#!/usr/bin/perl -w
use strict;
my $var = 1;
$^I = '';
@ARGV = </Users/pes/Desktop/TC4ctrl/*.txt>;
while(<>)
{
next if /^>/x;
print;
print STDOUT ++$var, " - $ARGV extracted\n" if (eof);
}It works, I show it only because my english isn't a good english. So you can undestand what I mean.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SECOND step:
I clean all the repeated lines in my control-file using:
perl -e'while(<>){print unless $seen{$_}++}' <test.txt >test2.txt~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ THIRD step:
I open the control-file then I verify if each quoted line is repeating other text.
If a line is doing it, I delete all the post.
This step does not work, so, I ask myself if I could re-think all the process:
#!/usr/bin/perl -w
use strict; my ($temp,$actual,$var); my $del = 0;
my $fileName = "/Users/pes/Desktop/TC4ctrl/test2.txt"; open (INPUT, $fileName) or die "File not opnd cos $!"; my $control = <INPUT>; close(INPUT);
$^I = '';
@ARGV = </Users/pes/Desktop/TC4/*.txt>;
while(<>){
# if it's the end of a post...
if (/={8}/g)
{
# ... the script knows if it must print the entire post...
if ($del == 0)
{
$temp .= "\n========\n";
print $temp;
$temp = "";
}
# ... or if it must delete it
else
{
$temp = "";
$del = 0;
}
}
# if there's a quoted line it compare the line without quoting
# with all the line in the control files
# in my intentions when there's the first repetition it decide
# set the erasure-variable $del to 1 ("yes, delete it!") and continue the while cycle
# this block does not work
elsif (/^>/g)
{
$actual = $´;
while ($control)
{
$del = ($control =~ /$actual/m);
next;
}
}
# if the line is a non-quoted line the script store it in a variable
else
{
$temp .= $_;
}
print STDOUT ++$var, " - I cleaned $ARGV\n" if (eof);
}
print "Done!\n";
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
at the end, I'm working on a single file in the directory, but the moment in which I have to work on a multi-file directory is appraching to me, and I'm not able to make works two files in the same time.
thank you all
all'adr
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
