שדות המשתנים - שדות הטקסט
>>>>>@
מציין שדה עם מקום לשישה תווים.
(סופרים גם את ה @)
במקרה בו יש לנו ערך עם פחות תווים, למשל שניים, הם ייושרו לימין ומימינם יופיעו ארבעה רווחים.
<<<<<@
מציין שהערך יופיע מימין והרווחים ירפדו את הערך משמאלו.
אם הערך מכיל יותר משישה תווים - הוא יקוצץ.
||||||@
ממרכז את הערך ומרפד אותו ברווחים משני הכוונים.
עבור מספרים דצימליים נשתמש בצורה הבאה
format D_NUM =
========================================
|
number :
@#####.##
|
$number
========================================
.
לאבחנה בין מספרים שליליים לחיוביים ניתן לכתוב:
format D_NUM =
========================================
|
number :
@<<<<<<</* | נשמרים להכל יחד שמונה תוים | */ |
| &
calculate(
$number)
#תוכנס התוצאה שהסאברוטינה תחזיר
========================================
.
sub calculate {
local (
$number)=
@_;
#הפרמטר שהפונקציה קיבלה
$number =
sprintf(
"%.2f",
$number);
if (
$number <
0 )
sprintf(
"%4/* | מתוך שמונת התוים שנשמרו ארבעה ינוצלו למספר ועוד שניים נשמרים בשביל המינוס והנקודה העשרונית שניים נוספים נשמרים למספרים מימין לנקודה. | */ |
.<<.2f" ,
-$number); /* | המספר יודפס עם מינוס. | */ |
else
sprintf(
" %4.2f" ,
$number); /* | לפני המספר יודפס רווח במקום מינוס. | */ |
}
# : גוף התכנית
$number=
10.64;
להוספת תגובה, אנא התחברו לדרכונט.