الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

احتاج مساعدة

بدأه Youcef_S في 4 أبريل 2010 · 16 رد · 2,303 مشاهدة · في لغة Perl
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخوتي برمجت سكريبت لكن في مشكل وهو مثلا اريد التنقل وتشغيل برنامج

بامر perl

اريد امر عند تطبيقه يتنقل الى

/tmp ويشغل مثلا wine.exe بامرل من البيرل دون اللجوء الى Terminal و تطبيق cd .....

:unsure: انتظر ارائكم

#2

انا انتظر اخوتي الله يخليكم ضروري :unsure:

#3

وينكم محتاج مساعدة :unsure:

#4

السلام عليكم

إذا تبغي changement de repertoire لازم chdir

و إلا إستخدم chamgement de repertoire directement dans la commande system

هاو مثال

#!/usr/bin/perl

chdir "c:\\";

system("dir");
system("caller.cmd");

مدونتي


#5

شكرا اخي :blush:

#6

لكن مانجح معي

اريد التنقل و تشغيل ملف

مثلا هدا هو مسار الملف

/home/master/Images

اريد تشغيل image.jpeg

او انشاء ملف مثلا ؟؟

#7

شكرا اخي لقد استوعبت الطريقة :happy:

#8 
system("/home/master/images/image.jpg");

or try

open(re," /home/master/images/image.jpg");
close(re);

تم تعديل هذه المشاركة بواسطة ibu_love في 5 أبريل 2010 في 14:48

1

FineDesign For Graphic and WebDesign

ForEach(Minute in MyLife)

MyExperience ++;

#9

شكرا اخي :blush:

#10

اخوتي لو تساعدوني اخر مرة هو عند تطبيق امر مثلا

$order = "$loc/$prog";

system($order);

يطبق $loc هو الاول ثم $prog هو الثاني

وانا اريد تطبيقهما في آن واحد :unsure:

تم تعديل هذه المشاركة بواسطة Youcef_S في 6 أبريل 2010 في 00:47

#11

السلام عليكم

كيف يطبق و احد فقط !!!

بعد كتابة 

$order = "$loc/$prog";

أضف

print $order;

و ستلاحظ أن هناك خطء في المسار لأن الرموز /و\ محجوزة.

لذلك تأكد أولا أن المسار صحيح، ثم لك الصلاحيات الكافية لتشغيل الملف، مثال

اقتباس
ls -ltr yourfilefullpath
1

مدونتي


#12

شكرا اخي لكن يعني مثلا

#!usr/bin/perl

$loc =<STDIN>;

$a ="windows/meterpreter/reverse_tcp";

$loacation = "$loc $a";

print "$loacation\n";

فيطبع عندما ادخل مثلا loc

/home/master/msf3

فيعطيني النتيجة

/

home/master/msf3

windows/meterpreter/reverse_tcp

اريد وضعها في سطر واحد

مثلا

/home/master/msf3 windows/meterpreter/reverse_tcp

#13

السلام عليكم

بإمكانك الربط بين المتغيرين هكذا.

$loacation = $loc.$a;

شرط أن يكون المتغير الأول ينتهي بالرمز/ . و إلا فعليك إضافته

$loacation = $loc."/".$a;
1

مدونتي


#14

وعليكم السلام اخي

مانجح !!! :unsure:

#15
Youcef_S كتب:

شكرا اخي لكن يعني مثلا

#!usr/bin/perl

$loc =<STDIN>;

$a ="windows/meterpreter/reverse_tcp";

$loacation = "$loc $a";

print "$loacation\n";

فيطبع عندما ادخل مثلا loc

/home/master/msf3

فيعطيني النتيجة

/

home/master/msf3

windows/meterpreter/reverse_tcp

اريد وضعها في سطر واحد

مثلا

/home/master/msf3 windows/meterpreter/reverse_tcp

مثلا اخي عند تغيير $loc واعطائه قيمة تعريف

#!usr/bin/perl

$loc ="/home/master/msf3/";

$a ="windows/meterpreter/reverse_tcp";

$loacation = "$loc $a";

print "$loacation\n";

فيعطيني النتيجة

/home/master/msf3/ windows/meterpreter/reverse_tcp

لكن عند اعطاء

$loc = <STDIN>;

فيتخلف السطر ??

تم تعديل هذه المشاركة بواسطة Youcef_S في 7 أبريل 2010 في 14:47

#16

مممم كان ينقصني شيئ ههههه وهو

chomp($loc);

:D

:happy:

#17

شكرا لكم :happy:

مواضيع مشابهة