Below is the actual code. This is just the preliminary code to test the logic, it is not final yet, therefore, I am not using "Warnings", "Strict" or for that matter anything else. Also I am slurrping the whole file, and I know I do not have to, but alternate ways, I ll decide later.
Thanks ------------------------------------------------------------------------- open(TFILE, "file.txt"); @first=<TFILE>; close (TFILE); for ($i=0; $i <= $#first; $i++) { $Avg=$first[$i]; chomp($Avg); ($label,$TD,$YT,$M,$L,$Y,$W)= split (/\s+/,$Avg); print "$label,$TD,$YT,$M,$L,$Y,$W\n"; } --------------------------------------------------------------------------- -----Original Message----- From: Gunnar Hjalmarsson [mailto:[EMAIL PROTECTED] Sent: Monday, June 28, 2004 12:01 PM To: [EMAIL PROTECTED] Subject: Re: string seperated by multiple spaces Naser Ali wrote: > I tried with, after removing "i" > > " split ' ' " and " split (/\s+/,$Avg) " as well, but no success In that case there is a problem also with a part of your code that you did not show us. -- Gunnar Hjalmarsson Email: http://www.gunnar.cc/cgi-bin/contact.pl -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>