lokale Variable aus Sub ins Hauptprogramm! (page 2) (Allgemeines zu Perl)

[thread]5755[/thread]

lokale Variable aus Sub ins Hauptprogramm! (page 2)

skontox

2003-09-24 23:42

User since
2003-08-06
193 articles
BenutzerIn
[default_avatar]

Ishka gib mir doch auch mal bitte ein Beispiel!

Gruß skontox

Ishka

2003-09-25 00:13

User since
2003-08-04
771 articles
HausmeisterIn

[quote=Ishka,24.09.2003, 21:15]

Code: (dl )

blubb(blah(),'zwei');

sub blah
{
my %h=(eins=>1,zwei=>2,drei=>3);
return \%h;
}

sub blubb
{
print $_[0]->{$_[1]}
}

[/quote]
;)

sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}

skontox

2003-09-25 00:44

User since
2003-08-06
193 articles
BenutzerIn
[default_avatar]

Yupp! Vielen Danke Ishka!

Gruß skontox

root

2005-11-20 19:54

User since
2003-08-15
120 articles
BenutzerIn
[default_avatar]

Es soll ja keine behaupten ich würde nicht erst suchen :-)

Guten Abend alle zusammen!

Ich mag globale Variablen! Ich habe gerne globale Hashes wie %config und %user und %eingang. Nun arbeite ich natürlich mit strict und es ist auch alles gut! Nun warbeite ich aber auch gerne mit ausgelagerten Dateien und hole mir meine subs mit require "rootssubs.sub"; rein. Nun kann ich in allen subs aus meiner rootsprogramm.pl benutzen, aber in subs aus rootssubs.sub nicht.
Wie kann ich das umgehen?

Ich habe halt immer die benötigten Daten übergeben und wieder zurück gegeben. Ist aber nicht immer so schön.
Oder mir zB die %config in der rootssubs.sub erneut angelegt. Das finde ich aber ekelig!

Kann ich entweder die rootssubs.sub anders einbinden oder in der rootssub.sub an die globalen Variablen ran kommen oder vielleicht eine Referenz auf %wasauchimmer übergeben, so dass ich die daten darin global ändern kann ohne sie wieder zurück zu geben?

Danke für eure Antworten!

2005-11-20 20:05

User since
2003-08-04
12209 articles
Admin1

globale variablen sind nicht generell schlecht, aber man sollte sie vermeiden.
ich mache gerne sowas:

Code: (dl )

package MyConf;
use strict;
use warnings;
use vars qw($Conf @EXPORT_OK);
use base 'Exporter';
@EXPORT_OK = qw($Conf);

# erstelle $Conf
...

#script:
use MyConf '$Conf';
# mach was mit $Conf

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

root

2005-11-20 20:38

User since
2003-08-15
120 articles
BenutzerIn
[default_avatar]

Verstehe ich noch nicht ganz!

Code: (dl )

# Hauptprogramm
#!/usr/bin/perl -w
#package MyConf;
use strict;
use warnings;
use vars qw(%template @EXPORT_OK);
use base 'Exporter';
@EXPORT_OK = qw(%template);
require "rootssubs.sub";

my %template = ("site" => "home");

print "Content-type: text/html\n\n";

&test;
exit(0);

Code: (dl )

# rootssubs.sub
#use MyConf '%template';
sub test{
    print "Bin in test:".$template{'site'}."<br>\n";
}
1;

output: Bin in test:

Variable kommt nicht an, strict meckert aber auch nicht.
Die package Nummer hab ich auskommentiert, weil es damit gar nicht läuft. Kann du das bitte mal näher erläutern? Was machen die Zeilen so?

root

2005-11-20 20:45

User since
2003-08-15
120 articles
BenutzerIn
[default_avatar]

Jetzt habe ich mir sowas gebaut, das ist auch sehr nett, aber ich muss nach wie vor dem sub erstmal etwas geben. Schön ist aber dass ich an die Variable dann ran komme und etwas im Hauptprogramm ändern kann ohne es mit return zurück zu geben.

Code: (dl )

#!/usr/bin/perl -w
#package MyConf;
use strict;
use warnings;
#use vars qw(%template @EXPORT_OK);
#use base 'Exporter';
#@EXPORT_OK = qw(%template);
require "rootssubs.sub";

my %template = ("site" => "home");
my $template_ref = \%template;

print "Content-type: text/html\n\n";

&test($template_ref);
print "in main: ".$template{'site'}."<br>\n";
exit(0);

Code: (dl )

#use MyConf '%template';
sub test{
    my $in = shift;
    print "Bin in test:".$$in{'site'}."<br>\n";
    $$in{'site'} = "news";
}
1;

Könnte ich der ganzen unterdatei irgendwie die Referenz geben? :-)

J-jayz-Z

2005-11-22 16:43

User since
2005-04-13
625 articles
BenutzerIn

Mich wundert, das use vars erst bei pq angesprochen wurde ...
Mit use vars '$var' kannst du eine Variable komplett sichtbart machen. Also in allen Namensräumen.
kleines Beispiel:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;

use vars '$var';

package main;

my $var = "Welt";
print "Namensraum: main\n";
print "Hallo " . $var . "\n";

package foo;
print "Namesraum: foo\n";
print "Hallo " . $var . "\n";

$var = "du";

print "Hallo " . $var . "\n";

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

Crian

2005-11-22 17:05

User since
2003-08-04
5873 articles
ModeratorIn

use vars ist eigentlich inzwischen durch our ersetzt worden ...

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

J-jayz-Z

2005-11-22 17:11

User since
2005-04-13
625 articles
BenutzerIn

our gibt es aber dich erst seit *überleg* 5.8.* ?! Weißt du, auf was für einem System die scripte immer laufen müssen und was für ein Perl installiert ist? Also bei sowas geh ich lieber auf Nummer sicher ...

View all threads created 2003-09-24 21:07.