Dear Katy, It works great after the changed the regular expression to as given by u below..! Thanks a ton for the help.....but may I request for a small explanation of the line $file =~ s/((^|\n\n).+?)\n/$1 /g;
Sunish Katy Brownfield wrote: > Or, instead of changing the input file, change the regular expression to > also detect the beginning of the string. > > $file =~ s/((^|\n\n).+?)\n/$1 /g; > > Katy > > Timothy Johnson wrote: > > > > > > I think you'll need 2 blank lines. > > > > -----Original Message----- > > From: Sunish Kapoor > > To: Nigel Peck > > Cc: [EMAIL PROTECTED] > > Sent: 7/3/02 6:51 PM > > Subject: Re: Regular Expression Help sought > > > > Dear Nigel, > > > > Thanks a ton for the script..It works fine though it skips the first > > record > > even though I make > > the file begin with a blank line by simply hitting enter ! > > > > Regards > > > > Sunish > > Nigel Peck wrote: > > > > > My first attempt, which may be a bit simplified, would be to > > substitute > > > any newline, which occured at the end of a line which was preceeded by > > 2 > > > consecutive newlines, with a space. This relies on the format of the > > > file being as shown for every company. It also may miss the first > > > company in the file if the file doesn't start with a blank line. > > > > > > So > > > > > > undef $/; > > > $file = <FILE>; > > > $file =~ s/(\n\n.+?)\n/$1 /g; > > > print $file; > > > > > > [untested] > > > > > > HTH > > > Nigel > > > > > > >>> [EMAIL PROTECTED] 07/03/02 10:52pm >>> > > > Hi All, > > > > > > I am new to Perl and need help to solve this one ! > > > > > > I have a txt file and the contents of the file are as below : > > > > > > ---------------CONTENTS OF TEXT FILE-------------------------- > > > Abdullah Ahmed Hassan > > > Trading > > > Location Ruwi Souk St, Ruwi > > > Bus Hrs 0930-1300:1630-2200 > > > P.O. Box 197 Ruwi Code 112 > > > Phone 708940 > > > Fax 794156 > > > Key Staff Abdullah Ahmed Hassan > > > Mohammad Hussain Ahmed Hassan > > > Irfan Ahmed > > > Mohammad Asim > > > Activities :3410 > > > Email : [EMAIL PROTECTED] > > > > > > Abu Ali Trading & Cont > > > Est > > > Location Azaiba > > > B us H rs 0700-1200; 1500-1900 > > > P.O. Box 1695 C. P. 0. Code 111 > > > Phone 595324 > > > Key Staff K. Sasi, Prop > > > Ali Suleiman Al Ghubshi, Sponsor > > > Activities 2700 > > > > > > Abu Al Dahab Trading & Contg > > > Est > > > Location 23rd July St, Opp Al Ghobish > > > Furniture Showroom > > > Bus Hrs 0800-1300 (Sat-Thu); 1600-1900 (Sat- > > > Fri) > > > P.O. Box 1254 Salalah Code 211 > > > Phone 297879 > > > Fax 297879 > > > Key Staff Syed Tajudeen Madani, Gen Mgr > > > Activities 2660 > > > ---------------CONTENTS OF TEXT FILE-------------------------- > > > > > > The names of three companies as above are: > > > > > > Abdullah Ahmed Hassan > > > Trading > > > > > > Abu Ali Trading & Cont > > > Est > > > > > > Abu Al Dahab Trading & Contg > > > Est > > > > > > I want the data this way . > > > > > > -----------DATA WANTED THIS WAY---------------- > > > Abdullah Ahmed Hassan Trading > > > Location Ruwi Souk St, Ruwi > > > Bus Hrs 0930-1300:1630-2200 > > > P.O. Box 197 Ruwi Code 112 > > > Phone 708940 > > > Fax 794156 > > > Key Staff Abdullah Ahmed Hassan > > > Mohammad Hussain Ahmed Hassan > > > Irfan Ahmed > > > Mohammad Asim > > > Activities :3410 > > > Email : [EMAIL PROTECTED] > > > > > > Abu Ali Trading & Cont Est > > > Location Azaiba > > > B us H rs 0700-1200; 1500-1900 > > > P.O. Box 1695 C. P. 0. Code 111 > > > Phone 595324 > > > Key Staff K. Sasi, Prop > > > Ali Suleiman Al Ghubshi, Sponsor > > > Activities 2700 > > > > > > Abu Al Dahab Trading & Contg Est > > > Location 23rd July St, Opp Al Ghobish > > > Furniture Showroom > > > Bus Hrs 0800-1300 (Sat-Thu); 1600-1900 (Sat- > > > Fri) > > > P.O. Box 1254 Salalah Code 211 > > > Phone 297879 > > > Fax 297879 > > > Key Staff Syed Tajudeen Madani, Gen Mgr > > > Activities 2660 > > > -----------DATA WANTED THIS WAY---------------- > > > > > > I want PERL to make the name of the company to come in > > > one line as it has done for all three records. > > > > > > I request your help solving this. > > > > > > Regards > > > > > > Sunish Kapoor > > > > > > ITM Business Solutions > > > Unit 4 > > > Nine Trees Trading Estate > > > Morthen Road > > > Rotherham > > > S66 9JG > > > > > > Reception > > > Tel: 01709 703288 > > > Fax: 01709 701549 > > > > > > Help Desk > > > Tel:01709 530424 > > > Fax: 01709 702159 > > > > > > CONFIDENTIALITY NOTICE: This message is intended only for the use of > > > the individual or entity to which it is addressed, and may contain > > > information that is privileged, confidential and exempt from > > disclosure > > > under applicable law. > > > > > > -- > > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > > > -- > > To unsubscribe, e-mail: [EMAIL PROTECTED] > > For additional commands, e-mail: [EMAIL PROTECTED] > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
