includes: globale settings include - #57784 (Allgemeines zu Perl)

J-jayz-Z

2005-09-09 14:14

User since
2005-04-13
625 Artikel
BenutzerIn

Vielleicht nicht ganz das, was du wolltest, aber ein Anfang:

Code: (dl )

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

my %names = &getvariables();

print $names{'$variable1'} . "\n";

sub getvariables($) {
        my $datei = shift || "data.inc";
        open(DATEI, "<$datei") || die "Fehler beim öffnen von $datei: $!";
        my @inhalt = <DATEI>;
        close(DATEI);
        my %names;
        for(@inhalt) {
                my ($name, $value) = split(/\s*?\=\s*?/, $_);
                $names{$name} = substr($value, 1, length($value)-3);

        }
        return %names;
}

Ausgabe: xyz

EDIT: Codereste vergessen zu entfernen ^^\n\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