Beginner Question #1

[soup_or_power]

Consider the following code. Is there any workaround to calling sub b
from sub a without using the $type. Thanks for your help.

package my:ackage

sub new ()
{
return self;
}

sub a ()
{
my($type)=shift;
my $par1
&b($type, $par1);
}

sub b()
{
my($type, $param)=@_;
}

 

[John Bokma]

wrote:

Consider the following

subject: "beginner question #1" and think, how many beginner question #1s
are posted here today.

 

[A. Sinan Unur]

(e-mail address removed) wrote in @l41g2000cwc.googlegroups.com:

Consider the following code. Is there any workaround to calling sub b
from sub a without using the $type. Thanks for your help.

package my:ackage

Please post real code.

In addition to the syntax error above, my is probably going to be
confusing.

Other than with pragmas, it use customary to capitalize the first letter
of each component in a package identifier.

So:

package My:ackage;

use strict;
use warnings;

missing.

sub new ()

Why the prototype?

{
return self;
}

What is self?

Bareword "self" not allowed while "strict subs" in use at t.pl line 9

sub a ()

Why the prototype?

{
my($type)=shift;
my $par1

Syntax error.

&b($type, $par1);
}

sub b()
{
my($type, $param)=@_;
}

You need a good book, and make an effort to help others help you.

Please read the posting guidelines for this group.

I have no idea what you are trying to do here.

#! /usr/bin/perl

use strict;
use warnings;

sub a { print "This is a\n"; }

sub b {
print "This is b\nCalling a ...\n";
a();
}

b();

__END__

 

[Tad McClellan]

Subject: Beginner Question #1

Please put the subject of your article in the Subject of your article!

my $par1

Syntax error.

Code does not run, so on to helping the next person with
a question instead, good luck.