Re: Can use perl for download photos from facebook?
William Torrez Corea <[email protected]>
| Newsgroups | gmane.comp.lang.perl.beginners |
|---|---|
| Message-ID | <CAGiORHcC-UDMOBDOzHrdhvoQNKxHsZMb1EjYNtYPExvWdMjs=g@mail.gmail.com> |
So, friend? On Sat, Mar 19, 2022 at 8:23 PM Adam Hopkins <[email protected]> wrote: > I mean the Facebook.html file that you are scanning > > On Sat, Mar 19, 2022 at 9:17 PM William Torrez Corea < > [email protected]> wrote: > >> Here is the short code: >> >> https://gist.github.com/adipasquale/2217595 >> >> >> >> On Sat, Mar 19, 2022 at 8:10 PM Adam Hopkins <[email protected]> >> wrote: >> >>> Did you download Facebook.html and already have it sitting on your >>> computer? >>> >>> Can you upload that to a gist and share it here? >>> >>> On Sat, Mar 19, 2022 at 8:48 PM William Torrez Corea < >>> [email protected]> wrote: >>> >>>> I have a short code: >>>> >>>> #!/usr/bin/perl; >>>> @ARGV = ("Facebook.html"); >>>> while(<>){ >>>> while(/(http[a-z\-\.0-9:\/]*\w*)_a.jpg/g){ >>>> print "wget $1_n.jpg\n"; >>>> } >>>> } >>>> >>>> But the result expected is null. I don't know why. >>>> >>>> On Sat, Mar 19, 2022 at 7:21 AM Jim Gibson <[email protected]> >>>> wrote: >>>> >>>>> Check out the LWP library of modules on CPAN: >>>>> >>>>> <https://metacpan.org/pod/LWP> >>>>> >>>>> > On Mar 19, 2022, at 6:07 AM, William Torrez Corea < >>>>> [email protected]> wrote: >>>>> > >>>>> > I have an idea from the program but I don't know where to start. >>>>> > >>>>> >>>>> Jim Gibson >>>>> >>>>> >>>>> >>>>> >>>> >>>> -- >>>> >>>> With kindest regards, William. >>>> >>>> ⢀⣴⠾⠻⢶⣦⠀ >>>> ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system >>>> ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org >>>> ⠈⠳⣄⠀⠀⠀⠀ >>>> >>>> >> >> -- >> >> With kindest regards, William. >> >> ⢀⣴⠾⠻⢶⣦⠀ >> ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system >> ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org >> ⠈⠳⣄⠀⠀⠀⠀ >> >> -- With kindest regards, William. ⢀⣴⠾⠻⢶⣦⠀ ⣾⠁⢠⠒⠀⣿⡁ Debian - The universal operating system ⢿⡄⠘⠷⠚⠋⠀ https://www.debian.org ⠈⠳⣄⠀⠀⠀⠀