I am trying to get rid of a blank line at the start of a text file, and
I dont understand why this does not work
open(UPD1,"tem");# this file exists
my @update1=<UPD1>;
foreach $update1(@update1){
$update1=~s/^(\n)//;
$update1=~chomp;
my @update2=split /#/,$update1;# this bit works
But I still get a blank line at the start
ie
print $contact_id,br;# name give to first field
gives
blank line
233
234
235
236
237
238
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
