انا مبتدئ جدا في البيرل،، كتبت سكريبت بسيط لآخذ الرابط من الـ 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";} }
تعليق