use.buetow.org/content/Fun.sub/Fibonacci.pl.c.xml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

<?xml version="1.0" encoding="ISO-8859-1" standalone="yes" ?>
<content>
  <pagetitle>Fibonacci.pl.c!</pagetitle>
  <text>
    <noop>The following code is both, valid C and Perl code :)</noop>
  </text>
  <code>
  <perl>
 	use LWP::Simple;
	my $ret = get("https://ssl.buetow.org/repos/playground/trunk/Perl/perl-c/fibonacci.pl.c");
	$ret =~ s/</&lt;/;
	$ret;
  </perl>
  </code>
</content>