perldlp - מקוון בענן

תָכְנִית:

שֵׁם

perldl - מעטפת פשוטה עבור PDL (ראה גם pdl2)

תַקצִיר

השתמש ב-PDL באופן אינטראקטיבי:

bash$ perldl
pdl> $a = רצף(10) # או כל פקודת perl או PDL אחרת

bash$ pdl
pdl> print "שלום, עולם!\n";

הפעל סקריפט:

bash$ cat > pdlscript
#!/usr/bin/pdl
הדפס "שלום עולם!\n";
...

תיאור

התכנית perldl היא מעטפת פשוטה (כתובה ב-perl) לשימוש אינטראקטיבי ב-PDL. זה
מורכב ממשק שורת פקודה התומך בפרשנות מיידית של perl
פקודות וביטויים. ניתן להזין ביטויי Perl, כולל מבני PDL
ישירות על המקלדת ונערכים ומבוצעים מיד. התחביר לא
זהה בדיוק לפרל, בכך שברוב הנסיבות סיום שורה גורם מיידית
ביצוע הפקודה שהוזנה עד כה (אין צורך ב-';').

המילה הנרדפת pdl הוא קובץ הפעלה מהולם שימושי כמפרש סקריפטים באמצעות UNIX
תחביר shebang ("#!"). זה שימושי להפקה וביצוע מחדש של יומן פקודות
קבצים מ perldl.

השמיים perldl shell מריץ קובץ הפעלה ראשוני ("~/.perldlrc") שניתן להשתמש בו כדי לטעון מראש
מודולי perl או להגדיר את סביבת perl העולמית. הוא כולל מנגנון נתיב עבור
טעינה אוטומטית של תתי שגרות פרל. יש מנגנון היסטוריית פיקוד, ועוד כמה
תכונות שימושיות כגון עיבוד מקדים של פקודות, קיצורי דרך לפקודות נפוצות כגון
כ"הדפסה", והיכולת להפעיל קוד שרירותי בכל פעם שמודפסת הנחיה.

בהתאם להגדרות התצורה שלך, perldl ניתן להגדיר לכבד או להתעלם מה-^D
תו (סוף קובץ) כאשר נשלח ממסוף, או כדי לנסות לעשות את הדבר הנכון
כאשר נתקלים במבנה בלוק המשתרע על שורות מרובות.

perldl ו pdl תמיכה במספר אפשרויות שורת פקודה, אשר נדונות לקראת סוף
מסמך זה.

התייחסות מדריך ל & באינטרנט לעזור
מדריך העזרה של PDL והעזרה המקוונת זמינים מבפנים perldl, משתמש ב לעזור
ו אפרופו פקודות (שעשויות להיות גם מקוצרות ? ו ??.) ה לעזור פיקוד לבד
מדפיס סיכום של תחביר עזרה, ו לעזור ידפיס תיעוד POD מ
המודול שאתה מזכיר (POD הוא פורמט Perl להטמעת תיעוד ב-perl שלך
קוד; ראה perlpod לפרטים).

אם אתה כולל תיעוד POD בתתי הטעינה האוטומטית שלך (ראה נתיב מנגנון לְהַלָן),
ואז שניהם לעזור ו אפרופו ימצא אותו ויוכל לעצב ולהציג אותו לפי דרישה.

הִיסטוֹרִיָה מנגנון
אם מותקנים לך את מודולי ה-perl ReadLines ו-ReadKeys, אז perldl תומך א
היסטוריה ומנגנון עריכת שורות באמצעות מפתחות עריכה בדומה ל-emacs. 500 האחרונים
הפקודות תמיד מאוחסנות בקובץ .perldl_hist בספריית הבית שלך בין
הפעלות. הגדר $PERLDL::HISTFILESIZE כדי לשנות את מספר השורות שנשמרו. הפקודה "l
[מספר]" מציג לך את פקודות ה"מספר" האחרונות שהקלדת כאשר "מספר" כברירת מחדל היא 20.

למשל:

bash$ perldl
ReadLines מופעלים
pdl> $a = rfits "foo.fits"
BITPIX = -32 גודל = 88504 פיקסלים
קורא 354016 בתים
BSCALE = && BZERO =

pdl> image log($a+400)
מציג תמונה בגודל 299 x 296 מ-4.6939525604248 עד 9.67116928100586 ...

פיקוד הוצאת להורג
אם תזין פקודה פשוטה ב- perldl שורת הפקודה, היא מבוצעת מיד ב-a
Perl "eval()". הסביבה כמעט זהה לזו שבתסריט perl, עם
כמה חריגים חשובים:

· $_ אינו נשמר על פני קווים

$_ משמש כדי להחזיק את שורת הפקודה לעיבוד ראשוני, אז בתחילת
עיבוד של כל שורת פקודה, $_ מכיל את הפקודה עצמה. השתמש במשתנים אחרים
מ-$_ לאחסון ערכים על פני קווים.

· היקף אינו נשמר על פני קווים

כל שורת פקודה מבוצעת בבלוק "eval" נפרד בתוך perl, אז scoping
ייתכן שפקודות כגון "שלי" ו-"מקומי" לא יפעלו בדיוק כצפוי -- במיוחד,
אם אתה מכריז על משתנה עם "my", הוא מקומי לשורת הפקודה המסוימת
שהקלדת את הפקודה "שלי", מה שאומר שהיא תתאדה לפני הפקודה הבאה
ההנחיה מודפסת. (אתה יכול להשתמש במשתנים "שלי" בבלוק מרובה שורות או כדי לבודד
ערכים בתוך שורת פקודה אחת, כמובן).

הערה: pdl2 שומר על טווח מילוני בין השורות.

· הביצוע מיידי

ברוב הנסיבות, ברגע שאתה מסיים שורת קלט, השורה מנותחת ו
יצא לפועל. זה שובר את התלות הרגילה של פרל בנקודות פסיק כמפרידי פקודות.
לדוגמה, הביטוי הדו-קוי

הדפס "שלום",
"עוֹלָם";

מדפיס את הביטוי "Hello world" בפרל, אך (ברוב הנסיבות) "Hello" ב
perldl.

· ביצוע רב שורות

במצב ריבוי קווים (המופעל כברירת מחדל, ראה פָּגָז משתנים, למטה), perldl
מחפש חיפושים של מבנים דמויי בלוק עם סוגרים מתולתלים, סוגריים, מרכאות,
ותוחמים קשורים. אם תשאיר מבנה כזה פתוח, perldl מקבל שורות נוספות
של קלט עד שתסגור את המבנה או מסיים במפורש את הביטוי הרב-קוי עם
^D. בעקבות הדוגמה למעלה, הביטוי

{ הדפס "שלום",
"עוֹלָם"; }

ידפיס "Hello world" מ- Perl או (במצב ריבוי שורות) perldl.

אזהרה: הניתוח הרב שורות משתמש במודול הטקסט::Balanced של Damian Conway, אשר
מכיל כמה פגמים -- כך שניתן להטעות אותו על ידי אופרטורים דמויי מרכאות כגון "q/.../",
כלל תיעוד POD, ציטוטים מרובי שורות "<<" וכמה מוזרים במיוחד-אבל-
התאמות חוקיות של "m/.../" והחלפות "s/.../.../". במקרים כאלה, השתמש ב-^D כדי לסגור
להוציא את המבנה הרב-קווים ולהכריח הידור וביצוע.

אם ברצונך לשמר התנהגות זו בסקריפט (לדוגמה כדי להפעיל מחדש יומן פקודות
קוֹבֶץ; ראה להלן כיצד ליצור אחד), אתה יכול להשתמש pdl במקום פרל בתור המתורגמן
בשורה הראשונית של התסריט.

סיום "perldl"
ניתן לסיים סשן "perldl" עם כל אחת מהפקודות "quit", "exit" או
קיצורים "x" או "q". אם טיפול ב-EOF מופעל (ברירת המחדל) אתה יכול גם להקליד ^D
בשורת הפקודה.

אם קלט הפקודה אינו מסוף (לדוגמה, אם אתה פועל מפקודה
קובץ יומן), אז EOF תמיד יסתיים perldl.

סיום פקודות (Ctrl-C טיפול)
ניתן לסיים פקודות המבוצעות בתוך "perldl" בטרם עת באמצעות "Ctrl-C" (או
כל רצף המקשים ששולח אות INT לתהליך בטרמינל שלך). בתנאי שלך
קוד PDL לא מתעלם מ"sigint" זה אמור להחזיר אותך לפקודת "perldl".
בקש:

pdl> $result = start_lengthy_computation()

זוהה Ctrl-C

pdl>

קיצורי דרך ו כינויים
· המעטפת כינוי "p" כדי להיות צורה קצרה נוחה של "הדפס", למשל

pdl> p ones 5,3

[
[1 1 1 1 1]
[1 1 1 1 1]
[1 1 1 1 1]
]

· "q" ו-"x" הם קיצור של "quit".

· "l" מפרט את מאגר ההיסטוריה

pdl> l # רשום את 20 הפקודות האחרונות

pdl> l 40 # רשום את 40 הפקודות האחרונות

· "?" הוא כינוי לעזרה

pdl> ? pdl2 # קבל עזרה עבור מעטפת pdl2 חדשה

· "??" הוא כינוי לאפרופו

pdl> ?? PDL::דוק

· עזרה, אפרופו, שימוש וסייג: כל המילים לאחר הפקודות הללו משמשות מילה במילה ולא
מוערך על ידי perl. אז אתה יכול לכתוב, למשל,

pdl> עזרה עזרה

במקום

pdl> עזרה 'עזרה'

שורת הפקודה אפשרויות
perldl ו pdl תמיכה במספר אפשרויות שורת פקודה כדי להתאים את התנהגות ההפעלה.
רובם שוות ערך לפקודות שניתן להזין ב- pdl> מיידי. הם:

-שֶׁפַע
טען OpenGL בעת הפעלת המעטפת (מודול Perl OpenGL, הזמין מ
יש להתקין CPAN). זה מאפשר עיבוד לולאת אירועי readline. אל תשתמש עם
-tk.

-tk טען Tk בעת הפעלת המעטפת (מודול perl Tk, הזמין מ-CPAN חייב
להיות מותקן). זה מאפשר עיבוד לולאת אירועי readline. אל תשתמש עם -גלוט.

קובץ -f
טוען את הקובץ לפני עיבוד קלט משתמש כלשהו. כל שגיאה במהלך הביצוע של
הקובץ קטלני.

-w פועל עם הודעות אזהרה (כלומר אזהרות perl "-w" הרגילות) מופעלות.

- מודול M
טוען את המודול לפני עיבוד קלט משתמש כלשהו. השווה "פרל" המקביל
מתג.

מודול -m
פורק את המודול לפני עיבוד קלט משתמש כלשהו.

-אני מדריך
מוסיף ספרייה לנתיב הכלולים. (כלומר מערך @INC) השווה "perl" המקביל
מתג.

-V מדפיס סיכום של תצורת PDL. מידע זה צריך להיכלל עם כל באג PDL
להגיש תלונה. השווה מתג "perl" המתאים.

השמיים סטארט - אפ פילה ~/.perldlrc
אם הקובץ ~/.perldlrc נמצא שהוא מקורו בהפעלה כדי לטעון מודולי ברירת מחדל, מוגדר
משתני מעטפת וכו'. אם לא נמצא קובץ ההפצה PDL/default.perldlrc is
לקרוא במקום. זה טוען מודולים שונים שנחשבים שימושיים כברירת מחדל, ומבטיחים
תאימות עם v1.11. אם אתה לא אוהב את זה ואתה רוצה סט יעיל יותר שלך
מודולים מועדפים משלך פשוט צור משלך ~/.perldlrc. ייתכן שתרצה להתחיל מה-
קיימים PDL/default.perldlrc כתבנית מכיוון שהיא לא תתקבל לאחר שתחליף אותה
זה עם גרסה משלך.

כדי להגדיר ברירות מחדל מקומיות אפילו יותר, הקובץ local.perldlrc (בספרייה הנוכחית) הוא
מקור אם נמצא. זה מאפשר לך לטעון מודולים ולהגדיר תתי שגרות עבור הפרויקט ב-
ספרייה נוכחית.

השם נבחר באופן ספציפי מכיוון שנמצא קבצים מוסתרים לא רצויים באלה
בנסיבות.

קובץ האתחול אמור לכלול בדרך כלל "השתמש ב-PDL::AutoLoader;", כמו רבים מהטובים יותר
תכונות אינטראקטיביות לא יעבדו בלעדיה.

פָּגָז משתנים
משתני מעטפת: (הערות: אם אתה לא אוהב את ברירת המחדל שנה אותם ~/.perldlrc)

· $PERLDL::ESCAPE - ערך ברירת המחדל '#'

כל שורה שמתחילה בדמות זו מטופלת כאל בריחה של פגז. ערך ברירת המחדל
נבחר מכיוון שהוא בורח מהקוד מהמפרש הסטנדרטי של perl.

· $PERLDL::HISTFILESIZE - ערך ברירת מחדל 500

זה מספר השורות של היסטוריית הפקודות של perldl shell שיש לשמור.

· $PERLDL::PAGER - ערך ברירת המחדל "יותר"

תוכנית חיצונית לסינון הפלט של פקודות. שימוש ב"עוד" מדפיס פלט אחד
מסך בכל פעם. ב-Unix, הגדרה עמוד(1) ו-$PERLDL::PAGER ל-"tee -a outfil"
ישמור תיעוד של הפלט שנוצר על ידי פקודות perldl עוקבות (ללא
ההחלפה).

· $PERLDL::PROMPT - ערך ברירת המחדל 'pdl> '

מספיק אמר אבל ניתן גם להגדיר התייחסות לשגרת משנה, למשל $PERLDL::PROMPT =
sub {join(':',(gmtime)[2,1,0]).'> '} מכניס את השעה הנוכחית להנחיה.

· $PERLDL::MULTI - ערך ברירת מחדל 1

אם זה מוגדר לערך אמיתי, אז perldl ינתח בלוקים של perl מרובי שורות: שלך
קלט לא יבוצע עד שתסיים שורה ללא מפעילי קבוצה מצטיינים
(כגון מרכאות, בלוקים, סוגריים או סוגריים) עדיין פעילים. קווי המשך
יש לך הנחיה אחרת שמראה לך אילו תוחמים עדיין פעילים.

שימו לב שזה לא (עדיין!) מנתח perl שלם. בפרט, Text::Balanced
נראה שהוא מסוגל להתעלם מציטוטים של אופרטורים כמו "q/ ... /" בתוך שורה, אבל לא
כדי להיות מסוגל להרחיב אותם על פני קווים. כמו כן, אין תמיכה ב-'<<'
מפעיל.

מחרוזות קונבנציונליות מרובות שורות וקבוצות {}, [] ו-() נתמכות היטב.

· $PERLDL::NO_EOF - ערך ברירת מחדל 0 / 1 ב-MSWin32

מגן מפני שימוש מקרי ב-"^D" מהמסוף. אם זה מוגדר כאמת
ערך, אז אתה לא יכול לצאת בטעות מ-perldl על ידי הקלדת "^D". אם תגדיר אותו ל-a
ערך גדול מ-1 (ו-PERLDL::MULTI מוגדר), אז אתה לא יכול להשתמש ב-"^D" כדי לצאת
גם פקודות מרובות שורות. אם אתה מכניס פקודות מקובץ או מצינור, זה
למשתנה אין השפעה.

· $HOME

ספריית הבית של המשתמש

· $PERLDL::TERM

זהו האובייקט Term::ReadLine המשויך למעטפת perldl. ניתן להשתמש בו על ידי
שגרות שנקראות מ-perldl אם הפקודה שלך אינטראקטיבית.

· $PDL::toolongtoprint

גודל ה-pdls המרבי להדפסה (ברירת המחדל היא 10,000 אלמנטים). זה לא רק א
משתנה "perldl" או "pdl2", אבל זה משהו שבדרך כלל נחוץ ב-an
מפגש איתור באגים אינטראקטיבי.

מוציא להורג סקריפטים החל מ- מה היא "perldl" הפקודה
ניב שימושי לפיתוח סקריפטים של perldl או פונקציות עריכה מקוונות הוא

pdl> # emacs script &
- הוסף קוד perldl לסקריפט ושמור את הקובץ

pdl> עשה 'סקריפט'

-- החלף את העורך מבוסס החלונות המועדף עליך ב'emacs' (ייתכן שתצטרך גם לשנות
ה-'&' במערכות שאינן יוניקס).

הפעלת "עשה 'סקריפט'" שוב מעדכנת את כל המשתנים והגדרות הפונקציה מה-
הגרסה הנוכחית של 'סקריפט'.

מוציא להורג perldl סקריפטים החל מ- מה היא הפקודה קו
סקריפטים של PDL הם רק סקריפטים של perl שבמקרה משתמשים ב- PDL (ואולי PDL::NiceSlice).
אבל לעצלנים באמת, ניתן להפעיל את perldl כמתורגמן לתסריט. כי פרדל הוא
עצמו סקריפט פרל מפורש, רוב יוניסים לא יאפשרו לך לומר "#!/usr/bin/perldl"
בחלק העליון של התסריט שלך.

במקום זאת, אמור "#!/usr/bin/pdl" והסקריפט שלך יתבצע בדיוק כאילו הקלדת אותו,
שורה אחר שורה, לתוך מעטפת perldl.

פיקוד עיבוד מקדים
הערה: תכונה זו משמשת כברירת מחדל על ידי PDL::NiceSlice. ראה למטה למידע נוסף על חיתוך
בהנחיית "perldl".

במקרים מסוימים, נוח לעבד פקודות לפני שהן נשלחות ל-perl עבור
ביצוע. לדוגמה, זה המקרה שבו המעטפת מוצגת לאנשים
לא מכיר את perl אבל רוצה לנצל את הפקודות שנוספו באופן מקומי (למשל על ידי
ציטוט אוטומטי של ארגומנטים לפקודות מסוימות).

*הערה*: ממשק העיבוד המקדים השתנה מגרסאות קודמות! הדרך הישנה להשתמש
$PERLDL::PREPROCESS עדיין יעבוד אבל הוא הוצא משימוש בתוקף ועלול להיעלם ב-
עתיד.

אתה יכול לאפשר עיבוד מקדים על ידי רישום מסנן עם הפונקציה "preproc_add".
"preproc_add" לוקח ארגומנט אחד שהוא המסנן שיש להתקין. מסנן הוא פרל
הפניה לקוד (בדרך כלל מוגדר בקובץ תצורה מקומי) שייקרא, עם ה-
מחרוזת הפקודה הנוכחית כארגומנט, ממש לפני שהמחרוזת מבוצעת על ידי המעטפת.
יש להחזיר את המחרוזת ששונתה. שים לב שאתה יכול לעשות "perldl" לחלוטין
בלתי שמיש אם אינך מצליח להחזיר את המחרוזת ששונתה; לפרוש היא האפשרות היחידה שלך.

ניתן להסיר מסננים מצינור העיבוד המוקדם על ידי קריאת "preproc_del" עם ה-
מסנן שיוסר כארגומנט. כדי לברר אם מסנן מותקן כעת ב-
צינור עיבוד מוקדם השתמש ב-"preproc_registered":

pdl> preproc_add $myfilter אלא אם כן preproc_registered $myfilter;

גרסאות קודמות של "perldl" השתמשו במשתנה $PERLDL::PREPROCESS. זה עדיין יעבוד
אך יש להימנע. אנא שנה את הסקריפטים שלך לשימוש בפונקציות "preproc_add" וכו'.

הקוד הבא יבדוק אם יש קריאה לתפקד איתם 'mysub' ובסוגריים ארגומנטים
qw.

$filter = preproc_add sub {
שלי $str = shift;
$str =~ s/^\s+//; # רצועת חלל מוביל
if ($str =~ /^mysub/) {
my ($command, $arguments) = split(/\s+/,$str, 2);
$str = "$command qw( $arguments )"
if (הגדר $arguments && $arguments !~ /^qw/);
};
# החזר את מחרוזת הקלט, שונה לפי הצורך
החזר $str;
};

זה ימיר:

pdl> mysub arg1 arg2

ל

pdl> mysub qw( arg1 arg2 )

שפרל יבין כרשימה. ברור שנדרש קצת יותר מאמץ כדי
בדוק אם המתקשר סיפק רשימה רגילה (ולכן אינו דורש
ציטוט אוטומטי) או אינטרפולציה משתנים נדרשת.

אתה יכול להסיר מעבד קדם זה באמצעות הפונקציה "preproc_del" אשר לוקחת ארגומנט אחד
(המסנן שיש להסיר, חייב להיות אותו coderef שהוחזר מקודם
קריאת "preproc_add"):

pdl> preproc_del $filter;

דוגמה לשימוש בפועל ניתן למצוא בסקריפט "perldl". תסתכל על הפונקציה
"טרנס" כדי לראות כיצד מעבד הקדם לחיתוך נחמד מופעל/מושבת.

"perldl" ו PDL::NiceSlice
PDL::NiceSlice מציג תחביר חיתוך נוח יותר ל-piddles. בנוכחי
גרסאות של "perldl" ו-"pdl2" niceslicing מופעלת כברירת מחדל (אם ה-CPAN הנדרש
מודולים מותקנים במחשב שלך).

בעת ההפעלה "perldl" יודיע לך אם niceslicing מופעל. הודעת ההפעלה תהיה
מכיל מידע לשם כך, משהו כמו זה:

מעטפת perlDL v1.XX
PDL מגיע עם לחלוטין ללא אחריות. לפרטים, עיין בקובץ
'Copying' בהפצת PDL. זו תוכנה חופשית ואתה
מוזמנים להפיץ אותו מחדש בתנאים מסוימים, ראה
אותו קובץ לפרטים.
ReadLines, NiceSlice מופעל
קורא /home/csoelle/.perldlrc...
הקלד 'הדגמה' להדגמות מקוונות
נטען PDL v2.XX

כאשר אתה מקבל הודעה כזו שמציינת ש"NiceSlice" מופעל אתה יכול להשתמש במשופר
תחביר חיתוך:

pdl> $a = רצף 10;
pdl> p $a(3:8:2)

לפרטים, עיין ב-PDL::NiceSlice.

PDL::NiceSlice מתקין מסנן בצינור העיבוד המקדים (ראה למעלה) כדי לאפשר את
תחביר חיתוך משופר. אתה יכול להשתמש בכמה פקודות במעטפת "perldl" כדי לשנות זאת
עיבוד מקדים מופעל או כבוי וגם בדוק במפורש את ההחלפות שה-NiceSlice
מסנן עושה.

אתה יכול להפעיל ולכבות את מסנן PDL::NiceSlice על ידי הקלדה

pdl> trans # switching niceslicing on

ו

pdl> notrans # switching niceslicing off

בהתאמה. המסנן מופעל כברירת מחדל.

כדי לראות כיצד הפקודות שלך מתורגמות, החלף את הדיווח:

pdl> דוח 1;
pdl> p $a(3:8:2)
מעובד p $a->nslice([3,8,2])
[3 5 7]

באופן דומה, כבה את הדיווח לפי הצורך

pdl> דוח 0;
pdl> p $a(3:8:2)
[3 5 7]

הדיווח כבוי כברירת מחדל.

באופן אוטומטי לבצע שֶׁלְךָ שֶׁלוֹ ווים
המשתנה @PERLDL::AUTO הוא רשימה פשוטה של ​​מחרוזות קוד perl ו/או הפניה לקוד. זה
משמש להגדרת קוד שיבוצע אוטומטית בכל פעם שהמשתמש נכנס לשורה חדשה.

דוגמה פשוטה תהיה הדפסת הזמן של כל פקודה:

pdl> push @PERLDL::AUTO,'print scalar(gmtime),"\n"'

pdl> הדפס אפסים(3,3)
ראשון 3 במאי 04:49:05 1998

[
[0 0 0]
[0 0 0]
[0 0 0]
]

pdl> הדפס "בו"
ראשון 3 במאי 04:49:18 1998
בו
pdl>

או כדי לוודא ששינויים כלשהם בקובץ 'local.perldlrc' ייקלטו תמיד:-

pdl> לחץ על @PERLDL::AUTO,"do 'local.perldlrc'"

ניתן כמובן לשים את הקוד הזה *ב* 'local.perldlrc', אבל היזהר :-) [רמז: הוסף
"אלא אם ($started++)" למעלה כדי להבטיח שזה יבוצע רק פעם אחת!]

יישום דוגמה נוסף הוא כוו עבור Autoloaders (למשל PDL::AutoLoader) להוסיף
גם קוד המאפשר להם לסרוק מחדש אוטומטית את הקבצים שלהם לאיתור שינויים. זה
נוח במיוחד בשורת הפקודה האינטראקטיבית. מכיוון שהוו הזה נמצא רק בקליפה
זה לא כופה חוסר יעילות על סקריפטים של PDL.

לבסוף שימו לב שזהו מתקן חזק מאוד - מה שאומר שצריך להשתמש בו
זְהִירוּת!

השתמש ב-perldlp באופן מקוון באמצעות שירותי onworks.net