![]() |
![]() |
2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use warnings;
system "cls";
my $filnr;
my $sn;
open SERVICE, "datei.csv"
or die "Kann datei.csv nicht oeffnen ($!)";
while (<SERVICE>){
if (defined ($_)){
$nr=((split /;/,$_)[0]);
$sn=((split /;/,$_)[6]);
my %sn_service = {
"$sn" => "$nr",
# $fake_sn => $fake_filnr,
}
}
}
QuoteReference found where even-sized list expected at D:\perl\hash.pl line 27, <SERVICE> line 920.
$hash{key}
$hash{key} = 'value'
"Hi; blub";foo;bar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my %sn_service;
while ( defined(my $line = <DATA>) ) {
my ($nr, $sn) = (split /;/, $line)[0,6];
chomp ($nr, $sn);
$sn_service{"$sn"} = $nr;
}
print Dumper \%sn_service;
__DATA__
hallo;welt;wie;geht;es;dir;heute
hi;mir;scheint;es;heute;gut;zu
gehen;danke;der;nachfrage;was;macht;die
![]() |
![]() |
2 Einträge, 1 Seite |