Opened by lawnmover at 2011-02-17 16:15
Danke für die schnelle Antwort.
ein einzelner Wert wird übergeben
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:
Problem gelöst ;) Danke
Last edited: 2011-02-17 17:21:43 +0100 (CET)
2011-02-17T15:27:04 payxwird der Sub eine Liste oder ein einziger Wert übergeben?
ein einzelner Wert wird übergeben
2011-02-17T15:27:04 payxWenn 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
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#!/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)