[quote=esskar,15.08.2005, 18:57][quote=sri,15.08.2005, 18:07]pugs -e '"Happy Birthday!".say'[/quote]
emm...
was kommt denn da raus?
sieht ja schrecklich aus![/quote]
sieht doch in perl5 (fast) auch so aus (wenn man es möchte ?!) :
#!/usr/bin/perl
use strict;
use warnings;
package String;
sub new { my ($class, $text) = @_; bless \$text, $class; }
sub say { my $self = shift; local($\) = "\n"; print ${$self}; }
package main;
my $foo = new String ('Hello World!');
$foo->say();
say $foo;
\n\n
<!--EDIT|Ronnie|1124134319-->