Help for this page
push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1}; push @antioxline, "$1 | $2 | $antiox{$1} \n" if $antiox{$1}; push @toxinline, "$1 | $2 | $toxin{$1} \n" if $toxin{$1};
if ($1 eq "E7F888"){print $2;}
next unless /(E7F888)\s+.+=([^\s]+)/; push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1}; print @activline;
#!/usr/bin/perl use Modern::Perl; ... write_file $activout, @activline; write_file $antioxout, @antioxline; write_file $toxinout, @toxinline;
www.com | www.net | www.org
No recent polls found