Thread Zeilen lesen und ausgeben?: Zeilen lesen und ausgeben? (12 answers)
Opened by BlackExe at 2007-04-29 22:19

BlackExe
 2007-04-29 22:19
#9922 #9922
User since
2007-03-25
49 Artikel
BenutzerIn
[default_avatar]
Hallo Leute ... :-))

Wolle Euch mal fragen, wie man den Inhalt aus einer .txt oder .dat Datei, Zeile für Zeile in einem Datentyp einließt und ausgibt?

Also, ich bin da jetzt schon soweit das ich die erste Zeile in "Skalar"
speichern und ausgeben kann.

//Zum nachvollziehen mal der Code ...
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!C:\perl\bin\perl.exe
##!/usr/bin/perl -T
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI qw(param url);

use HTML::Template;
my $template = HTML::Template->new(filename => './template.tmpl');

print "Content-type: text/html\n\n";

my $datei = "info.dat";
open(FILE, "< $datei");
my $test = (<FILE>);

close FILE;

$template->param(
test => $test,);

print $template->output();


Hat jemand vieleicht ein Tipp oder ein Link für mich, würde mich sehr darüber freuen ... :-))




Gruß /BlackExe ... :-))\n\n

<!--EDIT|BlackExe|1177870875-->
Glaube denen, die die Wahrheit suchen, und zweifle an denen, die sie gefunden haben.

View full thread Zeilen lesen und ausgeben?: Zeilen lesen und ausgeben?