split funktioniert nicht mit @_? (gelöst) (Allgemeines zu Perl)

[thread]15970[/thread]

split funktioniert nicht mit @_? [gelöst]

Leser: 22

Articles: hide open all | hide show old branches

+4 replies

Gast lawnmover

2011-02-17 16:15

Hi Leute,

ich arbeite mich gerade in Perl ein und leider macht die split funktion nicht das was sie soll. Zumindest nicht in einer Subroutine. Hier mal der Code villeicht bin ich einfach blind.

Code: (dl )

sub data{
my @parts;
        print @_;
        @parts = split( /:/, @_);
        print "\n" . 'size of parts: ' . $#parts . "\n";
}

das print @_ ist nur um sehen was die Sub bekommt. Hier mal die Ausgabe des Programms:

Code: (dl )

Vendor: Phoenix Technologies, LTD
        Version: 6.00 PG
        Release Date: 10/08/2008
        Address: 0xE0000
        Runtime Size: 128 kB
        ROM Size: 1024 kB
        Characteristics:
                ISA is supported
                PCI is supported
                PNP is supported
                APM is supported
                BIOS is upgradeable
                BIOS shadowing is allowed
                Boot from CD is supported
                Selectable boot is supported
                BIOS ROM is socketed
                EDD is supported
                5.25"/360 KB floppy services are supported (int 13h)
                5.25"/1.2 MB floppy services are supported (int 13h)
                3.5"/720 KB floppy services are supported (int 13h)
                3.5"/2.88 MB floppy services are supported (int 13h)
                Print screen service is supported (int 5h)
                8042 keyboard services are supported (int 9h)
                Serial services are supported (int 14h)
                Printer services are supported (int 17h)
                CGA/mono video services are supported (int 10h)
                ACPI is supported
                USB legacy is supported
                LS-120 boot is supported
                ATAPI Zip drive boot is supported
                BIOS boot specification is supported

Handle
size of parts: 0

wie man leider sieht ist die Größe des Arrays @parts gleich null. Daher gehe ich davon aus das die split funktion irwas nicht macht... Oder verwende ich die @_ Variable einfach falsch? (Zuweiungen wie my @parts; @parts = @_; brachten mich leider auch nicht weiter.

Noch ein paar Infos über das Programm.
Öffnen einer Datei, setzen des $/ auf 'Handle', while schleife. $_ an Sub, die teilt noch mal auf und gibt $_[3] dann weiter an data. (Kann auch wenn gewünscht den ganzen Code posten.)
Last edited: 2011-02-17 16:19:34 +0100 (CET)

havi

2011-02-17 16:25

User since
2003-08-04
2036 Artikel
BenutzerIn

Ja bitte, poste mal den ganzen Code...
Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/
+2 replies

payx

2011-02-17 16:27

User since
2006-05-04
564 Artikel
BenutzerIn

user image

Hallo lawnmover,

wird der Sub eine Liste oder ein einziger Wert übergeben?

Wenn zweiteres, ist das, was Du splitten willst, der erste Wert in @_, also $_[0]. Typischerweise übernimmt man den mit einem Konstrukt wie my $param = shift;

Ein Array als solches zu splitten ist ansonsten in der Tat nicht möglich - es ist ja schon eine Liste, die man allenfalls zu einem String joinen könnte, oder man kann alle einzelnen Werte in einem Array in einer Schleife jeweils splitten.

HTH
Grüße
payx

Gast lawnmover

2011-02-17 16:45

Danke für die schnelle Antwort.

2011-02-17T15:27:04 payx
wird der Sub eine Liste oder ein einziger Wert übergeben?

ein einzelner Wert wird übergeben

2011-02-17T15:27:04 payx
Wenn zweiteres, ist das, was Du splitten willst, der erste Wert in @_, also $_[0]. Typischerweise übernimmt man den mit einem Konstrukt wie my $param = shift;

Genau damit hab ich noch Probleme, sprich wie man am besten die übergebenen Werte aufnimmt und vorallem wann man besser my $param = shift oder durch @_ mittels foreach oder anderer Schleife läuft.

Hab jetzt einfach die split Funktion mit $_[0] geschrieben und es läuft.

Hier noch der gesamte Code:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my @handle;
# line number
my $c = 0;
my $line;
my $first = 0;
my $sep = $/;
my @parts;

        open DMI, 'dmi' or die $!;
        # dispose first four lines
        $. = 0;
        while ( $. <= 4 ){
                $line = <DMI>;
        }

        # Start actual parsing
        $/ = 'Handle';
        while( <DMI> ){
                $c++;
                unless ( $first ){
                        $first = 1;
                        next;
                }
                parse($_);

                exit;
        }

# parses the handle multi line values
sub parse{
my @parts;
my $line;
        @parts = split("\n", $_, 3);
        dmi($parts[0]);
        name($parts[1]);
        data($parts[2]);
}

sub data{
my @parts;
        #print @_;
        @parts = split( /:/, $_[0]);
        print "\n" . 'size of parts: ' . $#parts . "\n";       
}
sub dmi{
        return 0;
}

sub name{
        return 0;
}

Problem gelöst ;) Danke
Last edited: 2011-02-17 17:21:43 +0100 (CET)

View all threads created 2011-02-17 16:15.