http://www.perlmonks.org?node_id=750353

AoZus has asked for the wisdom of the Perl Monks concerning the following question:

Hi I am a beginner to perl. I am so sorry about the terrible formatting earlier. I am trying to read from a file, for some fields. The code is as follows: ********************************************************************************
use strict; use warnings; use FileHandle; use Cwd 'abs_path'; #====================== main() ======================== my $FH = new FileHandle; my $configFile = ""; my $file= ""; my $path = ""; my $fullpath = ""; my $buffer = ""; #get full path + configFile $configFile = abs_path($0); $configFile =~ s!/!\\!g; $char=chop($configFile); while($char ne '\\') {$char=chop($configFile);} $configFile=$configFile."\\config.ini"; $buffer = ""; #to read arguments from config.ini open(FH, "<$configFile") or die "Error: $!\n"; binmode FH, ':raw'; #copy configFile contents my @array; while (<FH>) { @array = (); $buffer = ""; $buffer = $_; if (length($buffer)>2) { chomp($buffer); @array = split(/=/, $buffer); if (lc($array[0]) eq lc("myfile")) { $file = $array[1]; } elsif (lc($array[0]) eq lc("path")) { $path = $array[1]; } } } $buffer = ""; close(FH); my $fullPath = $path . "\\" . $file; print STDOUT "$fullPath\n";
******************************************************************************** And here are the contents for the config.ini: <file> myfile=bbbbbbb.txt path=aaaaaaaaaaaaaaa </file> ******************************************************************************** Comments: The output I got is: bbb.txtaaaaaaaaaabbbbb But I am expecting: aaaaaaaaaaaaaaa\bbbbbbb.txt It seems that the string wraps around itself, but I don't understand why. When I did print $file and print $path individually, they are fine. Can someone please help me?