שלום,

אני מעוניין לבצע נעילה של קובץ במערכת קבצים מבוזרת (AFS), ניסיתי להשתמש ב-flock וכנראה שהיא לא מתאימה למערכת הקבצים הנ"ל. כנראה מהסיבה שהפעולה היא לוקאלית עבור מערכת ההפעלה ממנה מופעלת הפונק'. נאמר לי ששימוש ב-fcntl יכול לעזור במקרה זה.

א. האם flock באמת לא מתאימה? האם fcntl יכולה להוות פתרון?
ב. איך אני משתמש בפונק' fcntl ב-Perl (הדוגמאות שמצאתי היו ב-C) על-מנת לנעול/לשחרר קובץ?

תודה מראש.

אף פעם לא עבדתי על AFS, אז אני לא מדבר ספציפית על המערכת הזאת, אלא באופן כללי.
לפי המנואל, flock מממש את הפעולה בעזרת flock, fcntl או lockf, ככה ששימוש ידני ב-fcntl לא יפתור את הבעייה.
אבל לך תדע, תמיד כדאי לנסות. תבדוק ב-perlport למערכת ההפעלה הספציפית שלך (לא ציינת איזה מערכת), אולי יש שם הערה על זה, או דרך לפיתרון של הבעייה.

כשניסית להשתמש ב-flock, מה קרה בדיוק? החזיר 0 או שקיבלת fatal error?

בקשר לשאלה השנייה שלך -
קראת את החלק של perldoc שמדבר על fcntl? אם כן, מה לא הבנת שם?

מצורף החלק בחוברת של פרל שמדבר על fcntl.

קוד:

REMOVE THIS LINE

       fcntl FILEHANDLE,FUNCTION,SCALAR
               Implements the fcntl(2) function.  You'll probably have to say

                   use Fcntl;

               first to get the correct constant definitions.  Argument processing and value return works just like "ioctl" below.  For exam-
               ple:

                   use Fcntl;
                   fcntl($filehandle, F_GETFL, $packed_return_buffer)
                       or die "can't fcntl F_GETFL: $!";

               You don't have to check for "defined" on the return from "fcntl".  Like "ioctl", it maps a 0 return from the system call into "0
               but true" in Perl.  This string is true in boolean context and 0 in numeric context.  It is also exempt from the normal -w warn-
               ings on improper numeric conversions.

               Note that "fcntl" will produce a fatal error if used on a machine that doesn't implement fcntl(2).  See the Fcntl module or your
               fcntl(2) manpage to learn what functions are available on your system.

               Here's an example of setting a filehandle named "REMOTE" to be non-blocking at the system level.  You'll have to negotiate $| on
               your own, though.

                   use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);

                   $flags = fcntl(REMOTE, F_GETFL, 0)
                               or die "Can't get flags for the socket: $!\n";

                   $flags = fcntl(REMOTE, F_SETFL, $flags | O_NONBLOCK)
                               or die "Can't set flags for the socket: $!\n";

REMOVE THIS LINE

היי, תודה על העזרה!
הבעיה עם הפונק' flock שהיא לא עובדת על קבצים שנמצאים במערכות NFS וכנראה גם על AFS.
בעיקרון אני עובד על מספר מערכות: linux rh9, aix שכולן ניגשות לקובץ משותף שאותו אני רוצה לנעול. עם fcntl זה עובד. מי שעובד איתי על אותם המערכות נועל את הקבצים עם fcntl בגרסה ה-C-ית שלה ומקבל את הנדרש.

עדיין אני מתקשה למצוא מה התחביר של הפקודה ב-Perl, ניסיתי לחקות את הדוגמא שנתת:

קוד:

 

 
lock: 
----- 
$vvv = fcntl(FILE_LCK, F_GETLK, 0);
fcntl(FILE_LCK, F_SETLKW, $vvv | F_WRLCK);
 
unlock:
-------
$vvv = fcntl(FILE_LCK, F_GETLK, 0);
fcntl(FILE_LCK, F_SETLKW, $vvv | F_UNLCK );

אבל עדיין אני לא מצליח להגיע לתוצאה הרצוייה, הפורמט אינו נכון.אולי יש לך רעיון?

אני לא מבין למה אתה מתכוון ב"הפורמט אינו נכון".
אתה מקבל syntax error? הקובץ לא ננעל? תראה לי את $! לאחר הנעילה, תפעיל עם -w, ואחרי כל פקודה קריטית תכתוב:

קוד:

REMOVE THIS LINE

func() or die( $! );

REMOVE THIS LINE

רק ככה נוכל לאתר את הבעייה..