إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

كيف آخذ اسم متغير في البيرل عن طريق الـ bash

تقليص
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

  • [سؤال] كيف آخذ اسم متغير في البيرل عن طريق الـ bash

    انا مبتدئ جدا في البيرل،، كتبت سكريبت بسيط لآخذ الرابط من الـ source code من صفحات كورة من غير الحاجة لانتظار خمس وعشرين ثانية،،
    الكود يعمل بشكل فعال لكن أريد أن يأخذ السكريبت عنوان الموقع مباشرة من المستخدم وليس بتحرير الملف،،،
    يعني بهذه الطريقة
    كود:
     perl decrypter.pl [URL]http://www[/URL] bala bla bla
    الكود كالتالي،،،
    كود:
    #! /usr/bin/perl -w
    use HTML::LinkExtor;
    use strict;
    use warnings;
    use HTML::Parser;
    use LWP::Simple;
    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    $ua->timeout(120);
    my $url='http://www.liverpool.linkatty.com/f27d8f.html';
    my $request = new HTTP::Request('GET', $url);
    my $response = $ua->request($request);
    my $content = $response->content();
    #print #content;
    my @values=split(/\n/,$content);
    foreach (@values) {
      if($_=~m/mediafire/){my $link=substr $_,73,-52;print "$link\n";}
    }

  • #2
    الحمدلله تم حل المشكلة ،،،
    لم أكن أعلم أن بيرل ،، تخزن المدخلات في مصفوفة ARGV ،،صراحة اللغة رائعة رائعة وعملية،،

    الكود بعد التعديل،،،
    كود:
    #! /usr/bin/perl -w
    use HTML::LinkExtor;
    use strict;
    use warnings;
    use HTML::Parser;
    use LWP::Simple;
    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    $ua->timeout(120);
    my $url2= shift @ARGV;
    my $request = new HTTP::Request('GET', $url2);
    my $response = $ua->request($request);
    my $content = $response->content();
    #print #content;
    my @values=split(/\n/,$content);
    foreach (@values) {
      if($_=~m/mediafire|rapidshare/){my $link=substr $_,73,-52;print "$link\n";}
    }

    تعليق


    • #3
      شكرا على طرحك
      للعلم معظم لغات البرمجة تقوم بذلك

      تعليق

      يعمل...
      X