perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 19
 Click for quality!



12.02.2012 / 03:58
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragVariable aus einer Sub übergeben
 Seitenanfang
Hallo, ich hab mal eine Frage, und zwar wie kann ich aus meiner sub eine variable übergeben wenn ich use strict verwende?

#!/usr/bin/perl

use warnings;
use strict;

sub readconfig() {
open(CONFIG,"config.cfg");
@config=<CONFIG>;
close(CONFIG);
my $server = @config[0];
my $username = @config[1];
my $password = @config[2];
}

readconfig();

print ("$server $username $password");

ohne use strict und "my" funzt es, will ich aber so nich haben ;)

Datum: 15.05.2007-12:00
Beitragre: Variable aus einer Sub übergeben
 Seitenanfang
Hallo!

Das einfachst ist hier wohl, einfach das Array zurück zu geben:


sub readconfig {
  [..]
  return @config
}
my @config = readconfig;
print(join(' ', @config));

Willst du die Variablen unbedingt mit Namen haben, geht's am besten mit einem Hash:


sub readconfig {
  [..]
  ( server => $config[0],    # man beachte das
    username => $config[1],  # '$' vor dem 'config',
    password => $config[2] )
}
my %config = readconfig;
print "$config{server} $config{username} $config{password}";

Grüße, Skrilax

Datum: 15.05.2007-18:05
-






-
 -