![]() |
|< 1 2 >| | ![]() |
18 Einträge, 2 Seiten |
1 2 3 4 5 6 7
#!/usr/bin/perl use warnings; use strict; while ( my $file = glob '*' ) { print $file, "\n"; }
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use warnings; use strict; opendir my $dir, '.' or die "Cannot open '.': $!\n"; while ( my $file = readdir $dir ) { next if $file eq '.' or $file eq '..'; print $file, "\n"; } closedir $dir;
1 2 3 4
my @array = qw(1 2 3 4); shift @array; shift @array; print $_,qq~\n~ for @array
QuoteDieser Satz hat mir sehr geholfen. Nun hab ich das verstanden.Bei sid burn ist es vollkommen richtig mit eq. Wenn $file '.' oder '..' ist, dann soll der nächste Eintrag kommen (next). Das was nach next steht wird dann nicht mehr ausgeführt.
1 2 3 4 5 6
my @array = (0,1,2,3,4,5,6,7,8,9); undef $array[5]; foreach (@array) { print if defined; }
next if $file =~ m/^..?$/
next if $file eq '.' or $file eq '..'
1 2 3 4 5 6
my @array = (0,1,2,3,4,5,6,7,8,9); undef $array[5]; foreach (@array) { print if defined; }
![]() |
|< 1 2 >| | ![]() |
18 Einträge, 2 Seiten |