اورنج مان

الله يهديك يااخوي .. انا مبتدى في البيرل ولا استحق كلمة كذاب ..!! + انا الي سويتها اني اهم شئ سوية الاداه الي ابغاها .. والحمد لله نجحة مع ان الاكواد مالها اي صله يعني مجرد تركيب وصدفه ضبطت مسئلة ان كودي قبيح الحمد لله مابرمجته الا لي هدف منه وهو cat /etc/pass…

ماضبطت سويت نفس طريقتك ..!! + لو طريقتك ضبطة اكتب الكود كامل + جرب الطريقه اما بلنسبه لـsub file_get_contents تعال شوف $name = $ARGV[0]; # open File $safe = $ARGV[1]; # save File $etc_passwd = file_get_contents($name); open(USERSFILE, ">>$safe"); while( $arab2…

للاسف لم تحلو مشكلتي .. وولكن تم حلها sub file_get_contents فقط (:

السلام عليكم اليوم برمجة كود حلو وصغير $name = $ARGV[0]; # File $safe = $ARGV[1]; open (USERFILE, ">$name") || die "Can't open file "; @LISTS = <USERFILE>; close USERFILE; foreach my $L (@LISTS) { chomp $L; $list = $L; } open (SAFEFILE, ">$safe"); if($list =~ …