http://www.perlmonks.org?node_id=777296


in reply to trouble parsing log file...

OK, in light if this discussion, I have a similar problem.
I need help, I have a script that i am trying to do the following:
file1= list of unique ID numbers
file2= list of unique html code with the unique ID numbers within the code per line(about 16k-bytes each seperated by carage.
Both are standard text files.
===========
#!/usr/bin/perl
#read each line in test1.txt into data_file array
$data_file="test1.txt";
open(DATA, $data_file) || die("Could not open file!");
@data_file=<DATA>;

#read each line in code.txt into a names_file array
$names_file="code.txt"
open(NAMES, $names_file) || die("Could not open file!");
@names_data=<NAMES>;

#create loop that reads each ID in code.txt (NAMES array), searches for each in array elements for #test1.txt (DATA array), redirects a new (NAMES).html for each element
foreach ( $NAMES )
{
chomp($NAMES);
($NAMES=$DATA<0> > +("$NAMES<0>.html"));
}

close NAMES;
close DATA;

I am new to perl but this is absolutely riddled with errors and I have written this according to examples of similar scripts.

Node content restored by GrandFather