|< 1 2 >| | 11 Einträge, 2 Seiten |
1
2
3
4
5
6
foreach (@datei) {
my @zeile = split(/, /, $_);
if ($zeile[1] ne $alt){
&tuwas;
$alt = $zeile[1];
}
if ($zeile[1] ne $alt)
QuoteIch benutze "use strict;" in meinem Skript
next unless @zeile;
next unless @zeile;
next unless $zeile[1];
if ($zeile[1] ne $alt){
if(defined $zeile[1] && $zeile[1] ne $alt){
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
C:\>perl
@a = (0, undef, 2);
print "anzahl: ", scalar(@q), "\n";
if (defined $a[1]) {
print "ja\n";
}
use Data::Dumper;
print Dumper \@a;
^Z
anzahl: 0
$VAR1 = [
0,
undef,
2
];
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
C:\>perl
@a = (0, undef, 2);
print "anzahl: ", scalar(@q), "\n";
if (exists $a[1]) {
print "ja\n";
}
use Data::Dumper;
print Dumper \@a;
^Z
anzahl: 0
ja
$VAR1 = [
0,
undef,
2
];
1
2
3
4
C:\Dokumente und Einstellungen\Renee>perl -Mwarnings -e "my @a = (undef,undef); if($a[0] eq $a[1]){print 'hallo'}"
Use of uninitialized value in string eq at -e line 1.
Use of uninitialized value in string eq at -e line 1.
hallo
|< 1 2 >| | 11 Einträge, 2 Seiten |