in reply to C-Style Struct?

In general, You don't need to create C-style struct in perl in favor of a hash. But There is indeed several ways to do this, below is one of those: 
package C_struct;

sub new{
           my $self = shift;
                
           return bless  {'counting_number' => shift,
                                'name'            => shift,
                             'stuff_list'      => shift
                          }, $self;
 }
package main;
use Data::Dumper;
my $cc = C_struct->new(123,'bb', [1,2,3]);
my $dd = C_struct->new(234,'cc', [2,3,4]);
print $cc->{name};
print $dd->{name};
print Dumper $dd->{stuff_list};
1;

[download]
Always as a alternative, you can searcg modules on CPAN to reach what you want instead of doing it by hand.

UPDATE

modify code to be more intuitive.


I am trying to improve my English skills, if you see a mistake please feel free to reply or /msg me a correction

Replies are listed 'Best First'.
Re^2: C-Style Struct?
by Arunbear (Prior) on Aug 08, 2012 at 17:24 UTC
    Your code example doesn't allow access by name, so what's the advantage of it?
[reply]

      You could add accessors to the object. Like this:

      sub count {
    my $self = shift;
    return $self->[0] unless @_;
    $self->[0] = shift;
}

# ...

$cc->count(42);
print $cc->count;

      [download]
[reply]
[d/l]
      changed it, Thanks for your reminding.;)


      I am trying to improve my English skills, if you see a mistake please feel free to reply or /msg me a correction

[reply]
        But now I can see no advantage to using your example over just using a hash ;)
[reply]

In Section Seekers of Perl Wisdom