מונה כניסות בפרל

הגבלות:
מחייב שרת שמאפשר להריץ תוכניות בפרל perl script / cgi script
את קובץ הנתונים יש להעלות לשרת ולהגדירו עם תוכנת ה FTP שלכם ל 666 זאת אומרת
שמסומנים RW- RW- זוהי פקודת יוניקס
את קובץ התוכנית יש להעלות לספריה שמוגדרת בשרת כספריה לפרל סקריפט
ולרוב היא נקראת cgi-bin ויש שרתים שניתן להריץ הכל ספריה
את הקובץ יש להגדיר עם תוכנת ה FTP ל 755 זאת אומרת שמסמנים RWX RW- RW- זוהי פקודת יוניקס

שם הקובץ counter.cgi


#!/usr/bin/perl

### השורה הראשונה משתנה בהתאם לשרת

### מיקום ושם קובץ הנתונים, יש להעלות בהתחלה קובף עם הספרה 1
$DataFile = "../docsdir/filename.txt";

### זה מונה
open (CNT, "+<$DataFile");
flock(CNT, 2);
$number = <CNT>;
seek(CNT, 0, 0);
$number++;
print CNT "$number";
close(CNT);

### הפקת דף הטמל ניתן לשנות
print "Content-type: text/html\n\n";
print <<HTML;
<html><head>
<title>my page</title>
</head><body>
$number
</body></html>
HTML

ניתן להפעיל את הסקריפט או בתוך מסגרת או להוסיף את תוכן דף ההטמל במקום המתאים.
שימו לב המשתנה number$ מציג את התוצאה במקום שהוא
ניתן לעשות הרבה פטנטים כמו לקרא עם javascript את תוכן הדף שנוצר ממסגרת בלתי נראת
ולהציג אותה בדף איך שרוצים או בצורה פשוטה כמופיע למטה

<iframe name="windowname" src="http://www.domain.com/cgi-bin/counter.cgi"
 width="100" height="50" marginwidth="0"
 marginheight="0" scrolling="yes" frameborder="no"
 framespacing="0" hspace="0" vspace="0">
</iframe>

במידה ניתקלתם בבעיה שלחו לנו את כתובת השרת (דף הרישום) ואנו נבדוק האם שרת זה תומך ופרטים נוספים

דף זה נצפה פעמים טען דף זה מחדש