Opened by Us0R at 2005-02-18 13:54
User since
2005-02-17
6 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-02-17
6 Artikel
BenutzerIn
Hallo mein erster Post in diesem Forum :D
Und ich bin gestern von Python zu Perl umgestiegen weil Python noch wenig Leute programieren und wenn man eine Frage hat muss man ewig warten biss eine antwort kommt :)
Also zu mein Problem zuerst hier der Code:
Also bei Python war das so das er die Datei selbst anlegt wenn er die nicht findet wie kann ich machen das Perl das auch tut?\n\n
<!--EDIT|Us0R|1108727781-->
Und ich bin gestern von Python zu Perl umgestiegen weil Python noch wenig Leute programieren und wenn man eine Frage hat muss man ewig warten biss eine antwort kommt :)
Also zu mein Problem zuerst hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!usr/bin/perl
# Script writen by Us0R
###
open (file "test.txt") or die "Fehler!\n";
while (<file>)
{
$inhalt .= $_;
}
close (file);
###
open (file1 ">test1.txt") or die "Fehler!\n";
print WRITE $Inhalt;
close (file1);
###
Also bei Python war das so das er die Datei selbst anlegt wenn er die nicht findet wie kann ich machen das Perl das auch tut?\n\n
<!--EDIT|Us0R|1108727781-->