You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
390 B
Perl
12 lines
390 B
Perl
open FILE, "html.lst.3";
|
|
while($line=<FILE>)
|
|
{
|
|
if ($line =~ /aaaaaaaa/)
|
|
{
|
|
print $line;
|
|
}
|
|
}
|
|
|
|
cat html.lst | perl -ne "print unless /\/.{1,9}\/.{1,9}\/.{1,9}\/(Category_Discussion|Image|Image_Discussion|Portal|Portal_Discussion|Diskussion|Template|Template_Discussion|User|User_Discussion|Wikipedia_Discussion|MediaWiki|MediaWiki_Diskussion|Help|Help_Discussion|WP)~/;" - > html.lst.1
|
|
|