Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 3 >| |  |
29 Einträge, 3 Seiten |
Quotea=3,b=4,c=17,d=19
a=5,b=7,c=62,d=33
a=16,b=9,c=77,d=49
a=98,b=10,c=234,d=213
a=130,b=27,c=567,d=333
a=234,b=56,c=1024,d=789
a=444,b=231,c=1079,d=987
Quotea=16,b=9,c=77,d=49
a=98,b=10,c=234,d=213
a=130,b=27,c=567,d=33
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
QuoteDas klingt so nach Hausaufgabe ...
QuoteWas hast du schon probiert? Wo ist der Code?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use strict;
use warnings;
my $x=0;
my @shift;
my @liste = `cat list.txt`; # wir sind auf linux
printf "Bedingungen: @ARGV \n";
while (@liste){
@shift=shift(@liste);
print "Aktuelle Zeile ist: ", @shift;
}
my ($key, $min, $max) = @ARGV;
m/$key=(\d+)/ && $1 >= $min && $1 <= $max
QuoteCode: (dl )my @liste = `cat list.txt`; # wir sind auf linux
![[Homepage]](/battie/theme/default/homepage.gif)
1
2
3
4
5
[...]
while (@liste){
@shift=shift(@liste);
print "Aktuelle Zeile ist: ", @shift;
}[...]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings;
my ($key, $min, $max) = @ARGV;
open LISTE, "list.txt";
my @liste=<LISTE>;
while(@liste){
$_=shift(@liste);
if (m/$key=(\d+)/ && $1 >= $min && $1 <= $max){
print;
}
}
close(LISTE);
1
2
3
4
5
6
7
8
open LISTE, "list.txt";
while(<LISTE>){
$_=shift(@_);
if (m/$key=(\d+)/ && $1 >= $min && $1 <= $max){
print;
}
}
$_=shift(@_);
open LISTE, "list.txt" or die "Fehler beim Öffnen der Eingabedatei: $!\n";
1
2
3
4
5
my @lines;
{
open my $in, '<', 'list.txt' or die "Fehler beim Öffnen der Eingabedatei: $!\n";
@lines = <$in>;
}
|
|< 1 2 3 >| | |
29 Einträge, 3 Seiten |
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
