110
|
|
|
|
110 |
Un program care deschide două fişiere şi copie un fişier īn celălalt este urmatorul (tst36.pl)
unless (open(INFILE, "in.txt")) {
die ("cannot open input file in.txt\n");
}
unless (open(OUTFILE, ">out.txt")) {
die ("cannot open output file out.txt\n");
}
$line = <INFILE>;
while ($line ne "") {
print OUTFILE ($line);
$line = <INFILE>;
}
Un program care deschide două fişiere, citeşte cāte o linie din fiecare fişier şi apoi le tipăreşte la <STDOUT> este urmatorul (tst38.pl):
unless (open (INFILE1, "merge1.txt")){
die ("Cannot open input file merge1.txt\n");
}
unless (open (INFILE2, "merge2.txt")) {
die ("Cannot open input file merge2.txt\n");
}
$line1 = <INFILE1>;
$line2 = <INFILE2>;
while ($line1 ne "" || $line2 ne "") {
if ($line1 ne "") {
print ($line1);
$line1 = <INFILE1>;
}
if ($line2 ne "") {
print ($line2);
$line2 = <INFILE2>;
}
}Un program care scrie la fişierul standard de ieşire <STDERR>
Dacă nu este specificat altfel fişierul standard de ieşire este consola text.
|
Secvenţă cod (tst42.pl) |
Comentarii |
| open(MYFILE,
"in.txt") ||
die ("Unable to open input file in.txt\n"); |
Deschide, dacă poate fişierul in.txt şi termină īn caz contrar |
| print STDERR ("File file1 opened successfully.\n"); | Scrie mesaj de reuşită la STDERR |
| $line
= <MYFILE>;
while ($line ne "") { chop ($line); print ("\U$line\E\n"); $line = <MYFILE>; } |
Citeşte cāte o linie din fişierul in.txt, iar apoi o scrie cu majuscule la consola text. |
© Cornel Mironel Niculae, 2003-2004
13-Nov-2009