I have the following protion of code in one of my program called
T38ins.pl
When I called this program in the following way it works on the
older version of perl but does not work using Perl 5.005_03 build 522.
T38ins.pl *.cfg
Is this a bug or we should expand this in our program
before using the while (<>) loop?
&readconfigfile;
sub readconfigfile {
my $CaseSensitive=0;
my $DumpDeivesPath=0;
my $LdfDrive=0;
while (<>) {
$CaseSensitive = $1 if /^CaseSensitive\s*=\s*([^\s]+)\s/;
$DumpDevicesPath = $1 if /^DumpDevicesPath\s*=\s*([^\s]+)\s*$/;
$LdfDrive = $1 if /^LdfDrive\s*=\s*([^\s]+)\s*$/;
}
print "CaseSensitive = $CaseSensitive\n";
print "DumpDevicesPath = $DumpDevicesPath\n";
print "LdfDrive = $LdfDrive\n";
}
=====
Thanks a Mil-¥en,
--Asif Kaleem
__________________________________________________
Do You Yahoo!?
Yahoo! Photos - 35mm Quality Prints, Now Get 15 Free!
http://photos.yahoo.com/
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
