المخطوطة..

[smileysam]

إدارة الهوية والولوج في محاولة لنسخ محتوى ملف واحد إلى آخر.
رمز لا يعمل وتوقف والمضمون لم يتم نسخها في ملف 2
لقد لصق الشفرة.أي تعليق ستكون مفيدة.شكرا.

# نسخ ملف واحد إلى آخر.
$ يون = $ # ARGV 1 ؛
الطباعة ($ يون) ؛
الطباعة ( "$ ARGV [0] \ ن") ؛
الطباعة ( "$ ARGV [1] \ ن") ؛
اذا كان ((فتح) fileptr1 ، $ ARGV [0])) == 0)
(
يموت ( "خطأ في فتح الملف") ؛
)
أيضا
(
الطباعة ( "فتح ملف 1 \ ن") ؛
)
الطباعة ( "إيام هنا") ؛
اذا كان ((فتح) fileptr2 ،">>".$ ARGV [1])) == 0)
(
يموت ( "خطأ في فتح الملف") ؛
)
أيضا
(
الطباعة ( "فتح ملف 2 \ ن") ؛
)
بينما (fileptr1 شمال شرق "")
(
$ = مدخلات <fileptr1>؛
الطباعة ($ مدخلات) ؛
طباعة fileptr2 ($ مدخلات) ؛
)
وثيقة (fileptr1) ؛
وثيقة (fileptr2) ؛

 

[Guest]

[No message]

 

[btbass]

هذا الرمز يعمل موافق.

رمز :فتح (في ، $ ARGV [0]) | | يموت "لا يمكن فتح $ ARGV [0] لقراءة : $!" ؛

فتح (من أصل "> $ ARGV [1]") | | يموت "لا يمكن إنشاء $ ARGV [1] : $!" ؛بينما (<IN>) (

بطباعة $ _ ؛

)وثيقة (في) | | يموت "النفاق وثيق $ ARGV [0] : $!" ؛

وثيقة (خارج) | | يموت "النفاق وثيق $ ARGV [1] : $!" ؛