Hello World,
I've got something happening I never experienced before. I've given the
entire section of code in question so that you can see what's going on, but
the real line of code in question begins "print RECORD".
For some unknown reason, I am ending up with one or two extra carriage
returns at the end of each record (or maybe an extra one BEFORE the
record?). Every other place I'm using code like this, everything works as
expected--a line of data and a single carriage return.
Anyone know what's happening here?
Thank you.
Tim
use Time::Local;
($sec,$min,$hour,$day,$month,$year,$j1,$j2,$j3) = localtime(time());
$month += 1;
$year = substr($year,-2,2);
$username = $in{'username'};
$username =~ tr/+/ /;
$password1 = $in{'password1'};
$email = $in{'email'};
open (RECORD, "+>>c:/inetpub/wwwroot/domain.com/upload_activity.dbf");
print RECORD "$month/$day/$year $available_credit $username
$password1
$email\n";
close (RECORD);
open (ORIGINAL,"<c:/inetpub/wwwroot/domain.com/upload_activity.dbf");
@data = reverse (<ORIGINAL>);
open (DATABASE,">c:/inetpub/wwwroot/domain.com/upload_activity.txt");
print DATABASE @data;
close (DATABASE);
close (ORIGINAL);
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
