שאלה בסיסית בPERL

[jinji0]

שאלה בסיסית בPERL

איך אני מזמן את הCHAR הראשון מתו סטרינג מסויים? כלומר: $str="nadav" אני רוצה לזמן רק את האות n. משהו בסגנון של $str[0]?? לא עובד לי... ניסיתי.. נדב

 

[jinji0]

זו הבעיה.

תוכנה זו אמורה לייצור מארך של כל התיקיות בתוך Path מסויים שניתן לה בשורת הרצה... למה זה לא מסנן לי את אותן "." ".." שמסמלות UP? ולמה זה לא עובד לי על קונן c:\?

 

[annefan]

תעלה קוד שכתבת

 

[jinji0]

אופס... חשבתי שכתבתי אותה...

$dir= shift || '.'; opendir DIR, $dir or die "Can't open directory $dir: $!\n"; while ($file= readdir DIR) { if (($file[1] eq '.') or ($file[1] eq '..')) { print ("not good \n") } else { push(@files, $file) if (-d $file); } } print "@files";

 

[jinji0]

סליחה... השמאלתי אותו

$dir= shift || '.'; opendir DIR, $dir or die "Can't open directory $dir: $!\n"; while ($file= readdir DIR) { if (($file[1] eq '.') or ($file[1] eq '..')) { print ("not good \n") } else { push(@files, $file) if (-d $file); } } print "@files";

 

[jinji0]

מסתבר שלא... מקווה שתסתדרו

 

[annefan]

אתה מתכוון ככה

$dir= shift || '.'; opendir DIR, $dir or die "Can't open directory $dir: $!\n"; while ($file= readdir DIR) { if (($file[1] eq '.') or ($file[1] eq '..')) { print ("not good \n") } else { push(@files, $file) if (-d $file); } } print "@files";​

יש מתחת לחלון של ההודעה "תחילת קוד" ו"סיום קוד". מומלץ!!

 

[annefan]

perldoc -f substr

ו-perldoc בכלל...

 

[jinji0]

מה אלה אומרים?? ואיך משתמשים בהם?

 

[jinji0]

הבנתי והסתדרתי - תודה לכולכם

עזרתם בצורה מהירה ויעילה!