Perl class help


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Perl class help
# 1  
Old 06-30-2010
Perl class help

cat a.pl
Code:
#!/usr/bin/perl

package Myperlclass;
sub mysub{
    my $class;
    $class=shift;
    my $self{};
    bless $self,$class;
    return $self;
}
sub add{
    my $a,$b,$res;
    $a=$_[0];
    $b=$_[1];
    $res=$a+$b;
    print "res: $res\n";
}

cat b.pl
Code:
#!/usr/bin/perl

use Myperlclass;
$obj=new Myperlclass();
$obj->add(4,5);

perl b.pl
Error:
Code:
Can't locate Myperlclass.pm in @INC (@INC contains: 
/usr/lib/perl5/5.10.0/i586-linux-thread-multi 
/usr/lib/perl5/5.10.0 /usr/lib/perl5/site_perl/5.10.0/i586-linux-thread-multi 
/usr/lib/perl5/site_perl/5.10.0 
/usr/lib/perl5/vendor_perl/5.10.0/i586-linux-thread-multi 
/usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl .)
 at call_perl.pl line 3.
BEGIN failed--compilation aborted at call_perl.pl line 3.

Can i call class member function in same a.pl file?

---------- Post updated at 10:33 AM ---------- Previous update was at 10:31 AM ----------


Done.
cat Myperlclass.pm
Code:
package Myperlclass;
sub new{
    my $class;
    $class=shift;
    my $self={
        a=>shift,
        b=>shift,
    };
    bless $self,$class;
    return $self;
}
sub add{
    my ($vr,$a,$b)=@_;
    my $res;
    $res=$vr->{a}+$vr->{b};
    print "res: $res\n";
}

cat b.pl
Code:
#!/usr/bin/perl

use Myperlclass;
$obj=new Myperlclass(4,5);
$obj->add();


Last edited by cola; 06-29-2010 at 11:55 PM..
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

C++ : Base class member function not accessible from derived class

Hello All, I am a learner in C++. I was testing my inheritance knowledge with following piece of code. #include <iostream> using namespace std; class base { public : void display() { cout << "In base display()" << endl; } void display(int k) {... (2 Replies)
Discussion started by: anand.shah
2 Replies

2. Programming

Size of Derived class, upon virtual base class inheritance

I have the two class definition as follows. class A { public: int a; }; class B : virtual public A{ }; The size of class A is shown as 4, and size of class B is shown as 16. Why is this effect ?. (2 Replies)
Discussion started by: techmonk
2 Replies

3. UNIX for Advanced & Expert Users

Get pointer for existing device class (struct class) in Linux kernel module

Hi all! I am trying to register a device in an existing device class, but I am having trouble getting the pointer to an existing class. I can create a class in a module, get the pointer to it and then use it to register the device with: *cl = class_create(THIS_MODULE, className);... (0 Replies)
Discussion started by: hdaniel@ualg.pt
0 Replies

4. Programming

static use for class inside the same class c++

Hi, I believe the next code is wrong: class Egg { Egg e; int i; Egg(int ii=0) : i(ii) {} }; because you would end up with an endless definition (memory allocation) of Egg objects, thus int i. Ok, so God Eckel proposes for a singleton: class Egg { static Egg e; int... (5 Replies)
Discussion started by: xavipoes
5 Replies

5. UNIX for Dummies Questions & Answers

Perl on-line class

Hi, Time for me to take a formal class/course on Perl. I was wondering if someone here can recommend an on-line class. My institution will cover the expenses, and therefore, I am not worry about the cost. I am lookin for a beginner course with possibilities to take intermediate and advance... (2 Replies)
Discussion started by: Xterra
2 Replies

6. Programming

C++ class definition with a member of the same class

Hi, i have a question about C++. Is it possible to declare a class with a member ot the same class? For example, a linked list or i want to convert this C code to C++ class (Elemento) typedef struct elemento { char name; char value; List<struct elemento> ltElementos; ... (7 Replies)
Discussion started by: pogdorica
7 Replies

7. UNIX for Dummies Questions & Answers

car class (not school class)

im just trying to have some fun and kill some time writing a c++ program that has a person type in a car make and model then gives them a year and a price. or something like that. i always have problems getting it goin but once the ball is rolling im usually pretty good. anyone wanna help me out? ... (1 Reply)
Discussion started by: rickym2626
1 Replies

8. Shell Programming and Scripting

can't get perl Class::Struct to work

This is my code: #!/usr/bin/perl -w use strict; use Class::Struct; struct App => { name => '$', }; sub App::name { my $self = shift; if( @_ ) { $self->{'name'} = shift; } return $self->{'name'}; (3 Replies)
Discussion started by: IMTheNachoMan
3 Replies

9. UNIX Desktop Questions & Answers

It's first class!

Hi..!!!You have a very nice web-site! Good work!I am also webmaster and I like this one!Thank you! (1 Reply)
Discussion started by: Hardan
1 Replies

10. UNIX Desktop Questions & Answers

It's first class!

This is a great sight! Excellent site, added to favorites!! I am also webmaster and I like this one!Thank you! (0 Replies)
Discussion started by: Leksej
0 Replies
Login or Register to Ask a Question