Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]470[/thread]

Variable wird falsch dargestellt: (war: verzweifung - bitte um Hilfe...) (Seite 2)



<< |< 1 2 >| >> 17 Einträge, 2 Seiten
kai123
 2005-03-29 18:09
#4704 #4704
User since
2005-03-29
7 Artikel
BenutzerIn
[default_avatar]
Wahsinn :-(

und was kostet der Spaß?
Taulmarill
 2005-03-29 18:14
#4705 #4705
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
kai123: bitte beschreibe dein problem etwas genauer. mit aussagen wie "die nächste nummer sollte XX sein" kann ich nichts anfangen.

nach meinem verständniss des scripts (programm möcht ich das nicht nennen) versucht das script eine datei mti dem namen rechnungsnr.txt anzulegen. ist die da? was steht drin?
solange die datei nicht existiert wird das script warscheinlich keine nummer generieren.

btw. falls das noch nicht klar geworder sein sollte, für so ein script auch noch geld zu verlangen ist unterste kanone. so was schreib ich 1 bis 2 Std. zusammen. und zwar so, dass es funktioniert.

nur so aus interesse, wie viel verdient man mit so kleinen scripten?
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
kai123
 2005-03-29 18:29
#4706 #4706
User since
2005-03-29
7 Artikel
BenutzerIn
[default_avatar]
ok ich erläutere das Problem:

rechnungs.txt ist vorhanden. Da wird wird immer die nächste Zahl reingeschrieben, welche dann beim nächsten mal ( in einer anderen oder der gleichen Rechnung; spielt keine rolle er muss nur hochzählen können.) aufgerufen wird und übertragen wird. Immoment ist es so, dass ich in das rechnungsformular gehe, dann erscheint in dem Feld nichts. Gehe zurück und wieder rein, dann kommt ne 1 , wieder zurück wieder drauf ne 2 usw... so soll es ja auch sein. gehe ich jetzt aus dem adminsystem und schaue was in der txt steht, dann stimmt die zahl ABER gehe ich wieder ins admin tool will ne neue rechnung erstellen , steht wieder erst gar nichts und dann aber eine 1 !! obwohl z.b. die 5 erscheinen sollte...\n\n

<!--EDIT|kai123|1112106656-->
Taulmarill
 2005-03-29 19:04
#4707 #4707
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
seltsam...
das von dir verlinkte script sollte eigendlich keine dateien löschen/zurücksetzen. kann's sein dass das an nem anderen script liegt?
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
Strat
 2005-03-30 11:28
#4708 #4708
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
wie sieht denn die form aus, von der aus das script aufgerufen wird?
ich versuche gerade, das zustandekommen der zeile
Code: (dl )
@products = split ("&&", $eingabe{'products'});

zu verstehen...

Nebenbei: wenn du ein klein wenig Zeit investieren wuerdest, Perl zu lernen, dann bist du, wenn du schon ein klein wenig Programmiererfahrung hast, i.d.R. nach so 32-40 Stunden auf einem hoeheren Niveau als derjenige, der das Script geschrieben hat... auf meiner HP steht unter Vortraege meine "Einfuehrung in Perl", die ich auch fuer Schulungen verwende\n\n

<!--EDIT|Strat|1112168079-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
renee
 2005-03-30 12:04
#4709 #4709
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich habe mal etwas angefangen, das Skript neu zu schreiben... Das kann Dir ja als Anhaltspunkt dienen... Du musst noch die restlichen Variablen im Template als TMPL_VARiablen umschreiben...

Skript:
Code: (dl )
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!C:\apachefriends\xampp\perl\bin\perl.exe

use strict;
use warnings;
use CGI;
use lib qw(/homes/frasbio11/reneeb/cpan/);
use HTML::Template;

my $cgi       = CGI->new();
my %eingabe   = $cgi->Vars();
my $tmpl_file = 'rechnung_template.tmpl';
my $nr_file   = 'rechnungsnr.txt';

my $template = HTML::Template->new(filename => $tmpl_file);

print $cgi->header();

my ($heute,$rech_string) = get_date();

#Rechnungsnr. aus Datei holen und Rechnungsnummer hochsetzen
open(INFO, "<$nr_file") or die $!;
my $rechnungsnr = <INFO>;
close (INFO);

my $rechnung = $rech_string . $rechnungsnr;
$rechnungsnr++;

open(WRITE, ">$nr_file") or die $!;
print WRITE $rechnungsnr;
close (WRITE);


my @array;
foreach $product (split("##",$eingabe{products})){ # Ich würde andere Trenner benutzen...
  ($bez, undef, $preis, $menge, $wert)= split ("; ", $product);
  $menge =~ s/(.) Stk./\1/;
  $wert =~ s/ (.*,.*) EUR/\1/;
  $einheit = "Fl/Stk";
  #warenwert für mwst feststellen: perl braucht einen . als fließkommaoperator, kein komma
  $wert =~ s/,/\./;
  $warenwert += $wert;
  $wert =~ s/\./\,/;
  push(@array,{BEZEICHNUNG => $bez, WERT => $wert, MENGE => $menge, PREIS => $preis, EINHEIT => $einheit});
}

$template->param(SEX         => $eingabe{sex},
                 NAME        => $eingabe{name},
                 ADDRESS     => $eingabe{address},
                 ZIP         => $eingabe{zip},
                 TOWN        => $eingabe{town},
                 RECHNUNGSNR => $rechnung,
                 DATUM       => $heute,
                 POSTEN    => \@array,);

print $template->output();


##
# Subroutines
##

sub get_date{
 my $tm = shift || time;
 my @lt = localtime($tm);
 my $datum = sprintf "%02d.%02d.%04d", $lt[3], $lt[4] + 1, $lt[5] + 1900;
 my $rech  = (sprintf "%02d", $lt[4]+1).(substr($lt[5],1));
 return ($datum,$rech);
}# end of subroutine


Template:
Code: (dl )
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
<html>
<head>
  <style type="text/css">
  .headfont{font-size: 2; font-familiy: Arial; font-weight: bold}
  </style>
</head>
<body>
<table border="0" width="650" cellspacing="0" cellpadding="0">
  <tr>
    <td width="650" height="200">
      <p align="center">
    </td>
  </tr>
  <tr>
    <td width="650" height="21" class="headfont"><!-- TMPL_VAR NAME=SEX -->&nbsp;</td>
  </tr>
  <tr>
    <td width="650" height="21" class="headfont"><!-- TMPL_VAR NAME=NAME -->&nbsp;</td>
  </tr>
  <tr>
    <td width="650" height="21" class="headfont"><!-- TMPL_VAR NAME=ADDRESS -->&nbsp;</td>
  </tr>
  <tr>
    <td width="650" height="21" class="headfont"><!-- TMPL_VAR NAME=ZIP --> <!-- TMPL_VAR NAME=TOWN --></td>
  </tr>
  <tr>
    <td width="650" height="21" class="headfont"><!-- TMPL_VAR NAME=STATE -->&nbsp;</td>
  </tr>
 <tr>
    <td width="650" height="119">
      <table border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="350"><i><font face="Arial" size="2">Lieferanschrift:</font></i></td>
          <td rowspan="6" valign="top" height="118">
            <table border="1" cellpadding="1" cellspacing="0" width="300" style="border-collapse: collapse; table-layout: fixed" bordercolor="#FFFFFF">
              <tr>
                <td width="300" colspan="3"><font face="Arial" size="2"><b>RECHNUNG</b></font></td>
              </tr>
              <tr>
                <td width="33%"><font face="Arial" size="1"><b>Rechnungsnr.</b></font></td>
                <td width="33%"><font face="Arial" size="1"><b>Datum</b></font></td>
                <td width="33%">
                  <p align="left"><font face="Arial" size="1"><b>Zahlungsbedingungen</b></font></p>
                </td>
              </tr>
              <tr>
                <td width="33%" bgcolor="#C0C0C0"><font size="2" face="Arial"><!-- TMPL_VAR NAME=RECHNUNGSNR -->&nbsp;</font></td>
                <td width="33%" bgcolor="#C0C0C0"><font face="Arial" size="2"><!-- TMPL_VAR NAME=DATUM -->&nbsp;</font></td>
                <td width="33%" bgcolor="#C0C0C0"><p align="right"><font face="Arial" size="2">$eingabe{'payment'}&nbsp;</font></p>
                </td>
              </tr>
              <tr>
                <td width="33%"><font face="Arial" size="1"><b><br>
                  Versandart</b></font></td>
                <td width="33%"><font face="Arial" size="1"><b><br>
                  Seite</b></font></td>
                <td width="33%">
                  <p align="left"><font face="Arial" size="1"><b><br>
                  Lieferdatum</b></font></p>
                </td>
              </tr>
              <tr>
                <td width="33%" bgcolor="#C0C0C0"><font face="Arial" size="2">GLS-Versand</font></td>
                <td width="33%" bgcolor="#C0C0C0">
                  <p align="center"><font face="Arial" size="2">1</font></p>
                </td>
                <td width="33%" bgcolor="#C0C0C0"><font face="Arial" size="2">$eingabe{'lieferdatum'}&nbsp;</font></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="350"><font face="Arial" size="2">$eingabe{'sex1'}&nbsp;</font></td>
        </tr>
        <tr>
          <td width="350">
            <p align="left"><font face="Arial" size="2">$eingabe{'name1'}&nbsp;</font></td>
        </tr>
        <tr>
          <td width="350"><font face="Arial" size="2">$eingabe{'address1'}&nbsp;</font></td>
        </tr>
        <tr>
          <td width="350"><font face="Arial" size="2">$eingabe{'zip1'} $eingabe{'town1'}&nbsp;</font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>

  &nbsp;
<table border="1" width="650" cellspacing="0" bordercolor="#C0C0C0" cellpadding="2">
  <tr>
    <td width="300" bordercolor="#C0C0C0" height="30" bgcolor="#C0C0C0" ><font face="Arial" size="1"><b>Artikelbezeichnung</b></font></td>
    <td width="50" align="center" bordercolor="#C0C0C0" height="30" bgcolor="#C0C0C0" >
      <p align="center"><font face="Arial" size="1"><b>Menge</b></font></p>
    </td>
    <td width="50" bordercolor="#C0C0C0" height="30" bgcolor="#C0C0C0" >
      <p align="center"><font face="Arial" size="1"><b>Einheit</b></font></td>
    <td width="94" bordercolor="#C0C0C0" height="30" bgcolor="#C0C0C0" >
      <p align="center">
      <font face="Arial" size="1"><b>Preis (EUR)</b></font></p>
    </td>
    <td width="100" bordercolor="#C0C0C0" height="30" bgcolor="#C0C0C0" >
      <p align="center">
      <font face="Arial" size="1"><b>Warenwert (EUR)</b></font></p>
    </td>
  </tr>
  <!-- TMPL_LOOP NAME=POSTEN -->
  <tr>
    <td width="300" bordercolor="#C0C0C0" valign="top" ><font size="1" face="Arial"><!-- TMPL_VAR NAME=BEZEICHNUNG -->&nbsp;</font></td>
    <td width="50" bordercolor="#C0C0C0" valign="top" ><font face="Arial" size="1"><!-- TMPL_VAR NAME=MENGE -->&nbsp;</font></td>
    <td width="50" bordercolor="#C0C0C0" valign="top" ><font face="Arial" size="1"><!-- TMPL_VAR NAME=EINHEIT -->&nbsp;</font></td>
    <td width="94" bordercolor="#C0C0C0" valign="top" ><font size="1" face="Arial"><!-- TMPL_VAR NAME=PREIS -->&nbsp;</font></td>
    <td width="100" bordercolor="#C0C0C0" valign="top" ><font size="1" face="Arial"><!-- TMPL_VAR NAME=WERT -->&nbsp;</font></td>
  </tr>
  <!-- /TMPL_LOOP -->
  </table>

  &nbsp;

  <table border="1" width="652" cellspacing="0" bordercolor="#C0C0C0" cellpadding="2">
  <tr>
    <td width="294" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">Versandkostenpauschale</font></td>
    <td width="105" align="center" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">&nbsp;</font></td>
    <td width="197" bordercolor="#C0C0C0" bgcolor="#FFFFFF" >
      <p align="right"><font size="1" face="Arial"><!-- TMPL_VAR NAME=VERSAND -->&nbsp;</font></p>
    </td>
  </tr>
  <tr>
    <td width="294" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">Nachnahmekosten</font></td>
    <td width="105" align="center" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">&nbsp;</font></td>
    <td width="197" bordercolor="#C0C0C0" bgcolor="#FFFFFF" >
      <p align="right"><font size="1" face="Arial"><!-- TMPL_VAR NAME=NACHNAHMEKOSTEN -->&nbsp;</font></p>
    </td>
  </tr>
  <tr>
    <td width="294" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">Geschenkservice</font></td>
    <td width="105" align="center" bordercolor="#C0C0C0" bgcolor="#FFFFFF" ><font size="1" face="Arial">kostenlos</font></td>
    <td width="197" bordercolor="#C0C0C0" bgcolor="#FFFFFF" >
      <p align="right"><font face="Arial" size="1">kostenlos</font></td>
  </tr>
</table>
&nbsp;
<table border="0" width="650" cellspacing="0" bgcolor="#C0C0C0" cellpadding="2">
  <tr>
    <td width="550" valign="top">
      <p align="right"><font size="1" face="Arial"><b>enthaltene Mehrwertsteuer (16%)</b></font></td>
    <td width="100">
      <p align="right"><b><font face="Arial" size="1"><!-- TMPL_VAR NAME=MWST -->&nbsp;EUR</font></b></td>
  </tr>
  <tr>
    <td width="550">
      <p align="right">&nbsp;<font size="1" face="Arial"><b>Endbetrag</b></font></td>
      <td width="100">
      <p align="right"><b><font size="1"><font face="Arial"><!-- TMPL_VAR NAME=VALUE -->&nbsp;EUR</font></b>
      </font>
      </td>
  </tr>
</table>
</body>
</html>


Da kann/sollte man auch mehr mit CSS arbeiten!

Wie gesagt, ist noch kein fertiges Skript, sondern ein Anfang!

@Strat: kann ja sein, dass die Produkte per Hidden-Field als ein String übergeben werden...\n\n

<!--EDIT|renee|1112170037-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
kai123
 2005-04-12 01:16
#4710 #4710
User since
2005-03-29
7 Artikel
BenutzerIn
[default_avatar]
Ich biete jetzt ein kleines Trinkgeld für die Berichtigung dieses Scriptes...

Bitte an renchen2000 [at] web.[de] mailen... Vielen Dank
<< |< 1 2 >| >> 17 Einträge, 2 Seiten



View all threads created 2005-03-29 17:07.