Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 1
 |
|< 1 2 >| |  |
15 Einträge, 2 Seiten |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
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
$pfad_read ="C:\\Perl-Php-Vergleich\\Datei1\\testdatei.txt";
$pfad_write ="C:\\Perl-Php-Vergleich\\Datei2\\perl_writedatei.txt";
print "pfad\n";
#============================== Reads ==========================================
@Lesedatei = (""); # Array for the Datasets
$i = 0;
open(EINGELESEN, "<$pfad_read") || die "Cant find file to read\n";
while(<EINGELESEN>) # Runs through the File
{
$Lesedatei[$i] = $_; # Saves the File in an Array
$i++;
}
close(EINGELESEN);
print "lesen\n";
#============================== Change==== =====================================
# this Array saves each line of the Lesedatei Array.
@Datenfelder = ("");
$Arraylaenge = @Lesedatei;
for ($i=0;$i<$Arraylaenge;$i++)
{
@Datenfelder = split(/,/,$Lesedatei[$i]); # splits a line of the big array
$Zeile = $i+1;
@Datenfelder[0] = "\"Zeile ".$Zeile."\""; # edit the first element of the "each line Array"
$Lesedatei[$i] = join(',',@Datenfelder); # stores the edit in the big Array
}
print "bearbeiten\n";
#============================== Write ==========================================
# opens file to write changes
open(SCHREIBEN, ">$pfad_write") || die "Cant find file to write\n";;
foreach $Dateizeile (@Lesedatei)
{
print SCHREIBEN "$Dateizeile"; # write in file
}
close(SCHREIBEN);
print "schreiben\n";
![[Homepage]](/battie/theme/default/homepage.gif)
Readonly 1.01/1.03 mit use Readonly \$x => 20; zu use Readonly $x => 20; oder Mail::Mailer test/testfile), und so kann ich im Falle einer Neuinstallation eine komplette Perl-Version inkl. Modulen bereitstellen, unter der mein Zeug getestet ist und laeuft.
|
|< 1 2 >| | |
15 Einträge, 2 Seiten |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
