سوال: کمک در مورد یک دستور perl [بایگانی]

saeid6366

سه شنبه 29 فروردین 1391, 15:32 عصر

من با perl کار نکردم کسی می تونه بگه کد زیر چیکار میکنه؟

filename = @_shift$;
" !$ :open (IN, $filename) || die "cannot open ;

weox__

سه شنبه 12 اردیبهشت 1391, 15:53 عصر

این کد داخل یک تابع قابل استفاده هست بخاطر متغیر @_‌
خط اول
آرگومانی که به تابع فرستاده شده رو در $filename قرار می ده !!
خط دوم فایلی با اسم $filename رو باز می کنه و اگر عملیات شکست بخوره پیغام connot open رو می ده که $! متغیر از پیش تعریف شده هست که ارروری که اتفاق افتاده رو در خودش نگه می داره !!

امیدوارم مشکلت حل بشه !!