#/usr/bin/perl -w #remember to set your Perl path here! # press.pl # merge press releases with # Analog FULLDAY report # (c) Feb 2000 Marco Bernardini - webmaster@taggiasca.com # under PERL ARTISTIC LICENSE - see # http://www.perl.com/pub/language/misc/Artistic.html # for details use strict; # FILES set your filenames here! my $mylog = "press0.htm"; my $newlog = "press.htm"; my $presslog = "press.log"; ########################## my $line; my $newpage =""; open (PAGE ,"<$mylog") || die $!; my @page = ; close PAGE; open (PAGE ,"<$presslog") || die $!; my @press = ; close PAGE; foreach $line (@page) { my @temp = split (/: / , $line); if ($temp[0] gt " ") { my @isthere = grep (/$temp[0]/,@press); if (scalar(@isthere) > 0){ foreach (@isthere ){ my @temp = split (/\|/ , $_); $newpage .= "$temp[2]\n"; } } $newpage .= $line; } } open (PAGE ,">$newlog") || die $!; print PAGE $newpage; close PAGE;