Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 >| |  |
11 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(pfad_zu_pm);
use local_config;
use start;
my $exit_val = &start_main($name, $abbrev);
return $exit_val;
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
package local_config;
use strict;
use warnings;
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw($name $abbrev);
$name="blafasel";
$abbrev="bla";
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
package start;
use Exporter();
@ISA = qw(Exporter);
@EXPORT = qw(start_main);
use strict;
use warnings;
sub start_main {
$name = shift;
$abbrev = shift;
open(FILE, "+>blatext.txt") or die $!;
print FILE $name."\n";
print FILE $abbrev."\n";
close FILE;
}
1;
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
6
7
8
9
10
11
package ExporterTest;
use strict;
use warnings;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw($name $test);
our $name = "Name";
our $test = "Test";
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(./packages/);
use start;
use ExporterTest;
startsub($name,$test);
1
2
3
4
5
6
7
8
9
10
11
12
13
package start;
use strict;
use warnings;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(startsub);
sub startsub{
my ($m,$n) = @_;
print $m," ",$n;
}
use vars qw[@ISA @EXPORT];
|
|< 1 2 >| | |
11 Einträge, 2 Seiten |
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
