trouble with printing to file
Hi
I'm fairly new to perl
I'm trying to identify duplicates in two sets of data
in a file and write out unique values to another file.
I'm running into a problem in the code which is
reporducible in the piece of code below also . this
code is written to demo only
$Name = "logfile.txt";
open(LGFILE,"> $Name") or die " Could not open
$Name\n" ;
#seed some data into the file
print LGFILE "vbvbe\n";
while ($line =<LGFILE>)
{
print LGFILE "vbvbe\n";
}
close (LGFILE);
The output i get in the logfile is
vbvbe
]n" ;
vbvbe
LGFILE "vbvbe\n";
vbvbe
($line =<LGFILE>)
vbvbe
rint LGFILE "vbvbe\n";
vbvbe
se (LGFILE);
vbvbe
Any tips on what is happening here?
__________________________________________________
Do You Yahoo!?
Yahoo! Tax Center - online filing with TurboTax
http://taxes.yahoo.com/
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
