>>You have not given a sample of your code,
Here is a part of my code:
[CODE STARTS]
#!/usr/bin/perl
open(FILE, "phone.txt") || die ("cannot open file phone.txt");
$line1=<FILE>;
while ($line1 ne "")
{
chop ($line1);
@words1 = split(/ +/, $line1);
chomp($words1[0]);
chomp($words1[1]);
chomp($words1[2]);
for ($count1=1;$count1<5;$count1++)
{
open(INFILE, "$words1[0]\_$words1[1]\_$words1[2]\_$count1.txt") || print ("\nFile Not
Found: $words1[0]\_$words1[1]\_$words1[2]\_$count1.txt");
if(-f "$words1[0]\_$words1[1]\_$words1[2]\_$count1.txt")
{
open(OUTFILE, ">$words1[0]\_$words1[1]\_$words1[2]\_$count1\_final.txt") || die
("cannot open output file \n");
print ("\nOpened File: $words1[0]\_$words1[1]\_$words1[2]\_$count1.txt");
$found = 0;
$word = "";
$fincount = 0;
$line = <INFILE>;
while ($line ne "")
{
chop ($line);
@words = split(/ +/, $line);
$total += @words;
#print ("$words[0]");
#if ($word =~ m/\b$words[0]\b/i)
for ($count=0;$count<=$total;$count++)
[SOME PARSING]
}#For
$line = <INFILE>;
}#While Outer
close (OUTFILE);
}#If foundfile
close (INFILE);
}#For
$line1=<FILE>
}#While
close (FILE);
[CODE ENDS]
>>>after each file is processed so it can be reused by subsequent >>>files.
Kindly suggest how do we realese a variable... while some of them are used further but
yes it can help me out to some extent...
>>>When the OS (windows?)
Yes!
Any Suggestions?
Thanks and Regards,
GSS_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
