"be consistent" | |
PerlMonks |
Re^3: Efficient file handling (was Re^3: trouble parsing log file...)by Anonymous Monk |
on Jul 05, 2009 at 03:09 UTC ( [id://777295]=note: print w/replies, xml ) | Need Help?? |
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.
In Section
Seekers of Perl Wisdom
|
|