Problem mit OOP: meine Klassen funktioniern nicht - #52720 (Allgemeines zu Perl)

renee

2005-03-16 15:00

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

[...]
sub explode {
 my $self = shift;
 print Dumper [$self->get()];
}

package main;

my $object = new TestClass;
$object->set(qw (Hello World outside));
print $object->explode();
exit;

Rufe explode ohne print auf... Das print machst Du ja schon in der Sub...

@peddn: siehe perldoc -f print
print gibt eine Liste von Strings aus, wenn eine Liste übergeben wird... @list1 ist diese Liste von Strings, die Du print übergibst...

Und das andere kannst Du so vielleicht nachvollziehen:

Code: (dl )

1
2
3

my @array = (1, 2, 4);
my $anz = @array;
print $anz,"\n";

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/