From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ivanov Dmitry Subject: Extra empty line at the top of the page when tangling. Date: Wed, 22 Oct 2014 08:53:44 +0400 Message-ID: Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=e89a8f83a5d58c49d40505fbbbaf Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44630) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xgnvg-0002Gb-1i for emacs-orgmode@gnu.org; Wed, 22 Oct 2014 00:53:48 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Xgnve-00047m-Sw for emacs-orgmode@gnu.org; Wed, 22 Oct 2014 00:53:47 -0400 Received: from mail-oi0-x229.google.com ([2607:f8b0:4003:c06::229]:60226) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Xgnve-00047g-O0 for emacs-orgmode@gnu.org; Wed, 22 Oct 2014 00:53:46 -0400 Received: by mail-oi0-f41.google.com with SMTP id u20so2135989oif.14 for ; Tue, 21 Oct 2014 21:53:45 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --e89a8f83a5d58c49d40505fbbbaf Content-Type: text/plain; charset=UTF-8 Code: #+BABEL: :cache yes :tangle yes :noweb yes #+NAME: top_block #+begin_src perl :tangle "test.pl" :noweb tangle #!/usr/bin/perl use strict; use warnings; open(my $fh, "<", "test.txt") or die "cannot open < file name: $!"; <> close($fh); #+end_src #+NAME: output-all #+begin_src perl while (my $line = <$fh>) { print $line; } #+end_src Outputs a perl file, where the 1-st line is blank. What should I do to remove it? --e89a8f83a5d58c49d40505fbbbaf Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Code:

#+BABEL: :cache yes :tangle yes :noweb y= es

#+NAME: top_block
#+begin_src perl :tangle "test.pl" :noweb tangle
=C2=A0 #!/usr/bin/perl
=
=C2=A0 use strict;
=C2=A0 use warnings;

=C2=A0 open(my $fh, &= quot;<", "test.txt")
=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 or= die "cannot open < file name: $!";
=C2=A0 <<output-a= ll>>
=C2=A0 close($fh);
#+end_src

#+NAME: output-all
= #+begin_src perl
=C2=A0 while (my $line =3D <$fh>) {
=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 print $line;
=C2=A0 }
#+end_src

Ou= tputs a perl file, where the 1-st line is blank. What should I do to remove= it?
--e89a8f83a5d58c49d40505fbbbaf--