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]
