Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
+37 replies![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
+33 replies
+32 replies
+31 replies
+30 replies
+2 replies![[Homepage]](/battie/theme/default/homepage.gif)
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+27 replies
2012-11-19T12:51:01 Henry07Ist das so verständlich
+4 replies
1 2 3 4 5 6 7 8 9 10 11
... my $zeilennummer = $param_zeilennummer || 0; my $ist_ok = $param_ist_ok || 0; my $skip; $skip = <$input> for (0..$zeilennummer); if ($ist_ok) { mach_was($skip); } my $zeile = <$input>; print ...HTML... <a href=...?zeilennummer=$zeilennummer+1&ist_ok=1>...
+2 replies
+22 replies
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
open (OKR,"<$ok_reingang");
@OK =<OKR>;
close (OKR);
$entry ="";
$record =0;
$zeile = 1;
&parse;
# $entry aus POST von parse
# $zeile aus POST von parse
foreach $rec (@OK){ # Datei abarbeiten ca. 30 Zeilen
$record=$record+1;
if ($record >= $zeile){
chomp($rec);
($f1,$f2,$f3,$f4)=split(/;/,$rec);
foreach $row ($rowstart..$rowend){
$val = $Sheet->Cells($row,$colbest)->{'Value'};
# lese Wert aus Excel
chomp($val);
($g1,$g2,$g3,$g4)=split(/;/,$val);
if ($f1 eq $g1){
# lese komplette Excel-Zeile
print "$rec<br>$excelzeile<br>\n";
if (($entry eq "NEIN") || ($entry eq ""))
print "<form action='http://localhost/cgi-bin/belege2excel.pl' method='POST'><br>\n";
print "<input type="hidden' size='10' maxlength='10' name='zeile' value='$record'><br>\n";
print "<input type='submit' name='entry' value='JA'> <input type='submit' name='entry' value='NEIN'><br>\n";
}else{
# schreibe Daten in Excelfile
}
}
}
}
}
+15 replies
+14 replies
+13 replies
+12 replies
+11 replies
+10 replies
+6 replies
QuoteMeinst du mit check auf open '..|| die "kann file $file nicht lesen !!"'
Quote>* Filehandle nicht global
Warum, nur so kann ich doch aus einer Sub zugreifen, oder ?
Quote>Eine parse funktion ohne Parameter ist vorsätzliche Gegnerverwirrung
Der Vortei ist wohl, dass man sofort die übergebenen variablen sieht ?
Quote>Man schreibts auch ohne &
Oha, das würde ich dann vielleicht mit einem Label verwechseln. Was
ist der Vorteil es ohne & zu schreiben ?
+4 replies
2012-11-20T09:09:30 MuffiDu kannst es garnicht mit einem Label verwechseln, da du keine Labels benutzen sollst ;) In meiner ganzen Zeit als Perlprogrammierer gab es bis jetzt einen einzigen Fall wo ich mich für ein Label entschieden hab.
1
2
3
4
5
6
7
8
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
Tags:
VAR: for my $var (@vars) {
for my $othervar (@othervars) {
if(somethingwith($var, $othervar)) {
print join("\t", ($var, $othervar)) . "\n";
last VAR;
}
}
}
+3 replies
1 2 3 4 5
for my $var (@vars) { if (my $found = something_with_any($var, \@othervar)) { print join("\t", ($var, $found))."\n"; } }
+2 replies
1
2
3
4
5
6
7
8
9
10
11
for my $var (@vars) {
my $endloop = 0;
for my $othervar (@othervars) {
if(..) {
print "blubb\n";
$endloop = 1;
last;
}
last if($endloop);
}
}
Guest Henry>* open mit 3 Parametern
> check auf open
Meinst du mit check auf open '..|| die "kann file $file nicht lesen !!"'
oder gibt es sonst noch einen 3. Parameter, die man abrufen muss ?
Guest Henry>* Filehandle nicht global
Warum, nur so kann ich doch aus einer Sub zugreifen, oder ?
>Eine parse funktion ohne Parameter ist vorsätzliche Gegnerverwirrung
Der Vortei ist wohl, dass man sofort die übergebenen variablen sieht ?
>Man schreibts auch ohne &
Oha, das würde ich dann vielleicht mit einem Label verwechseln. Was
ist der Vorteil es ohne & zu schreiben ?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
my @parsed_data; { open(my $fh, '<', $file) or die "Can't open $file ($!)\n"; @parsed_data=parse($fh, fast => 1, lazy => 0); close($fh); } sub parse { my $handle=shift(@_); my %options=@_; my @data; if($options{fast}) { # ... } # parsen der Daten aus dem Filehandle $handle return @data; }
+2 replies
Guest HenryTrotzdem habe ich ein paar ernstgemeinte Fragen dazu:
>* open mit 3 Parametern
> check auf open
Meinst du mit check auf open '..|| die "kann file $file nicht lesen !!"'
oder gibt es sonst noch einen 3. Parameter, die man abrufen muss ?
Quote>Man schreibts auch ohne &
Oha, das würde ich dann vielleicht mit einem Label verwechseln. Was
ist der Vorteil es ohne & zu schreiben ?
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+6 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+5 replies
+2 replies
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
Moo an. kleines Modul, grosser Nutzen. Und wenn mehr willst, ist da noch Moose.
Tutorien in der Wiki, mein zeug:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
+2 replies
![[Powered by Battie]](/battie/img/powered.png)
