כתיבה לקובץ
לאחר שפתחנו קובץ לכתיבה או להוספה, ניתן לכתוב לתוכו (אבל לא לקרוא ממנו).
כדי לכתוב לקובץ, אנו משתמשים בפונקציה print() באופן הבא:
print FileHanlde ("Write this line into the file\n");
המחרוזת שבתוך הסוגריים תכתב לקובץ שאותו מייצג המשתנה FileHanlde
דוגמא לתוכנית פשוטה הקוראת מקובץ אחד וכותבת לקובץ שני:
unless (open(ReadHandle,"Original.txt"))| /* | פתיחת הקובץ ובדיקת ההצלחה | */ |
{
exit;| /* | אם נכשלנו נצא נהתכנית | */ |
}
unless (
open(
WriteHandle,
"Copy.txt"))
{
exit;
}
$line = <ReadHandle>;while ($line ne " ")| /* | כל עוד לא קראנו שורה ריקה, המסמנת את סוף הקובץ | */ |
{
print WriteHandle ($line);| /* | הדפסת השורה שקראנו לתוך לקובץ החדש | */ |
}
להוספת תגובה, אנא התחברו לדרכונט.
