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)//;
while(<UPD1>) {
chomp; s/^\s+//; s/\s+$//; next unless length;$update1 = $_;
$update1=~chomp; my @update2=split /#/,$update1;# this bit works
But I still get a blank line at the start
blank line 233
What you ask is a FAQ - see Faq 4 at perldoc.com
-- _Sx_ http://youve-reached-the.endoftheinternet.org/ _____ perldoc -qa.a | perl -lpe '($_)=m("(.*)")' | grep Martian
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
