From mboxrd@z Thu Jan  1 00:00:00 1970
From: Achim Gratz <Stromeko@nexgo.de>
Subject: Re: Small tutorial on how to use Perl within org
Date: Sat, 09 Mar 2013 15:24:33 +0100
Message-ID: <87d2v8wt0e.fsf@Rainer.invalid>
References: <87r4joy9t6.fsf@mn.cs.uvic.ca>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([208.118.235.92]:43120)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1UEKhr-0001nn-IB
	for emacs-orgmode@gnu.org; Sat, 09 Mar 2013 09:25:09 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1UEKhf-00056R-P3
	for emacs-orgmode@gnu.org; Sat, 09 Mar 2013 09:25:03 -0500
Received: from plane.gmane.org ([80.91.229.3]:46718)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1UEKhf-00054F-If
	for emacs-orgmode@gnu.org; Sat, 09 Mar 2013 09:24:51 -0500
Received: from list by plane.gmane.org with local (Exim 4.69)
	(envelope-from <geo-emacs-orgmode@m.gmane.org>) id 1UEKhy-0006cK-Eb
	for emacs-orgmode@gnu.org; Sat, 09 Mar 2013 15:25:10 +0100
Received: from pd9eb4a14.dip.t-dialin.net ([217.235.74.20])
	by main.gmane.org with esmtp (Gmexim 0.1 (Debian))
	id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Sat, 09 Mar 2013 15:25:10 +0100
Received: from Stromeko by pd9eb4a14.dip.t-dialin.net with local (Gmexim 0.1
	(Debian)) id 1AlnuQ-0007hv-00
	for <emacs-orgmode@gnu.org>; Sat, 09 Mar 2013 15:25:10 +0100
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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

D M German writes:
> http://turingmachine.org/~dmg/emacs/examplePerl.org

Nice, would you consider contributing it to Worg?  I'd like to ask you
to update your Org and that description to the extra features I've
recently implemented for Perl.

--8<---------------cut here---------------start------------->8---
#+name: eg
| col1 | col2 |
|------+------|
| a    | c    |
| b    | d    |

#+name: hello
#+header: :var x = eg
#+header: :results output
#+BEGIN_SRC perl
  print qq(Hi Mom!$/I'm home.)
#+END_SRC

#+RESULTS: hello
: Hi Mom!
: I'm home.

#+name: table-passthrough
#+header: :colnames nil
#+header: :var x = eg
#+begin_src perl
 # Look Ma, no code!
#+end_src

#+RESULTS: table-passthrough
| col1 | col2 |
|------+------|
| a    | c    |
| b    | d    |

#+name: number-tablerows
#+header: :colnames no
#+header: :var x = eg
#+begin_src perl
my $i = 0;
foreach my $row (@$x) {
  unshift $row, $i++;
}
$x;
#+end_src

#+RESULTS: number-tablerows
| 0 | col1 | col2 |
| 1 | a    | c    |
| 2 | b    | d    |
--8<---------------cut here---------------end--------------->8---



Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptation for Waldorf microQ V2.22R2:
http://Synth.Stromeko.net/Downloads.html#WaldorfSDada