Programm 1 (prozedural)

3.2.1.2 PHP-Programm und Vergleich mit anderen Programmiersprachen

Ein PHP-Programm ist im Allg. in eine HTML-Datei eingebettet:

Datei `p01.php`
<!doctype html> <!-- Programm "p01.php" --> <html> <head> <meta charset="iso-8859-1" /> <meta name="author" content="Beringer Alfred" /> <meta name="description" content="Programmieren mit PHP 5" /> <title>Programm 1 (prozedural)</title> </head> <body> <pre>
<?php // relativer Pfad zum privaten Projektverzeichnis const PFAD = "../../"; // Satzlänge der Datei VORMERK const SATZLAENGE = 80; // Der Einfachheit halber wird der Dateiname mit dem Pfad fix vorgegeben: $EINGABEDATEI = PFAD . "Dateien/vormerk.dat"; /* --- Datei-Definitionen ------------------------------- / // $VORMERK .... file-resource // LISTE .... Standardausgabe / --- Datenfeld-Definitionen --------------------------- / // $eber .... Zeichenkette // $aber .... Zeichenkette // **************************************************************************** $VORMERK = fopen($EINGABEDATEI, "rb") or die("<p>Die Datei <b>$EINGABEDATEI</b> existiert nicht.</p>"); /* --- Struktogramm ------------------------------------- / $eber = fread($VORMERK, SATZLAENGE); while (!feof($VORMERK)) { $aber = $eber; printf("%s<br />", $aber); $eber = fread($VORMERK, SATZLAENGE); } / ------------------------------------------------------ / fclose($VORMERK); // **************************************************************************** ?>
</pre> <p> </p><hr /><p> </p> <footer> <address id="ende"> Copyright © 2009<br /> Letzte Aktualisierung: 2013-10-30<br /> Beringer Alfred<br /> Wögerer Wolfgang </address> </footer> </body> </html>

IBM/370-ASSEMBLER

IBM/370-ASSEMBLER-Programm `p01.ass`
P01 CSECT PRINT NOGEN ANFANG SAVE (14,12) BALR 12,0 USING ,12 LA 2,SAVEAREA ST 2,8(0,13) ST 13,SAVEAREA+4 LR 13,2 *********************************************************************** * OPEN (VORMERK,(INPUT),LISTE,(OUTPUT)) * * --- Struktogramm ----------------------------------------- GET VORMERK,EBER DOWHILE EQU * * EOF --< weiter bei EOF-Adresse ENDDO MVC ABER,EBER PUT LISTE,ABER GET VORMERK,EBER B DOWHILE * EOF-Adresse ------------------------------- ENDDO EQU * * ---------------------------------------------------------- * CLOSE (VORMERK,,LISTE) * *********************************************************************** L 13,SAVEAREA+4 RETURN (14,12),,RC=0 * SAVEAREA DC 18F'0' * * --- Datei-Definitionen ----------------------------------- VORMERK DCB DDNAME=VORMERK, + DSORG=PS, + RECFM=F, + LRECL=80, + MACRF=(GM), + EODAD=ENDDO LISTE DCB DDNAME=LISTE, + DSORG=PS, + RECFM=F, + LRECL=80, + MACRF=(PM) * * --- Datenfeld-Definitionen ------------------------------- EBER DS CL80 ABER DS CL80 END ANFANG

IBM/370-ASSEMBLER-Programm p01.ass

P01 CSECT PRINT NOGEN ANFANG SAVE (14,12) BALR 12,0 USING *,12 LA 2,SAVEAREA ST 2,8(0,13) ST 13,SAVEAREA+4 LR 13,2 * *********************************************************************** * OPEN (VORMERK,(INPUT),LISTE,(OUTPUT)) * * --- Struktogramm ----------------------------------------- GET VORMERK,EBER DOWHILE EQU * * EOF --< weiter bei EOF-Adresse ENDDO MVC ABER,EBER PUT LISTE,ABER GET VORMERK,EBER B DOWHILE * EOF-Adresse ------------------------------- ENDDO EQU * * ---------------------------------------------------------- * CLOSE (VORMERK,,LISTE) * *********************************************************************** L 13,SAVEAREA+4 RETURN (14,12),,RC=0 * SAVEAREA DC 18F'0' * * --- Datei-Definitionen ----------------------------------- VORMERK DCB DDNAME=VORMERK, + DSORG=PS, + RECFM=F, + LRECL=80, + MACRF=(GM), + EODAD=ENDDO LISTE DCB DDNAME=LISTE, + DSORG=PS, + RECFM=F, + LRECL=80, + MACRF=(PM) * * --- Datenfeld-Definitionen ------------------------------- EBER DS CL80 ABER DS CL80 END ANFANG

COBOL

COBOL-Programm `p01.cbl`
IDENTIFICATION DIVISION. PROGRAM-ID. P01. ENVIRONMENT DIVISION. * * --- Datei-Definitionen ----------------------------- INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT VORMERK ASSIGN TO VORMERK. SELECT LISTE ASSIGN TO LISTE. * * --- Datenfeld-Definitionen ------------------------- DATA DIVISION. FILE SECTION. FD VORMERK. 01 EBER PIC X(80). FD LISTE. 01 ABER PIC X(80). * WORKING-STORAGE SECTION. 77 EOF PIC 9 VALUE 0. * ---------------------------------------------------- * PROCEDURE DIVISION. ANFANG. * * *************************************************************** * OPEN INPUT VORMERK OUTPUT LISTE. * * --- Struktogramm ----------------------------------- READ VORMERK AT END MOVE 1 TO EOF. PERFORM WITH TEST BEFORE UNTIL EOF = 1 MOVE EBER TO ABER WRITE ABER READ VORMERK AT END MOVE 1 TO EOF END-READ END-PERFORM. * ---------------------------------------------------- * CLOSE VORMERK LISTE. * * *************************************************************** STOP RUN.

COBOL-Programm p01.cbl

IDENTIFICATION DIVISION. PROGRAM-ID. P01. ENVIRONMENT DIVISION. * * --- Datei-Definitionen ----------------------------- INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT VORMERK ASSIGN TO VORMERK. SELECT LISTE ASSIGN TO LISTE. * * --- Datenfeld-Definitionen ------------------------- DATA DIVISION. FILE SECTION. FD VORMERK. 01 EBER PIC X(80). FD LISTE. 01 ABER PIC X(80). * WORKING-STORAGE SECTION. 77 EOF PIC 9 VALUE 0. * ---------------------------------------------------- * PROCEDURE DIVISION. ANFANG. * * *************************************************************** * OPEN INPUT VORMERK OUTPUT LISTE. * * --- Struktogramm ----------------------------------- READ VORMERK AT END MOVE 1 TO EOF. PERFORM WITH TEST BEFORE UNTIL EOF = 1 MOVE EBER TO ABER WRITE ABER READ VORMERK AT END MOVE 1 TO EOF END-READ END-PERFORM. * ---------------------------------------------------- * CLOSE VORMERK LISTE. * * *************************************************************** STOP RUN.

PL/I

PL/I-Programm `p01.pli`
P01: PROCEDURE OPTIONS(MAIN); /* --- Datei-Deklarationen ----------------------------- / DCL VORMERK FILE RECORD INPUT ENV(F RECSIZE(80)); DCL LISTE FILE RECORD OUTPUT ENV(F RECSIZE(80)); / --- Datenfeld-Deklarationen ------------------------- / DCL EBER CHAR(80); DCL ABER CHAR(80); DCL EOF BIT(1) INIT('0'B); / EOF-Bedingung ------------------------ / ON ENDFILE(VORMERK) EOF = '1'B; / **************************************************************** / OPEN FILE(VORMERK), FILE(LISTE); / --- Struktogramm ------------------------------------ / READ FILE(VORMERK) INTO(EBER); DO WHILE (^EOF); ABER = EBER; WRITE FILE(LISTE) FROM(ABER); READ FILE(VORMERK) INTO(EBER); END; / ----------------------------------------------------- / CLOSE FILE(VORMERK), FILE(LISTE); / **************************************************************** */ END P01;

PL/I-Programm p01.pli

P01: PROCEDURE OPTIONS(MAIN); /* --- Datei-Deklarationen ----------------------------- */ DCL VORMERK FILE RECORD INPUT ENV(F RECSIZE(80)); DCL LISTE FILE RECORD OUTPUT ENV(F RECSIZE(80)); /* --- Datenfeld-Deklarationen ------------------------- */ DCL EBER CHAR(80); DCL ABER CHAR(80); DCL EOF BIT(1) INIT('0'B); /* EOF-Bedingung ------------------------ */ ON ENDFILE(VORMERK) EOF = '1'B; /* **************************************************************** */ OPEN FILE(VORMERK), FILE(LISTE); /* --- Struktogramm ------------------------------------ */ READ FILE(VORMERK) INTO(EBER); DO WHILE (^EOF); ABER = EBER; WRITE FILE(LISTE) FROM(ABER); READ FILE(VORMERK) INTO(EBER); END; /* ----------------------------------------------------- */ CLOSE FILE(VORMERK), FILE(LISTE); /* **************************************************************** */ END P01;

C/C++

C/C++-Programm `p01.cpp`
#include <stdio.h> #include <string.h> // Der Einfachheit halber wird der Dateiname fix vorgegeben #define EINGABEDATEI "vormerkP01.datC" void main() { /* --- Datei-Definitionen --------------------------- / FILE VORMERK; // LISTE = Standardausgabe stdout /* --- Datenfeld-Definitionen ----------------------- / char eber[80+1], aber[80+1]; / ********************************************************************** / VORMERK = fopen(EINGABEDATEI, "rb"); / --- Struktogramm --------------------------------- / fread(eber, sizeof(eber), 1, VORMERK); while (!feof(VORMERK)) { strcpy(aber, eber); printf("%s\n", aber); fread(eber, sizeof(eber), 1, VORMERK); } / -------------------------------------------------- / fclose(VORMERK); / ********************************************************************** */ }

C/C++-Programm p01.cpp

#include <stdio.h> #include <string.h> // Der Einfachheit halber wird der Dateiname fix vorgegeben #define EINGABEDATEI "vormerkP01.datC" void main() { /* --- Datei-Definitionen --------------------------- */ FILE *VORMERK; // LISTE = Standardausgabe stdout /* --- Datenfeld-Definitionen ----------------------- */ char eber[80+1], aber[80+1]; /* ********************************************************************** */ VORMERK = fopen(EINGABEDATEI, "rb"); /* --- Struktogramm --------------------------------- */ fread(eber, sizeof(eber), 1, VORMERK); while (!feof(VORMERK)) { strcpy(aber, eber); printf("%s\n", aber); fread(eber, sizeof(eber), 1, VORMERK); } /* -------------------------------------------------- */ fclose(VORMERK); /* ********************************************************************** */ }

Weiter zu: Kapitel 3.2.2.2 - Programm 2 (prozedural); Kapitel 3.2.3.2 - Programm 3 (prozedural); Kapitel 4.2.1.2 - Programm 1 (objektorientiert); Kapitel 4.2.2.2 - Programm 2 (objektorientiert); Kapitel 4.2.3.2 - Programm 3 (objektorientiert); Kapitel 8.7.1 - Demo-Programm (Werte- und Referenztypen); Kapitel 9.1.4 - Demo-Programm (Parameterübergabe); Kapitel 14.2 - Beispiel mit Datenerfassung (Dateien, objektorientiert); Kapitel 15.1.1 - SQL-Skript; Kapitel 15.2 - Einführende Beispiele (Datenbanken, prozedural); Kapitel 15.3 - Beispiel mit Datenerfassung (Datenbanken, objektorientiert); Kapitel 16.1.2 - Projektpfad - Include-Datei "projektpfad.inc.php"
Zurück: zum Anfang dieses Kapitels; zum Inhaltsverzeichnis