Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^3: Efficient file handling (was Re^3: trouble parsing log file...)

by Anonymous Monk
on Jul 05, 2009 at 03:09 UTC ( #777295=note: print w/ replies, xml ) Need Help??


in reply to Re^2: Efficient file handling (was Re^3: trouble parsing log file...)
in thread 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.


Comment on Re^3: Efficient file handling (was Re^3: trouble parsing log file...)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://777295]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (10)
As of 2014-09-17 08:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (66 votes), past polls