MODÜLLER

package SEMINER::ornek;

# SEMINER/ornek.pm dosyası

use Exporter ();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
$VERSION = 0.1;
@ISA = qw(Exporter);
@EXPORT = qw( &sub1 &sub2 &sub3);
%EXPORT_TAGS = ( );
@EXPORT_OK = qw($degisken1);
use vars @EXPORT_OK;
sub sub1{
.
.
.
}
sub sub2{
.
.
.
}
sub sub3{
.
.
.
}
sub sub4{
.
.
.
}
1;
__END__

Ana program

use SEMINER::ornek;
sub1();

Önceki Sonraki